Примеры использования оператора WRITELN
Пример 1.
Writeln(3);
Writeln(2);writeln(6);
Пример 2.
Writeln(3,4);
Writeln(2,3);writeln(5,6);
Пример 3.
. . .
writeln('=========='); writeln; writeln; writeln; writeln; writeln; writeln('==========');
. . .
на экране
3
2
6
34
23
56
11
3.4.1.Форматный вывод для целых, логических
исимвольных данных
N - целое число
Пример 1:
Var c:integer; ch:char;
. . . ⌐⌐12
C:=12; Writeln(c:4); ⌐⌐⌐⌐y
ch:=‘y’;writeln(ch:5);
Пример 2:
var a:Boolean; begin
a:=2>3;
Writeln(a);
Writeln(1<2);
End.
False
True
12
3.4.2. Форматный вывод для вещественных данных
N:M - целые числа (N>M)
Пример 1: Var t:real;
. . .
t:=3.15;
Writeln(t:7:2);
. . .
Пример 2: Var
i:integer;Fin:real;ch:char;
. . .
i:=75;Fin:=0.325;ch:=’a’;
Writeln(Fin:10:2,i:5,ch:2);
. . .
⌐⌐⌐3.15
⌐⌐⌐⌐⌐⌐0.33⌐⌐⌐75⌐a
13
Пример вывода с заголовком
14
Пример некорректного задания формата вывода
Program write1; var s,g:real; begin
s:=234.65456;g:=0.12345; writeln('s=',s:7:3); s=234.655 writeln('g=',g:2:3); g=0.123 readln
end.
15
3.5. Пустой оператор
Пример 1:
. . .
begin
s1; s2; s3
end;
begin
s1; s2;; s3;
end;
. . .
Пример 3:
. . .
Begin
. . .
repeat until false; 
End.
Пример 2:
. . .
repeat
s1; s2; s3
until bool;
. . .
16
Пример завершения программы с использованием пустого оператора
17
3.6. Метки и оператор безусловного перехода
Определение метки
целое без знака
:
идентификатор
Описание метки
label 
метка
,
Оператор безусловного перехода 
goto 
метка
Примеры: (меток)
Label 10,metka1,error;
. . .
10:x:=1;...
metka1:...
error:;...
Примеры: (оператора) goto 10;
goto metka1; goto error;
18
Правила использования оператора перехода:
•все метки должны быть описаны только один раз;
•метка должна помечать оператор, находящийся в том же блоке, что и оператор goto;
•(переход внутрь структурированного оператора может вызвать непредсказуемые эффекты).
BS-программы (Bowl-Of-Spaghetti)
19