Если пользователя не устраивает стандартная форма вывода данных, то можно в операторах вывода указать ширину поля, отводимого под значение переменной.
Общий вид записи операторов при выводе значений целого типа имеет вид:
WRITE(b:m);
WRITELN(b:m);
где b- имя выводимой переменной, m- поле, отводимое под запись значения.
Например: Вывести переменные D=105 и I=2016.
По оператору вывода WRITE(D:4, I:6);
Значение переменной D будет размещаться в четырёх позициях, а переменной I- в шести.
_ 105 _ _ 2016
Каждое значение переменной занимает крайние правые позиции отведённого поля, а незаполненные позиции образуют пробелы. Если значение переменной не размещается в отведённом поле, то число позиций увеличивается автоматически.
При выводе значений действительного типа операторы вывода имеют вид:
WRITE(b:m:n);
WRITELN(b:m:n);
где b- имя выводимой переменной, m- поле, отводимое под запись значения, n- часть поля, отводимого под дробную часть числа.
Например: Вывести переменные C=20.385 и R=8.1415.
По операторам вывода WRITE(C:6:3);
WRITELN(R:8:4);
вывод значений переменных будет осуществлён в одной строке, где для переменной C будет отведено шесть позиций, включая число позиций под дробную часть, а переменной R будет отведено восемь позиций.
20.385_ _ 8.1415
Необходимо иметь в виду, что под десятичную точку также отводится позиция. Если при выводе значений переменных действительного типа количество позиций, отводимых под дробную часть числа, не указывается, то результат выводится в нормализованном виде с десятичным порядком.
Например: При значении C=125.64*10-5 и T=223.58 по оператору вывода WRITE(C:11, T:13);
вывод значений переменных будет осуществлён в следующем виде:
_1.2564E-03 _ _ _ 2.2358E+03
При выводе нескольких значений на одной строке для наглядности задаются необходимым количеством пробелов. Для этого записывают оператор вывода в виде WRITE( _:q);
где q- число пробелов.
Например: WRITE(A,’ ‘:4,B);
Между значениями A и B обеспечивается интервал в четыре пробела. Выводимые значения могут быть выведены с именами переменных, соответствующих этим значениям и снабжены заголовками.
Первый оператор вывода осуществляет подготовку для вывода с первой позиции новой строки информации, указанной во втором операторе вывода. Второй оператор вывода выводит на экран текст Вывод значений переменных и обеспечивает подготовку для вывода информации с первой позиции новой строки третьего оператора вывода. Третий оператор вывода выводит на экран текст A= и по формату 4:2 число 1.25, соответствующее переменной A, затем делает пять пробелов. Четвёртый оператор вывода выводит на экран в той же строке текст B= и по формату 5:1 число –23.5, после этого готовит вывод информации с новой строки для следующего оператора вывода. Пятый оператор вывода выводит на экран текст C= и по формату:3 число 125, соответствующее переменной C, затем делает шесть пробелов, выводит текст D= по формату:6. Шестой оператор делает три пробела и в той же строке выводит текст Конец вывода. На экране дисплея появится результат работы операторов вывода.
Вывод значений переменных
A=1.22 _ _ _ _ _ B=-23.5
C=125 _ _ _ _ _ _ 103044 _ _ _ Конец вывода
Пример: Составить программу вычисления общей поверхности и объёма круглого конуса, имеющего радиус основания 12,54 см и длину образующей 24,88 см. При вычислении используем равенства:
S=πR2+πRL; V=1/3πR2H,
где H-высота конуса, определяемая по формуле
Программа будет иметь вид:
{Вычисление объёма конуса}
PROGRAM CONUS;
CONST PI=3.1415926;
VAR R,L,H,S,V:REAL;
BEGIN
READ(L,R);
S:=PI*R*R+PI*R*L;
H:=SQRT(L*L-R*R);
V:=PI*R*R*H/3;
WRITELN(‘Параметры конуса’);
WRITELN(‘R=’,R,’L=’,L,’H=’,H);
WRITELN(‘Поверхность конуса’’);
WRITELN(‘S=’,S);
WRITELN(‘Объём конуса’’);
WRITELN(‘V=’,V);
END.
Программа начинается с комментария. В заголовке программы после служебного слова PROGRAM указывается имя программы CONUS. Далее идёт раздел определения констант, обозначаемый словом CONST . В этом разделе константа π =3.1415926 обозначается именем PI, которое отождествляется с указанным числовым значением. Раздел описания переменных начинается со служебного слова VAR, где переменные R, L, H, S, V описаны как вещественные. В операторной части программы (после BEGIN) первым оператором является оператор ввода исходных данных L и R. В результате его выполнения переменная получает значение 12,54, а L= 24,88. В первом операторе присваивания вычисляется значение переменной S, во втором- H и в третьем- V. Далее следуют операторы вывода на печать текстов, заключённых в апострофы, и значений переменных R, L, H-во втором операторе вывода, S-в четвёртом, V-в шестом. Вывод значений переменных будет осуществлён в стандартной форме. Конец программы обозначается словом END, после которого ставится точка.
_1.2564E-03 _ _ _ 2.2358E+03
S=πR2+πRL; V=1/3πR2H,