Переписать код с использованием процедуры - Turbo Pascal

Формулировка задачи:

ИСПРАВИТЬ НА ПРОЦЕДУРУ

program Z1;
var t,x,y,z,min1,min3,min2:integer;
    function minx2(a,b:integer):integer;
begin
            if a>b then minx2:=b
            else minx2:=a;
end;
begin
     writeln('vvedi x,y,z,t');
     readln(x,y,z,t);
     min1:=minx2(x,y);
     min2:=minx2(z,t);
     min3:=minx2(min1,min2);
     writeln('min=',min3);
     readln;
end.

Решение задачи: «Переписать код с использованием процедуры»

textual
                            Листинг программы 
                        

                            program pr1;
var a,b,c,d:real;
procedure Minmax(var x,y:real);
var cop:real;
begin
  if x>y then begin
               cop:=x;
               x:=y;
               y:=cop;
              end;
end;
begin
   readln(a,b,c,d);
   Minmax(a,b);
   Minmax(c,d);
   Minmax(a,c);
   writeln('Минимум- ',a);
end.
                        

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы