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

Opis rješenja: Porede se prva dva broja a i b i izvodi uređenje, zatim a i c i izvodi uređenja. Na kraju se uređuju poslednja dva broja.

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

Promjena vrijednosti varijabli pri izvođenju:

Rastuci redoslijed
Ucitaj a 7
Ucitaj b 5
Ucitaj c 3
Ulaz:  a =  6   b =  4   c =  3
1. poredjenje:  a =  5   b =  7   c =  3   p =  7
2. poredjenje:  a =  3   b =  7   c =  5   p =  5
3. poredjenje:  a =  3   b =  5   c =  7   p =  7
Izlaz: a =  3   b =  5   c =  7

Listing programa:

PROGRAM p07211061;
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