7.2.. Urediti 3 učitana broj po opadajućem redoslijedu.

Opis rješenja: Porede se prva dva broja a i b i izvudi uređenje (a > b izvedi izmjenu) , zatim se poredi a i c i izvodi uređenje (a > c izvedi izmjenu). Na kraju se uređuju poslednja dva broja b i c (b > b izevdi izmjenu).

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

Promjena vrijednosti varijabli pri izvođenju:

Оpadajuci redoslijed
Ucitaj a 2
Ucitaj b 4
Ucitaj c 6
Ulaz:  a =  2   b =  4   c =  6
1. poredjenje:  a =  4   b =  2   c =  6   p =  2
2. poredjenje:  a =  6   b =  2   c =  4   p =  4
3. poredjenje:  a =  6   b =  4   c =  2   p =  2
Izlaz: a =  6   b =  4   c =  2

Listing programa:

PROGRAM p07211062;
USES
  WinCrt;
VAR
  a, b, c, p : Real;
BEGIN
  WRITE('Tri broja ');
  READLN(a, b, c);
  Writeln('Ucitana tri broja: a ', a, 'b ', b, 'c ', c);
  IF a < b THEN BEGIN p := a; a := b; b := p; END; 
  IF a < c THEN BEGIN p := a; a := c; c := p; END;
  IF b < c THEN BEGIN p := b; b := c; c := p; END;
  Writeln('Uredjena tri broja  a ', a, 'b ', b, 'c ', c);
END.

Ispis na ekranu:

Index