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

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

</<font color="#000000">Задача 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.