СИНТАКСИЧЕСКАЯ ДИАГРАММА ФОРМАТА ВЫВОДА
СИНТАКСИЧЕСКАЯ ДИАГРАММА ОПЕРАТОРА 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. Более подробно о них речь пойдет в разделе "Процедуры".