9.1..Urediti dva učitana broja.

Opis programa: Uređenje se izvodi zamjenom mijesta dva broja uz korištenjem privremene (t-temporaly) varijable t: Integer;.

Listing programa:

PROGRAM p09111022;
{pro02 Urediti parove cijelih brojeva prvi je manji}
VAR
 x,y,i,n :Integer;
PROCEDURE Zamjena (Var x,y:Integer);
VAR
  t: Integer;
BEGIN
  t := x;
  x := y;
  y := t;
END;

BEGIN       {MAIN}
  Write('n = ');
  Readln(n);
  FOR i := 1 TO n DO
    BEGIN
      Write ('x, y = ');
      Readln(x, y);
      IF x>y THEN Zamjena(x,y);
      Writeln('ispravan redoslijed   x i y ', x, '   ',y);
   end;
  READLN;
END.

Index