9.1.. Urediti tri učitana broja.

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

Listing programa:

PROGRAM p09111023;
{pro08 Urediti tri ucitana broja}
VAR
 a, b, c, n , i :Integer;
PROCEDURE Zamjena (Var x,y:Integer);
VAR
  t: Integer;
BEGIN
  t := x;
  x := y;
  y := t;
END;

BEGIN       {MAIN}
  Writeln('ucitani n puta po 3 broja i urediti ih');
  Write('n = ');
  Readln(n);
  FOR i := 1 TO n DO
    BEGIN
      Write ('a, b, c = ');
      Readln(a, b, c);
      IF a>b THEN Zamjena(a,b);
      IF b>c THEN Zamjena(b,c);
      IF a>b THEN Zamjena(a,b);
      Writeln('ispravan redoslijed a b c ', a, '   ',b, '   ',c);
    END;
  READLN;
END.

Index