Pascal - Procedury i funkcje

Porównanie liczb

Porównanie liczb
Pascal - Procedury i funkcje

Program: wskazujący większą jak i mniejszą z dwóch wprowadzonych liczb.

Na przykładzie wzrostu dzieci. Pierwszy wynik podawany na podstawie kodu z procedury, drugi już poza procedurą.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program kolejka;
uses crt;
procedure kolejnosc(var a,b:real);
var pom:real;
 begin
  if (a>b) then
     begin
      pom:=a;
      a:=b;
      b:=pom;
     end;
     writeln('W procedurze');
     writeln('Wzrost nizszego dziecka: ',a:5:1);
     writeln('Wzrost wyzszego dziecka: ',b:5:1);
end;
var x,y:real;
begin
 clrscr;
  write('Wzrost Jasia: '); readln(x);
  write('Wzrost Malgosi: '); readln(y);
  if x=y then writeln('Dzieci sa rownego wzrostu.')
  else
      begin
       kolejnosc(x,y);
       writeln;
       writeln('Wzrost nizszego dziecka: ',x:5:1);
       writeln('Wzrost wyzszego dziecka: ',y:5:1);
      end;
  readln;
end.