Модуль 3 задание 3-2

Оператор присваивания - основной оператор любого языка программирования. Общая форма записи оператора Pascal:
имя величины := выражение
Например, V:=A; или V:=A+1;
Basic: Операторы присваивания выполняют присваивание, сводящееся к вычислению значения справа от оператора присваивания (=) и его записи в элементе слева, как в следующем примере:
V=42.


Оператор ветвления в Pascal:
If<логическое выражение>then<опратор1>else<опратор2>;
Пример: if A>B
then C:=A
else C:=B;
writeln(С)
Оператор ветвления в Basic:
If Условие Then
Серия 1
Else
Серия 2
End If
Пример: If Pay > 1000 Then
Bonus = Pay / 100
ElseIf Pay > 10000 Then
Bonus = Pay / 90
ElseIf Pay > 100 000 Then
Bonus = Pay / 80
ElseIf Pay > 1000 000 Then
Bonus = Pay / 70
Else Bonus = Pay / 200
End If
Блок условия Else будет выполняться, если Pay <= 1000.


В Pascal:
Для ввода исходных данных чаще всего используется процедурa Read, ReadLn:
ReadLn(A1,A2,...AK);
Для вывода результатов работы программы на экран используются процедуры Write, Writeln:
Write(A1,A2,...AK);
WriteLn(A1,A2,...AK);


B Basic:
Ввод: INPUT <Переменная>
Вывод: PRINT <Список вывода>


Пример кода оператора цикла Паскаля с постусловием
Readln(n);
i:=0;
y:=0;
Repeat
i:=i+1;
y:=y+1/i;
Until i>n;


Запись цикла с параметром на ЯП Бэйсик:
Вычислите значение Sin, Cos и tg углов от 0 до 45 градусов с шагом в 1 градус.
CONST PI=3.1415
FOR I=1 TO 45
X=PI*I/180
Y1=SIN(X)
Y2=COS(X)
Y3=TAN(X)
PRINT I, “Sin=”;Y1, “Cos=”; Y2, “tg=”; Y3
NEXT I