Описание программы. В заголовке указано имя программы - Midding (среднее), затем словом var открывается раздел описания переменных: X и Y – целые

В заголовке указано имя программы - Midding (среднее), затем словом var открывается раздел описания переменных: X и Y – целые, Z – вещественная. Слово begin открывает основной блок программы, в котором:

▪ оператор WriteLn выводит на экран текст "Введите два целых числа X и Y:";

▪ оператор ReadLn(X,Y)считывает значения чисел, введённых с клавиатуры и присваивает их соответственно целым переменным X и Y;

▪ далее выводится текст "Введите вещественное число Z:",

оператор ReadLn(Z)считывает значение числа, введённого с клавиатуры и присваивает его вещественной переменной Z;

▪ затем оператор присваивания вычисляет среднее значение X,Y,Z и присваивает его переменной Midd, затем аналогично вычисляется квадрат этой величины и присваивается переменной SqrMidd;

▪ оператор Writeln выводит текст "Среднее арифметическое = ",

рассчитанное значение Midd и переводит курсор на новую строку;

▪ оператор Write выводит текст "Квадрат среднего арифметического = " и рассчитанное значение SqrMidd;

▪ оператор end. закрывает основной блок и завершает выполнение программы.

Пример 2 Вычислить площадь круга S и длину окружности L по заданному радиусу R.

Программа

Program KRUG;

const P=3.14159

Var

R,S,L:Real;

Begin

Read(R);{ввод значения радиуса}

L:=2*P*R;

S:=P*SQR(R);

Writeln(Длина окружности = ',L,'см');

Write('Площадь круга = ',S,'кв.см');

End.

Контрольные вопросы

1 Из каких разделов состоит любая программа на языке Pascal?

2 Формат и назначение оператора присваивания.

3 Формат и назначение операторов ввода данных.

4 Формат и назначение операторов вывода данных.