Упражнение 1.

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

Program Krug; Uses Crt; Var r,s:real; Begin Readln(r); s:=pi*r*r; 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.

Задания

1. Организовать ввод значений переменных: t– действительного типа;mиn- целого типа;ch– символьного типа;st– строки, длиной 15 символов. Сделать пояснения на экране для пользователя. Вывести значения этих переменных в одну строку, через два пробела, в следующем порядке:st, m, t, ch, n. Дляtвывести 3 десятичных знака.

2. Вывести значения этих переменных в один столбец, выровненный по левому краю, в следующем порядке: n, ch, m, st, t.

3. Вывести значения этих переменных в один столбец, выровненный по правому краю. Правый край должен быть расположен в 15-й позиции строки. Переменные вывести в следующем порядке: n, ch, m, st, t.

4. Вывести 5 раз значение переменной  t  в столбец, выровненный по правому краю, количество десятичных знаков должно быть равно номеру строки.

5. Вывести в одну строку значения переменной tв трёх разных вариантах формата вывода действительных переменны, через 5 пробелов друг от друга.

6. Вывести 5 раз значение переменной chв одну строку, с постепенным увеличением количества пробелов между значениями.

7. Вывести значения переменной nв центр 5-й строки иmв центр 8-й строки;

8. Вывести на экран горизонтальную линию на всю ширину экрана из знаков ‘‘ (минус).

9. Вывести на экран пустую таблицу, состоящую из 4-х столбцов, шириной 10 знаков и 5 строк. Для изображения линий таблицы использовать знаки ‘‘ (минус), ‘|‘ (вертикальная черта), ‘+‘ (плюс).

10. Вывести результат сравнения величин mиn.

11. Пронумеровать строки на экране.

12. Написать программу, которая для заданного целого числа a(2a  10) выводит следующую таблицу

a

a a²

a a²a³

a a²a³a⁴