Значение Ch Выражение Результат

'A' Write (Ch); Х

'*' Write (Ch, Ch, Ch); ***

ж) Ch:p - в крайнюю правую позицию поля шириной р выводится значение Ch.

Значение Ch Выражение Результат

'A' Write (Ch:3); __X

'B' Write (Ch:5); _____B

з) S - начиная с позиции курсора, выводится значение S (строка или массив сим­волов, если его длина соответствует длине строки).

Значение S Выражение Результат

'Месяц 4' Write (S); Месяц 4

'Билет №' Write (S); Билет №

и) S:p - значение S выводится в крайние правые позиции поля шириной р симво­лов.

Значение S Выражение Результат

'Месяц 4' Write (S:10); ___Месяц 4

'Билет №' Write (S:13); ______Билет №

к) В - выводится результат выражения В True или False, начиная с текущей по­зиции курсора.

Значение В Выражение Результат

True Write (В); True

False Write (B, not В); False True

л) B:p - в крайние правые позиции поля шириной р символов выводится результат булевского выражения В True или False.

Значение В Выражение Результат

True Write (В:7); ___True

False Write (В:10); _____False

Для пояснения работы процедуры Writeln приведем фрагмент программы:

Пример 4.4. Программа вычисляет площадь прямоугольного треугольника и

выводит результат на печать

ProgramPr4_4;

UsesWinCrt;

Var

f:text;

a, b: integer; {a,b - длина сторон, S - площадь}

s:real;

begin

a:= 12; b:= 6;

s:= a * b/2;

assign(f,'prn');

Writein (f, '—————————————————————— |') ;

Writein(f,' | Сторона a | Сторона b | Площадь |');

Writein (f, '——————————————————————|') ;

Writeln (f, '|', А:7, В:11, S:11:3, '|':2);

Writein (f, ' -—————-----————-------------———————')

end.

В результате работы программы будет напечатана таблица:

-------------------------------------------------------

| Сторона а | Сторона b | Площадь |

------------------------------------------------------

| 12 | 6 | 36 |

-------------------------------------------------------

каждая строка которой будет печататься с первой позиции новой строки печатаю­щего устройства.