3. Числа Майя Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Майя – цивилизация Центральной Америки, известная благодаря своей письменности, искусству, архитектуре, математической и астрономической системам. Расцвет их цивилизации приходится на первое тысячелетие нашей эры. Хотя тягловые животные и колесо им были неизвестны, Майя достигли больших успехов в сельском хозяйстве, архитектуре и гончарном производстве. Но более всего удивляют их достижения в астрономии и математике. Например, Майя определили, что солнечный год равен 365.242 дней (современные измерения – 365.242198), лунный цикл – 29.5302 дней (современные измерения – 29.53059). Такие точные астрономические измерения не возможны без развитой системы счета.

В этой задаче мы познакомимся с системой счисления Майя. Жрецы майя и астрономы использовали систему счисления с основанием 20. Их система оперировала понятиями цифры и нуль, что весьма необычно для того времени. Оба эти понятия были совершенно неизвестны населению средневековой Европы. Первые двадцать цифр двадцатеричной системы представляются точками и тире в соответствии со следующей таблицей:

Нуль изображался в виде стилизованной раковины от устрицы. Числа, состоящие из нескольких цифр (т.е. числа больше 19) записывались вертикально снизу вверх (от младших разрядов к старшим). Например, число 79 запишется как

Очень четко прослеживается влияние календарной системы Майя, так как начальным числом третьего порядка является не 400 (20x20), как это ожидается, а 360, т.е. во втором разряде используются только 18 цифр. Все остальные разряды используют все 20 цифр.

Таким образом, число 13495 (1x7200+17x360+8x20+15) запишется следующим образом

Напишите программу для перевода чисел из системы счисления Майя в десятичную.

Формат ввода
Во входном файле записано одно число в системе счисления Майя. Первая строка содержит число N (1 ≤ N ≤ 14) – количество разрядов в записи числа. В каждой из последующих N строк с точек (.) и дефисов (-) записаны цифры. Для обозначения нуля используется заглавная буква S.

Формат вывода
В выходной файл выведите число в десятичной системе счисления.

Пример 1
Ввод Вывод
1
..
2
Пример 2
Ввод Вывод
2
...
S
60
Пример 3
Ввод Вывод
4
.
..-—
...-
---

Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 1. подумать над алгоритмом 2. вот сам алгоритм: а. спросить у пользователя значения б. расчитать ответ в. выдать ответ на экран 3. написать код в паскале 4. исправить ошибки компиляции 5. протестировать, вводить разные числа 6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда 7. вставить код проверки введенных пользователем значений 8. убрать ошибки компиляции 9. протестировать 10. готово а вот и сама программа: program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end; correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end; end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.

Разветвляющимися называется такой алгоритм, в котором выбирается один из нескольких возможных вариантов вычислительного процесса. каждый подобный путь называет "ветвью алгоритма".

признаком разветвляющегося алгоритма является наличие операций проверки условия. различают два вида условий –  простые  и  составные.

простым условием (отношением)  называется выражение, составленное из двух арифметических выражений или двух текстовых величин (иначе их еще ), связанных одним из знаков:

< - меньше,

> - больше,

< = - меньше, или равно

> = - больше, или равно

< > - не равно

= - равно

например, простыми отношениями являются следующие:

x-y> 10; k< =sqr(c)+abs(a+b); 9< > 11; ‘мама’< > ‘папа’.

в примерах первые два отношения включают в себя переменные, поэтому о верности этих отношений можно судить только при подстановке некоторых значений:

если х=25, у=3, то отношение x-y> 10 будет  верным, т.к. 25-3> 10

если х=5, у=30, то отношение x-y> 10 будет неверным, т.к. 5-30< 10

проверьте верность второго отношения при подстановке следующих значений:

а) k=5, a=1, b=-3, c=-8

b) k=65, a=10, b=-3, c=2