7.2. Od dva učitana broja (a, b) sa tastature naći manji min(a, b).

Opis programa: Naredbom IF se izvodi provjera vrijednosti varijabli a, b. Varijabla min prima vrijednosti manje.

Listing programa:

PROGRAM P07211039;
USES
  WinCrt;
VAR
  a, b, min: Real;
BEGIN
  Write('Vasa dva broja ');
  Readln(a, b);
  IF a>b THEN 
    min := a
  ELSE
    min := b;
  Writeln('Od brojeva ', a, ' ', b);
  Writeln('manji je ', min);
END.


II varijanta


PROGRAM P07211039_2;
USES
  WinCrt;
VAR
  a, b, min: Real;
BEGIN
  Write('Vasa dva broja ');
  Readln(a, b);
  min := a;
  IF min > b THEN 
    min := b;
  Writeln('Manji broj je ', min);
END.

Za više detalja vidjeti: >>

Linkovi:

Index