Задание 3 модуль 3 (часть 2)

-Структура программы на ЯП Pascal:
Program <Имя программы>;
Label <раздел описания меток>;
Const < раздел описания констант>;
Type < раздел описания типов>;
Var < раздел описания переменных>;
Procedure (Function) < раздел описания подпрограмм>;
Begin
<раздел операторов>
End.

-Операторы присваивания в ЯП Pascal и Basic:
В языке Паскаль:
<переменная>: = <выражение> Пример:
а:=2; b:=8;
S:=а+b

В языке Basic:
<переменная> = <выражение> Пример: S=a+b

-Операторы ветвления в ЯП Pascal и Basic:
В ЯП Паскаль
If <логическое выражение> then <оператор1> else <оператор2>
Пример: if min > max then begin
t := min;
min := max;
max := t;
end;

В ЯП Basic
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)
Пример: If NumberFirst > NumberSecond Then

Print “Наибольшее из чисел первое:”; NumberFirst
Else

Print “Наибольшее из чисел второе:”; NumberSecond
End If

-Примеры записи операторов ввода и вывода ЯП Pascal и Basic:
В ЯП Паскаль
Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);
Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >)
Пример: ReadLn(A1,A2,...AK); Write(A1,A2,...AK);
WriteLn(A1,A2,...AK)

В ЯП Basic
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>
Пример: INPUT "Радиус окружности: "; r
PRINT "Площадь = "; PI * r ^ 2

-Пример записи цикла на ЯП Pascal: For V:= E1 to E2 do S (цикл с параметром)
For i:= 1 to n do y:= y+1/i

-Пример цикла с параметром на ЯП Basic:
for i=1 to 5
f=f*2
next i