8.4.5. Вывод данных булевского типа

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

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

True write(B); True

False write(B,not B); FalseTrue

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

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

True write(B:6); True

False write(B:10); False

True write(B:5,not B:7); True False

8.5. Оператор вывода 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,'вещественные числа');

writeln(' ':5,'стандартный формат',' ':18,'заданная

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

writeln(' ':5,x,y,' ':10,'x=',x:8:2,'y=',y:6:3);

writeln;writeln('введи символы s1,s2,s3:');

readln(s1,s2,s3);

writeln(' ':20,'символьные переменные:','s1=',s1,

's2=',s2,'s3=',s3);

writeln('печать символьных переменных с шириной поля 5:'

,s1:5,s2:5,s3:5);

writeln('логическая переменная=',log);

end.

ПРОТОКОЛ РАБОТЫ ПРОГРАММЫ: введи целые числа k, l, m: -73 12 21425

целые числа

стандартный формат заданная ширина поля

-73 12 21425 k=-73 l=12 m=21425

введи вещественные числа x,y: -4192.21 21.345

вещественные числа

стандартный формат заданная ширина поля

-4.192210E+03 2.134500E+01 x=-4192.21 y=21.345

введи символы s1,s2,s3 *VF

символьные переменные s1=* s2=V s3=F

печать символьных переменных с шириной поля 5: * V F

логическая переменная = true