9.3.. Napisati program sa funkcijom za uređenje trojke u rastućem redoslijedu.

Opis programa: Potprogram uređuje redoslijed dva broja zato se mora više puta pozvati da bi uredio redoslijed tri broja.

Listing programa:

PROGRAM 09311017;
{fun24, Urediti trojke u rastucem redoslijedu}
USES
  WinCrt;

VAR
  a, b, c: Integer;
 
PROCEDURE Red(VAR a,b :Integer);
VAR
  t: Integer;
BEGIN
  IF a > b THEN
    BEGIN
      t := a;
      a := b;
      b := t;
    END;
END;

BEGIN       {MAIN}
  Writeln ('Urediti trojke u rastucem redoslijedu');
  Write('a, b, c ');
  Readln(a, b, c);
  Red(b, c);
  Red(a, b);
  Red(b, c);
  writeln('uredjena trojka ', a, '   ', b, '   ',c );
END.

Index