Writeln(a,,b,,c)

– в виде 1 2 3, а процедура

writeln('a=',a,' ','b=',b,' ','c=',c)

Пример 3.4

const m = 6; n = 2;

var omega, q: real;

Begin

………………………………

writeln(omega:8:3, q:m:n);

………………………………

Конкретные значения выводимых данных в большинстве случаев программисту не известны, поэтому при назначении длин форматов легко допустить ошибку. При этом может возникнуть одна из двух ситуаций: либо длина формата назначена больше, чем это необходи­мо, либо она недостаточна для вывода данного.

В первом случае лишние позиции заполняются пробелами перед целой частью числа, а во втором длина формата автоматически уве­личивается до минимально необходимой.

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

Пример 3.5.Пусть x = 1.23456780000000E+0003, тогда:

а) операторwriteln(x:9:4) выведет 1234.5678 – формат полностью соответствует выводимому данному;

б) оператор writeln(x:12:4) выведет 1234.5678 – длина формата превышает количество позиций в числе (восемь цифр плюс точка); три лишние позиции заполнены пробелами перед целой частью числа;

в) оператор writeln(x:12:2) выведет 1234.57 – под дробную часть данного отведено две позиции вместо необходимых четырех, поэтому она округлена до двух знаков после десятичной точки; пять лишних позиций перед целой частью заполнены пробелами;

г) оператор writeln(x:8:4)выведет 1234.5678 – длина формата увеличена до минимально необходимой;

д) оператор writeln(x:12:6) выведет 1234.567800 – дробная часть числа справа дополнена двумя нулями, целая часть слева одним пробелом.

Для вывода данных целого, символьного и булевского типов ис­пользуют спецификацию формата, состоящую из одной целой константы, которая за­дает его длину.

Пример 3.6.Пусть z = 5656. Тогда:

а) операторwriteln(z:6) выведет 5656;