Задание форматов вывода данных.

вывод данных целого типа:

Write(X);	Выводится значение Х, начиная с позиции курсора
Write(X:n);	Значение Х выводится в крайние правые позиции поля шириной n символов

вывод данных действительного типа:

Write(X);	В поле шириной 18 символов выводится значение Х в формате с плавающей точкой, начиная с позиции курсора. Используется формат #.#########E±##
Write(X:n);	В поле шириной n символов (n³7) выводится значение Х в формате с плавающей точкой, начиная с позиции курсора. Используется формат #.#####E±##
Write(X:n:d);	В крайние правые позиции поля шириной n символов выводится значение Х в формате с фиксированной точкой, причем после десятичной точки выводится d знаков (0£d£24)

вывод данных символьного и строкового типа:

Write(X);	Выводится значение Х начиная с позиции курсора
Write(X:n);	Значение Х выводится в крайние правые позиции поля шириной n символов

вывод данных логического типа.

Write(X);	Выводится значение Х в виде True или False, начиная с позиции курсора
Write(X:n);	Значение Х выводится в крайние правые позиции поля шириной n символов в виде True или False

В программах, основной целью которых является отладка алгоритма расчётов, исходные значения переменных можно задавать непосредственно в тексте программы, например:

Var

x:real;

n:integer;

s:string[15];

Begin

x:=10.5;

n:=100;

s:=’Turbo Pascal’;

End;

Упражнение 1.Ввести текст программы, выполняющей расчёт площади круга по известному значению радиуса. В программе используется стандартная константа pi для выражения числа p=3,1415….

Program Krug; Uses Crt; Var r,s:real; Begin Readln(r); s:=pirr; WriteLn(s); End.
При отсутствии ошибок в тексте программы она будет скомпилирована и выполнена. Результаты работы программы будут отображены в окне пользователя (для просмотра использовать Alt+F5).

Данная программа с точки зрения языка Pascal является синтаксически и логически правильной, обеспечивая правильный результат расчёта. Однако интерфейс программы нельзя считать удовлетворительным.

Для обеспечения удобства выполнения расчётов программа должна выводить сообщения о своём назначении, давать инструкции по вводу данных и пояснения к результатам расчетов.

Следующий вариант той же программы демонстрирует простые способы улучшения интерфейса:

Program Krug;

Uses Crt;

Var

r,s:real;

Begin

ClrScr; { Очищаем экран }

WriteLn(’Программа для вычисления площади круга’);

{ Выводим информационные сообщения }

WriteLn(’Введите исходные данные’);

Write(’Введите величину радиуса, см R = ’);

Readln(r); { Вводим значение r }

s:=pi*r*r; { Выполняем расчет значения s }

WriteLn(’Результаты расчетов’);

{ Выводим результаты с точностью 2 десятичных знака }

WriteLn(’Площадь круга с радиусом ’,r:8:2, ’ см равна ’,
S:8:2, ’ кв.см’);

{ Организуем задержку выполнения программы до нажатия Enter }

Readln;

End.

Результаты работы программы будут отображены в окне пользователя и останутся на экране, пока пользователь не нажмет клавишу Enter.