Годовые задачи с решением для ввода в среду программирования Turbo Pascal

Задачи для ввода в среду программирования Turbo Pascal

Задача 1.
Напишите программу ввода трёх произвольных чисел X, Y и Z с клавиатуры. Если X больше Z, то вывести на экран сумму X и Y, иначе вывести на экран значение Z.
Решение:
program Project1;
uses
var
x, y, z, rez: real;
begin
{Вод значений с клавиатуры}
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
{Сравниваем значения по условию задачи}
if x > z then rez:= x + y else rez:= z;
{Выводим результат на экран}
writeln(rez:0:2);
readln; {Задержка закрытия программы}
end.

Задача 2.
Напишите программу ввода с клавиатуры трёх произвольных чисел X,Y,Z. Программа должна найти наименьшее число из введённых, и вывести его на экран.
Решение:

program Project1;
uses
var
x, y, z, min: real;
begin
{Вод значений с клавиатуры}
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
{Присваиваем начальное значение минимуму}
min:= x;
{Делаем проверку}
if min > y then min:= y;
if min > z then min:= z;
{Выводим результат на экран}
writeln('Minimum = ', min);
readln; {Задержка закрытия программы}
end.

Задача 3.
Длина прямоугольного участка земли равна X метров, а ширина равна Y метров. Напишите программу вычисления количества досок для забора на заданном участке, если ширина доски равна 10 сантиметров.
Решение:

program Project1;
uses
var
x, y, rez: real;
begin
{Вод значений с клавиатуры}
write('Wwedi dlinu X:'); readln(x);
write('Wwedi shirinu Y:'); readln(y);
{Вычисляем периметр участка}
rez:= 2*x + 2*y;
{Вычисляем нужное количество досок}
rez:= rez/0.1;
{Выводим результат на экран}
writeln('Chislo dosok = ', rez:0:2);
readln; {Задержка закрытия программы}
end.