Процедуры вывода write и writeln

Производят вывод информации на экран монитора.

Формат:

write (У₁,у₂,…,y_n);

writeln (y_1,y₂,…,y_n);

где y₁,у₂,...,У_n-имена переменных, значения которых выводятся.

Процедуры write и writeln аналогичны, их единственное отличие заключается в следующем:

write(X, Y); writeln(X,Y);

write(A, B) ; writeln(A, B) ;

вывод данных: вывод данных:

5 10 15 20 5 10

15 20

Данные для нескольких процедур write выводятся в одну строку, а данные для нескольких процедур writeln выводятся в разных строках.

Процедура writeln, записанная без параметров, вызывает перевод строки.

В процедурах вывода можно записывать комментарий, например:

write ('А=',А,' В=',В,' результат вычислений=',А*В/25);

На экране увидим следующее сообщение:

А=5 B=20 результат вычислений=1

Форматы вывода

В процедурах вывода write и writeIn имеется возможность записи выражения, определяющего ширину поля вывода.

В приведенных ниже форматах используются следующие обозначения:

I -целочисленное выражение;

р -целочисленное выражение;

g -целочисленное выражение;

R -выражение вещественного типа;

В -выражение булевского типа;

Сh -выражение символьного типа;

S -выражение строкового типа;

# -цифра;

* -знак "+" или "-";

- - пробел.

I - выводится десятичное представление величины I,

начиная с позиции расположения курсора.

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

134 write(I); 134

5671 write(I); 5671

287 write(I,I,I); 287287287

I:р - выводится десятичное представление величины I в крайние правые позиции поля шириной р.

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

134 write(I:6); __134

1 write(I:10); __________1

312 write(I+I:7); _____624

R - в поле шириной 18 символов выводится десятичное представ­ление величины R в формате с плавающей точкой. Если R > 0.0, ис­пользуется формат _#.######### Если R < 0.0, формат имеет вид _-#.#########E*##

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

715. 432 write(R); __7 15438OOOOOE+O2

-1.919Е+01 write(R); _-1.9190000000E+01

567.986 write(R/2); _2.8399300000E+02

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

Если R > 0.0, используется формат __..._#.##...#Е*#й, причем

минимальная длина поля вывода составляет 7 символов. Если R < 0.0, формат имеет вид __ .._-#.#*...#£*##. Минимальная длина поля выво­дится 8 символов. После десятичной точки выводится по крайней мере одна цифра.

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

511,04 write(R:15); -5.110400000E+02

-511.04 write(R:15); -5.11040000E+02

46.78 write(-R:12); -4.67800E+01

R:p:g - в крайние правые позиции поля шириной р символов вы­водится десятичное представление значения R в формате с фиксиро­ванной точкой, причем после десятичной точки выводится g цифр (0 <= g <= 24), представляющих дробную часть числа. Если g=0, ни дробная часть, ни десятичная точка не выводится. Если g > 24, то при выво­де используется формат с плавающей точкой.

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

511.04 write(R:8:4); 511.0400

-46.78 write(R:7:2); _-46.78

-46.78 write(R:9:4); _-46.7800

(Ch - начиная с позиции курсора, выводится значение Ch.

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

‘x’ write(Ch); x

‘y’ write(Ch); y

‘I’ write(Ch,Ch,Ch); I I I

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

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

‘x’ write(Ch:3); _x

‘y’ write(Ch:5); __y

‘i’ write(Ch:2,Ch:4); _i__i

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

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

True write(B); True

False write(B, not B); FalseTrue

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

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

True write(B:6); _True

False write(B:10); ___False

True write(B:5,not B:7): _True__False

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

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

'Day N' write(S); Day N

‘Ведомость 11’ write(S); Ведомость 11

'RRRDDD' write(S,S); RRRDDDRRRDDD

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

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

'Day N' wrjte(S:10); ____Day N

'Ведомость 11' write(S:13); _ Ведомость 11

•RRRDDD’ write(S:7,S:7); RRRDDD_RRRDDD

Если значение короче формата, излишек будет заполнен пробела­ми Если формат мал, то значение будет выводиться, игнорируя спе­цификацию, ошибки при этом не возникает Можно задавать выравнива­ние по левому краю, для этого надо ближайшую к значению спецификацию формата задать отрицательной, например

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

write(123. 456:6:1,22:4); 123.5 22

write(123.456:-6:1,22:-4); 123.522