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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
PROGRAM p09111023;
{pro08 Urediti tri ucitana broja}
USES
  WinCrt;
 
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;
END.

Index