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.

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM P07211015;

 

2

USES

 

3

  WinCrt;

 

4

VAR

 

5

  a, b, max: Real;

 

6

BEGIN

 

7

  Write('Vasa dva broja ');

 

8

  Readln(a, b);

 

9

  min := a;

 

10

  IF a>b THEN

Provjera da li je prvi manji

11

    min := b;

drugi manji

12

  Writeln('Od brojeva ', a, ' ', b);

 

13

  Writeln('Manji je ', min);

 

14

END.

 

III varijanta - za objašnjenje:

***

Listing programa

Opis

1

PROGRAM broj;

 

2

USES WinCRT;

 

3

VAR

 

4

  a,b:Integer;

 

5

BEGIN

 

6

  Write('a,b= ');

 

7

  Readln(a,b);

 

8

  IF a>=b THEN

drugi I manji

9

    Writeln(b,' je manji ili jednak  ',a)

da

10

  ELSE

 

11

    Writeln(a,' je manji od ',b);

Prvi je manji

12

END.

 

Listing programa:

PROGRAM P07211039;
USES
  WinCrt;
VAR
  a, b, min: Real;
BEGIN
  Write('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('Dva broja ');
  Readln(a, b);
  min := a;
  IF min > b THEN 
    min := b;
  Writeln('Manji broj je ', min);
END.

Ispis na ekranu:

Index