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

6)Структура программ в Паскале:

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

7.Оператор присваивания - В языке Паскаль: <переменная>: = <выражение>
пример: Х:=А
-В языке Basic: <переменная> = <выражение>
пример: Х=А

8. Оператор ветвления :
В BASIC:
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)
Пример:
if i < 10 puts "Число #{i} меньше 10" elsif i < 20 puts "Число #{i} между 10 и 20" elsif i < 30 puts "Число #{i} между 20 и 30" else puts "Число #{i} больше или равно 30" end end. В Паскале: If <логическое выражение> then <оператор1> else <оператор2>;
Пример: IF n = 1 THEN GOTO 10 ELSE GOTO 20

9.Операторы ввода-вывода:
В BASIC:
Ввод данных с клавиатуры:
INPUT <Переменная>
Вывод данных на экран:
PRINT <Список вывода>
В Паскале:
Ввод данных с клавиатуры:
read(<список ввода>); readln(<список ввода >);
Вывод данных на экран:
write(<список вывода>); writeln(<список вывода >);

10.Program Natur;
var a, Summa, N: integer;
begin
write(‘N=’); readln(N);
{Цикл с предусловием}
a: = 1; Summa: = 0;
while a < = N do begin Summa: = Summa + a; a: = a + 1 end; writeln(‘Результат суммирования’, Summa); {Цикл с постусловием} a: =1; Summa: =0; repeat Summa: = Summa + a; a: = a + 1 until a > N;
writeln(‘Результат второго суммирования’, Summa);
{Цикл с параметром}
Summa: =0;
for a: = 1 to N do Summa: = Summa + a;
writeln(‘Результат третьего суммирования’, Summa);
end.

11.FOR J=2 ТО 10 SТЕР 2
PRINT J, J*J
NEXT J
END.