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

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

Program <Имя программы>;

Label <раздел описания меток>;

Const < раздел описания констант>;

Type < раздел описания типов>;

Var < раздел описания переменных>;

Procedure (Function) < раздел описания подпрограмм>;

Begin

<раздел операторов>

End.

7)Оператор присваивания:

·         В языке Паскаль:

<переменная>: = <выражение>

пример: Х:=А

·         В языке Basic:

<переменная> = <выражение>

пример: Х=А

8)Оператор ветвления :

В ЯП Паскаль:

If <логическое выражение> then <оператор1> else <оператор2>;

Пример: IF n = 1 THEN GOTO 10 ELSE GOTO 20

В ЯП 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.

9)Операторы ввода-вывода

В ЯП Паскаль:

Ввод  данных с клавиатуры:

read(<список ввода>); readln(<список ввода >);

Вывод  данных на экран:

write(<список вывода>); writeln(<список вывода >);

В ЯП Basic:

Ввод  данных с клавиатуры:

INPUT <Переменная>

Вывод  данных на экран:

PRINT <Список вывода>

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.