Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
В заголовке указано имя программы - 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 Формат и назначение операторов вывода данных.
Дата публикования: 2014-12-11; Прочитано: 200 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!