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
