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

6) Структура программы на ЯП Pascal

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

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

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

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

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

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

Begin

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

End.

7) Оператор присваивания в ЯП Pascal

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

Пример y:=x+5

Оператор присваивания в ЯП Basic

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

Пример a=b*2-1

8) Оператор ветвления в ЯП Pascal

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

Пример  if b < c

 then m := b

 else m := c; 

Оператор ветвления в Basic

If Условие Then
Серия 1
Else
Серия 2
End If

Пример IF A>B THEN

 S=A

ELSE

 S=B

PRINT S

END IF

9) Оператор вода-вывода на Паскаль

 writeln('Введите сторону a прямоугольника');

readln(a);

writeln('Введите сторону b прямоугольника');

readln(b);

writeln('a=',a,' b=',b:6:4);

writeln('Площадь =',a*b:6:1);

writeln('Периметр =',2*(a+b):3);

end.

Оператор ввода-вывода на Бейсик

INPUT " введите длины сторон прямоугольника "; a , b

 PRINT " a = " ; a ; " b = " ; b

 PRINT " a = " ; a , " b = " ; b

 PRINT "площадь = " ; a * b

 PRINT TAB(27)"периметр прямоугольника = " ; 2 * ( a + b )

10­) Примеры записи цикла с предусловием на ЯП Pascal

Дано вещественное число М. Требуется найти наименьшее целое неотрицательное число k, при котором 3 k> M.

y:=1; k:=0;

 While y<=M do

 Begin

    y:=y*3;

    k:=k+1;

 End;

11) Пример записи цикла с параметром на ЯП Бейсик

Счетчик от 1 до 10 с шагом 1

For I = 1 To 10 Step 1

Next I