Управление формой вывода данных

Если пользователя не устраивает стандартная форма вывода данных, то можно в операторах вывода указать ширину поля, отводимого под значение переменной.

Общий вид записи операторов при выводе значений целого типа имеет вид:

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=1.22; B=-23.5; C=125; D=103044.

WRITELN;

WRITELN(‘Вывод значений переменных ’);

WRITE(‘A=’,A:4:2, ‘ ’:5);

WRITELN(‘B=’,B:5:1);

WRITE(‘C=’,C:3,’ ’:6,’D=’,D:6 );

WRITELN(‘ ’:3,’Конец вывода’);

Первый оператор вывода осуществляет подготовку для вывода с первой позиции новой строки информации, указанной во втором операторе вывода. Второй оператор вывода выводит на экран текст Вывод значений переменных и обеспечивает подготовку для вывода информации с первой позиции новой строки третьего оператора вывода. Третий оператор вывода выводит на экран текст 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=πR²+πRL; V=1/3πR²H,

где 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, после которого ставится точка.