Найти минимальное из трех чисел - Turbo Pascal (28944)
Формулировка задачи:
Заданы три числа, надо найти минимальное число.
Составить программу для вычисления периметра 10 прямоугольников.
Решение задачи: «Найти минимальное из трех чисел»
textual
Листинг программы
var
a,b,c,min:integer;
begin
write('a=');
read(a);
writeln;
write('b=');
read(b);
writeln;
write('c=');
read(c);
writeln;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ', min);
end.
Объяснение кода листинга программы
- В начале объявляются переменные a, b, c и min типа integer.
- Затем происходит вывод значений этих переменных на экран с помощью функции write.
- После этого с помощью функции read считываются значения переменных a, b и c.
- Значение переменной min устанавливается равным минимальному из трех чисел: сначала a, затем b и наконец c.
- Если значение переменной b меньше значения переменной min, то min устанавливается равным b.
- Если значение переменной c меньше значения переменной min, то min устанавливается равным c.
- Наконец, выводится на экран значение переменной min с помощью функции writeln.