Модуль 3 задание 3 (7-11 вопр)

7. Оператор присваивания в Паскаль:
<переменная>:=<выражение>
Например, V:=A; или V:=A+1;
Оператор присваивания в Бейсик:
<переменная>=<выражение>
Например, V=A; или V=A+1;

8. Операторы ветвления в Бейсик:
If Условие Then
Серия 1
Else
Серия 2
End If
Операторы ветвления в Паскаль:
If <логическое выражение> then <оператор 1>else <оператор 2>;
Пример: Program BID1;
var А, В, С : real;
begin readln(А, В);
if A>B
then C:=A
else C:=B;
writeln(С)
end.

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

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

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

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