Оператор вывода writeln

Оператор записи writeln аналогичен оператору write, но после вывода последнего в списке значения для текущего оператора writeln происходит перевод курсора к началу следующей строки. Оператор writeln, записанный без параметров, вызывает перевод строки. Для пояснения работы оператора writeln приведем фрагмент программы:

a:=4;b:=6;c:=55;

write(a:3);write(b:3);write(c:3);

Summa:=a+b+c; writeln('a=',a); writeln('b=',b); writeln('c=',c); writeln('сумма a+b+c равна',Summa);

Результат выполнения: 4 6 55 a=4

b=6

c=55

Сумма a+b+c равна 65.

Примером использования формата в операторе writeln может служить следующая программа.

Program Prim; Программа вычисляет площадь прямоугольника и выводит на печать результат

Var A,B,Pl:integer; A,B - длина сторон, Pl - площадь

Begin

A:=8;B:=4;

Pl:=A*B; writeln(Lst,'--------------------');

writeln(Lst,'!Сторона A!Сторона B!Площадь!');

writeln(Lst,'-------------------------------');

writeln(Lst,'!',A:7,B:11,Pl:11,'!':5);

writeln(Lst,'-------------------------------'); End.

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

Сторона A!Сторона B!Площадь!

8 4 32!

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

8.6. Пример программы организации ввода-вывода данных стандартных скалярных типов

Исходные данные: K=-73, L=12, M=21425, X=-4192.21, Y=21.345, S1='*', S2='V', S3='F' вывести двумя способами: в стандартной форме и указанием ширины поля вывода, при этом выводимую информацию необходимо снабдить заголовками.

Program inout(input,output); const log=true;

var k,l,m:integer;x,y:real;s1,s2,s3:char;

begin writeln('введи целые числа k,l,m:');

read(k,l,m);

writeln(' ':30, 'целые числа');

writeln(' ':15, 'стандартный формат',' ':12,

'заданная ширина поля');

writeln(' ',k,l,m,' ':5,'k=',k:3,'l=',l:2,'m='

,m:5);

writeln;writeln('введи вещественные числа x,y:');

readln(x,y);

writeln(' ':25,'вещественные числа');