Модуль 3.Задание 3.2.

7. Оператор присваивания на ЯП Pascal
<переменная>:=<выражение>
Пример: N:=F; или G:=A+5;
Оператор присваивания на ЯП Basic
<переменная>=<выражение>
Пример: у = (x^2 + 1.26)/2

8. Оператор ветвления в 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.

9. Оператор ввода и вывода в ЯП Pascal:
Readln('я проснулся в 8 часов') С клавиатуры вводим: проснулся в 8 часов
Writeln('я проснулся в 8 часов'); На экране появится: я проснулся в 8 часов
Оператор ввода и вывода в ЯП Basic:
INPUT "Введите число: ", A
INPUT "Введите степень числа: ", B
ST = A ^ B
PRINT "Число "; A; " в степени "; B; " = "; ST

10. Пример записи цикла с параметром на ЯП Pascal:
Квадраты чисел от 2-х до 10-и.
for x:=2 to 10 do WriteLn(x*x);

11. Пример записи цикла с параметром на ЯП BASIC:
Вычислите значение 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.