Лекция: Begin <операторы> end.

Вывод результатов происходит по оператору write (write — писать) или writeln (writeln — писать в строку.

Арифметический оператор присваивания на Паскале имеет следующий формат:

<числовая переменная>:=
<арифметическое выражение>

Арифметическое выражение может содержать числовые константы и переменные, знаки арифметических операций, круглые скобки. Кроме того, в арифметичесих выражениях могут присутствовать функции.

Знаки основных арифметических операций записываются так:

Примеры программ на языке программирования Pascal

Линейная стуктура

Задача. Заданы длины двух катетов прямоугольного треугольника a, b. Вычислить длину гипотенузы с.

Program treug;
var a, b ,c: real;
begin
write ('a='); read (a);
write ('b='); read (b);
c:=sqrt (a*a+b*b);
writeln ('c=', c:6:2);
end.

Ветвление

Задача. Упорядочить значение двух переменных X и Y по возрастанию.

Program Sorting;
var x, y, c: real;
begin
readln (x,y);
if x>y then begin
c:=x;
x:=y;
y:=c;
end;
write (x,y);
end.

Цикл

Задача. Дано N кубиков, на которых написаны разные буквы. Сколько различных N-буквенные слов можно составить из этих кубиков (слова необязательно должны иметь смысл)?

Program Words;
var f, n, r: integer;
begin
write ('введите число букв');
readln (n);
f:=1;
r:=1;
while r<=n do
begin
f:=f*r;
r:=r+1;
end;
write ('Из', n, 'букв можно составить ', f, 'слов');
end.