6.2. Управление шириной поля вывода в процедурах Write и Writeln

Необходимо отметить, что вещественные числа могут выводиться в специфической форме константы с порядком. Для этого необходимо записать справа от объекта вывода двоеточие, число позиций для вывода значения, еще раз двоеточие и число показываемых при выводе дробных разрядов (хотя бы ноль). Например, оператор Writeln (A:7:2) выведет на дисплей округ­ленное до сотых значение А, используя семь, а если этого недос­таточно, и большее число позиций.

Проиллюстрируем действие операндов ширины поля на примере программы TYPING (справа пред­ставлена информация, выводимая на внешнее устройство - дисплей):

PROGRAM TYPING; VAR A, B, C : INTEGER; D:CHAR; E:STRING; F:BOOLEAN; BEGIN A := 27; B := 34; C := 76; D:='M'; E:='Медицина'; F:=TRUE; WRITE (A, B, C); WRITELN; WRITE (A : 3, B : 3, C :3); WRITELN; WRITE (A :2, B : 4, C); WRITELN; WRITELN(D:4, E:9); WRITELN(F:6); END.

273476 _27_34 _76 27_ _ 3476 _ _ _ M_ Медицина _ _ TRUE

Формат данных, выведенных программой TYPING, указывает, что при вы­воде на внешнее устройство элемент дополняется пробелами слева в соответствии с указанной шириной поля. Ширина поля резервирует число позиций, предназна­ченных для вывода элемента списка.

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

PROGRAM REAL_VALUE; VAR X : REAL; BEGIN X := 231.45; WRITELN(X); WRITE(X : 8); WRITELN; WRITELN(X : 10); END.

_2.3145000000E+02 _2.3E+02 _2.315E+02

Отметим, что оператор Writeln, в формате которого отсутствует список элементов, служит для перевода курсора в первую позицию новой строки. Для вывода вещественных чисел в операторах процедур WRITE, WRITELN может быть использован второй операнд ширины поля, который указывает, сколько цифр выводить для числа с фиксированной точкой после точки.

Пример использования операнда:

PROGRAM DOUBLE; VAR A : REAL; BEGIN A := 432.684522; WRITELN(A : 6 :2); WRITELN(A : 8 : 2); WRITELN(A : 8 : 4); END.

432.68 _ _ 432.68 432.6845

6.3. Пример выполнения задания

Рассмотрим пример программы, выводящей таблицу значений функции в диапазоне x = 1,0  3,0 c ша­гом hx = 0, 5.

PROGRAM TABLE;

VAR