Программа на Pascal: найти минимальное из трех чисел

Нахождение минимального из трех чисел (y= min (а, b, c)).

Program MIN; {нахождение минимального значения из a, b, c}
uses crt;
var a,b,c,y:real;
begin
textbackground (3);textcolor(14);
clrscr;
writeln ('введите значения a, b, c, разделяя их пробелами');
readln (a,b,c);
if a<b then
if a<c then
y:=a
else
y:=c
else
if b<c then
y:=b
else
y:=c;
writeln ('минимальное значение =', y:3:1);
end.

Пояснения
1. Модуль управления экраном crt подключается к программе с помощью специального предложения uses_crt . В программе использованы процедуры:
— clrscr для очистки экрана;
— textbackground (3), задающая бирюзовый цвет фона экрана;
— textcolor (14), задающая желтый цвет текстовых символов.

2. В результате выполнения программы (используя комбинацию клавиш: Alt+F5) на экране получим:

Введите значения a, b, c, разделяя их пробелами
0.5 _ 0.2 _ 3.4
Минимальное значение = 0.2


Оставить комментарий





Статистика

Рейтинг@Mail.ru