X, y, rez: real;
begin
{Вод значений с клавиатуры}
write(' Введите длину X:= '); readln(x);
write(' Введите ширину Y:='); readln(y);
{Вычисляем периметр участка}
rez:= 2*x + 2*y;
{Вычисляем нужное количество досок}
rez:= rez/0.1;
{Выводим результат на экран}
writeln('Число досок = ', rez);
readln; {Задержка закрытия программы}
end.
Упражнение1.1
Комната прямоугольной формы имеет длину Х метров, а ширину У метров и высоту Н метров. Напишите программу вычисления количества рулонов бумаги необходимых для оклейки стен, если ширина рулона 0,8метра а его длина 10метров.
program Ypr_1;
var
a, x, y, h, rez: real;
begin
write(' Введите длину X:= '); readln(x);
write(' Введите ширину Y:='); readln(y);
write(' Введите высоту H:='); readln(h);
a:=0.8*10;
rez:=(x+y)*2;
rez:=rez*h;
rez:=rez/a;
writeln('Число рулонов = ', rez);
readln;
end.
Упражнение 1.2
Составить программу для вычисления катета прямоугольного треугольника а по данному катету в и гипотенузе с.
program Ypr_1_2;
var
a, b, c: real;
begin
write(' Введите катет b:='); readln(b);
write(' Введите высоту c:='); readln(c);
a:=sqrt(sqr(c)-sqr(b));
writeln('катет равен = ', a);
readln;
end.
Листинг 2.
Напишите программу ввода трёх произвольных чисел X, Y и Z с клавиатуры. Если X больше Z, то вывести на экран сумму X и Y, иначе вывести на экран значение Z.
Решение:
program Pr2;
var
x, y, z, rez: real;
begin
{Вод значений с клавиатуры}
write('Введи X:='); readln(x);
write('Введи Y:='); readln(y);
write('Введи Z:='); readln(z);
{Сравниваем значения по условию задачи}
if x > z then rez:= x + y else rez:= z;
{Выводим результат на экран}
writeln(rez);
readln; {Задержка закрытия программы}
end.
Листинг 2.1.
Напишите программу ввода с клавиатуры трёх произвольных чисел X,Y,Z. Программа должна найти наименьшее число из введённых и вывести его на экран.
Решение:
program Pr2_1;
var
x, y, z, min: real;
begin
{Вод значений с клавиатуры}
write('Введи X:='); readln(x);
write('Введи Y:='); readln(y);
write('Введи Z:='); readln(z);
{Присваиваем начальное значение минимуму}
min:= x;
{Делаем проверку}
if min > y then min:= y;
if min > z then min:= z;
{Выводим результат на экран}
writeln('Минимум = ', min);
readln; {Задержка закрытия программы}
end.
Упражнение 2.2
Составить программу, позволяющую определить, являются ли числа а,в,с пифагоровыми тройками.
(Числа а,в,с являются пифагоровыми тройками, если квадрат одного из чисел равен сумме квадратов двух других.
program ypr2_2;
var
a, b, c: real;
begin
write('Введи a:='); readln(a);
write('Введи b:='); readln(b);
write('Введи c:='); readln(c);
if sqr(a) = sqr(b) + sqr(c) then write('являются') else write('не являются');
readln;
end.
Упражнение 2.3
Составить программу, позволяющую определить большее из четырех чисел
а,в,с и d.
Program ypr2_3;
Var
a, b, c, d, max: real;
begin
write('введите а'); readln(a);
write('введите b'); readln(b);
write('введите c'); readln(c);
write('введите d'); readln(d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('max:', max);
readln;
end.
Листинг 3.
Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150$. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 17000$. Напишите программу, которая вычислит, сколько месяцев потребуется чиновнику на сбор нужной суммы.
Решение: program Pr3;
var
x: integer; {Размер взятки}
mes: integer; {Число месяцев}
begin
mes:= 0; x:= 0;
{Организуем цикл, который завершится при сумме взяток
равной или больше 17000}
while x<17000 do
begin
{Организуем случайные числа для величины Х}
randomize;
x:= x + random(150);
writeln(x);
{Организуем счётчик месяцев}
mes:= mes + 1; {inc(mes)}
end;
writeln('Mesjac = ', mes);
readln; {Задержка закрытия программы}
end.
Упражнение 3.1
Студент, ежемесячно со своей стипендии откладывает Х рублей. Величина Х непостоянная и колеблется от 0 до 100 000. Смартфон, который хочет купить студент, стоит 1 000 000р. Напишите программу, которая вычислит, сколько месяцев потребуется студенту на сбор нужной суммы.
Program ypr3_1;
Var