7.2.. Urediti 2 učitana broja po rastućem redoslijedu.

Opis rješenja: Porede se dva broja a i b i izvodi uređenje, ako nisu uređeni izvodi se zamjena vrijednosti a i b (uređenje). Zamjena vrijednosti se izvodi korišćenjem pomoćne varijable p, kojoj se pridružuje vrijednost varijable a, zatim a prima vijednost b i na kraju b prima vrijednost pomoćne varijable p.

Slika 1. Početni položaj	Slika 2. Animacija	Slika 3. Krajnji položaj	Slika 4. Redoslijed zamjene

Promjena vrijednosti varijabli pri izvođenju:

Redoslijed a <= b (rastuci redoslijed)
Ucitaj a 5
Ucitaj b 2
Ulaz:  a =  5   b =  2
a =  5   b =  2   p =  5   # p = a 
a =  2   b =  2   p =  5   # a = b 
a =  2   b =  5   p =  5   # b = p 
Izlaz: a =  2   b =  5  

Listing programa:

PROGRAM p07211154;
USES
  WinCrt;
VAR
  a, b, p : Real;
BEGIN
  Writeln('Rastuci recdoslijed ');
  WRITE('Dva broja ');
  READLN(a, b);
  Writeln('Ucitana dva broja:  a = ', a, '  b = ', b);
  IF a > b THEN 
    BEGIN 
	  p  :=  a; 
	  a := b; 
	  b := p; 
	END; 
  Writeln('Uredjena dva broja: a = ', a, '  b = ', b);
END.

Ispis na ekranu:

Index