3.1 Примеры составления линейной программы

Пример 1 Найти среднее арифметическое трёх чисел - двух целых (X и Y) и одного вещественного (Z) и квадрат среднего арифметического.

Программа:

program Midding;{можно программу назвать и по-другому, но латинскими буквами и цифрами. Первой должна быть буква}

var

X, Y: Integer;// объявляем целые переменные

Z, Midd, SqrMidd: Real;// объявляем действительные

Begin // после begin точка с запятой не нужна

WriteLn('Введите два целых числа X и Y:');

ReadLn(X,Y);

WriteLn('Введите вещественное число Z:');

ReadLn(Z);

Midd:=(X+Y+Z)/3;

SqrMidd:=SQR(Midd)

Writeln('Среднее арифметическое = ',Midd);

Write('Квадрат среднего арифметического = ',SqrMidd);

end.

Описание программы

В заголовке указано имя программы - 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.

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

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

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

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

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

5 Задание

№ вар	Задание
1	2
1	Определить расстояние между двумя точками с координатами (x1,y1) и (x2,y2).
2	Найти периметр и площадь прямоугольника.
3	Вычислить:
4	Найти площадь поверхности куба по формуле T=6a²
5	Определить расстояние, пройденное физическим телом за время t, если тело движется с постоянной скоростью v.
6	Вычислить:
7	В году примерно 3.156х10⁷сек. Написать программу, которая запрашивает возраст в годах и переводит его в секунды.
8	Вычислить:
9	Найти объем цилиндра по формуле: V=R²H
10	Найти расстояние от точки с координатами (x,y) до начала координат.
11	Масса m одной молекулы воды примерно равна 3.0х10^-23гр. Кварта воды равна примерно 950 гр. Написать программу, которая запрашивает количество воды в квартах и выводит число молекул в этом количестве воды.
12	Найти объем куба по формуле V=a³. (с использованием и без использования стандартных функций).
13	Вычислить:
14	Написать программу, которая запрашивает количество дней и переводит в недели и дни. Например, 18 дней = 2 недели и 4 дня.
15	Найти диагональ и площадь квадрата
16	Вычислить:
17	Найти площадь боковой поверхности шара: T=4R²
18	Вычислить:
19	Вычислить:
20	Написать программу, которая запрашивает время в часах и минутах, после чего переводит в минуты, затем в секунды и выводит результаты на экран.
21	Вычислить:
22	Найти площадь всей поверхности цилиндра: T=2R(R+H)