Napisati program za unos n parova sa procedurom koja obrce redoslijed brojeva u unesenom paru ako je prvi broj veći od drugog.

Listing programa:

PROGRAM Parovi;
VAR
  x,y,i,n :Integer;
   
PROCEDURE Zamjena (Var a,b:Integer);
VAR
  t: Integer;
BEGIN
  t := a;
  a := b;
  b := 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.

Ispis na ekranu:
n = 4
x, y = 1 2
ispravan redoslijed x i y:  1 2
x, y = 5 2
ispravan redoslijed x i y:  2 5
x, y = 7 3
ispravan redoslijed x i y:  3 7
x, y = 6 1
ispravan redoslijed x i y:  1 6

Index