Меню сайта

Задача №4

Найти минимальное среди 4-х чисел, используя функцию нахождения минимального среди двух чисел.


Program func4-

Uses crt-

Var a,b,c,d,m1,m2:integer-

Function Min (x,y: integer): integer-

begin

if x&lt-y then

min:=x

else

min:=y-

end-

begin

ClrScr-

Writeln(‘введите 4 числа’)-

readln(a,b,c,d)-

m1:=min(a,b)-

m2:=min(c,d)-

m1:= min(m1,m2)-

Writeln(‘минимум=’,min)-

Readln-

End.

Категория: Подпрограммы | Дата: 30.12.12

Меню раздела
Блок