7.2.. Urediti 2 učitana broja po opadajuć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    (opadajuci redoslijed)
Ucitaj a 2
Ucitaj b 5
Ulaz:  a =  2   b =  5
a =  2   b =  5   p =  2   # p = a
a =  5   b =  5   p =  2   # a = b
a =  5   b =  2   p =  2   # b = p
Izlaz: a =  5   b =  2

Listing programa:

PROGRAM p07211155;
USES
  WinCrt;
VAR
  a, b, p : Real;
BEGIN
  Writeln('Opadajuci 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