СИНТАКСИЧЕСКАЯ ДИАГРАММА ФОРМАТА ВЫВОДА

СИНТАКСИЧЕСКАЯ ДИАГРАММА ОПЕРАТОРА WRITE

Процедуры вывода WRITE и WRITELN

 

Эти процедуры служат для вывода на экран констант (как числовых, так и текстовых), значений переменных и выражений. Они вызываются с помощью одноименных операторов процедур.

 

Например: WRITE ('программа', X, Y-Z*3).

По этому оператору на экране будет напечатано в одной строке слово "программа" и далее без пробелов значения переменной X и выражения Y-Z*3. Чтобы отделить элементы вывода друг от друга, используется прием форматирования вывода. Так, WRITE(А:20) показывает, что значение переменной А занимает 20 позиций на экране. Если в А входит менее 20 символов, то они сдвигаются вправо, а слева строка заполняется пробелами.

Двойное форматирование используется только для вывода вещественных констант. Например, WRITE(C:17:7) означает, что для вывода C отведено всего 17 позиций, из них 7 позиций предназначены на представление дробной части. Если формат не указан, то вещественные константы выводятся на экран в экспоненциальной форме.

Работа оператора WRITE отличается от работы оператора WRITELN тем, что по завершению вывода у WRITE курсор остается в конце списка вывода, а у WRITELN он переходит на следующую строку. Часто используют оператор WRITELN без списка вывода для печати пустой строки.

Проиллюстрируем работу всех операторов на следующем примере:

 

program AVERAGE;

var FIRST, SECOND, TROIS, SUM: integer;

begin

writeln('Введите 3 числа ');

readln(FIRST,SECOND,TROIS);

SUM := FIRST + SECOND + TROIS;

writeln(' Среднее значение ',FIRST:4,',',SECOND:4,',');

write(TROIS:4,' равно ';(SUM div 3):3)

end.

На экране будет напечатано:

 

'Введите 3 числа  
2 12 9    
Среднее значение 3, 12, 9 равно 8
     

ПРИМЕЧАНИЕ. Мы рассмотрели только два вида операторов вызова процедур READ и WRITE. Более подробно о них речь пойдет в разделе "Процедуры".