Вывод данных
Процедура вывода Write производит вывод данных.
Общий вид: Write();
В списке вывода могут быть представлены выражения допустимых типов данных (integer, real, char и т.д.) и произвольный текст, заключенный в апострофы.
Например, Write(‘Привет’); Write(34.7); Write(45+55); Write(b, d);
Процедура Writeln аналогична процедуре Write. Отличие в том, что после вывода последнего в списке выражения курсор переходит на начало новой строки.
В процедурах вывода Write и Writeln имеется возможность записи выражения, определяющего ширину поля вывода.
При рассмотрении форматов вывода примем следующие обозначения:
I, p, q – целочисленное выражение;
R - выражение вещественного типа;
# - цифра;
* - знак «+» или «- »;
_ - пробел.
| Значение I Выражение Результат | 324 Write (I); 324 | 34 Write (I, I, I); 343434 | 324 Write (I : 6); ___324 | 312 Write (I + I : 7); ____624 |
| Значение R Выражение Результат | 123.432 Write (R); __1.2343200000E+02 | -1.34E+01 Write (R); _ -1.3400000000E+01 | 304.55 Write (R :15); 3.045500000E+02 | |
| Значение R Выражение Результат | 304.66 Write (R :8 : 4); 304.6600 | 45.322 Write (R : 5 : 2); 45.32 |
Пример:
Program primer;
Var
a, b, c, sum:integer;
begin
a:=4; b:=6; c:=55;
Write(a:3); Write(b:3); Write(c:3);
Sum:=a+b+c;
Writeln (‘A=’,a);
Writeln (‘B=’,b);
Writeln (‘C=’,c);
Writeln (‘Сумма A+B+C равна ’, sum);
End.
Результат выполнения:
4 6 55
А=4
В=6
С=55
Сумма А+В+С равна 65
