Изучаю Паскаль. Присоединяйтесь.

[Vladimir3621]

Да, это старый долбанный добрый Басик Оператор CLEAR рекомендовалось всегда использовать в начале программы, т.к. он закрывал и очищал и приводил в должное состояние все, что в принципе возможно и что могло помешать работе программы. Что-то такое DEGREE не знаю не только я но и даже интернет Предположу, что включается режим расчета в градусах вместо радиан. Т.е. все аргументы тригонометрических функций будут восприниматься транслятором как указанные в градусах, а не в радианах.

[CyberManiac]

Вопрос по такой программе, хочу переписать её на Pascal.

Код: [Выделить]

10: CLEAR : DEGREE
20: FOR X = 1 TO 100
30: Y = EXP(LN(ATN(TAN(45))))
40: N EXT X
50: PRINT Y
60: END.
Я так понимаю, что это написано на Бейсике. Я давно (во времена Синклера) на нём даже чего-то писал, а ща не помню ничего.

Это какой-то албанский Бейсик. Любой более-менее современный компилятор строчку Y = EXP(LN(ATN(TAN(45)))) вообще выкинет, потому что, во-первых, это константа, а во-вторых, используемая всего один раз после цикла. Такими программами сейчас только программируемые микрокалькуляторы можно тестировать на быстродействие.

PS На Озоне сейчас, кстати, прикольный калькулятор Uniel US-54 продают меньше, чем за шестьсот рублей. И на нём даже можно программировать всякие извращения.