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 |
READLN;
END. |
|
III varijanta - za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM broj; |
|
2 |
|
|
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 |
READLN;
END. |
|
Listing programa:
PROGRAM P07211039;
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);
READLN;
END.
II varijanta
PROGRAM P07211039_2;
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);
READLN;
END.
Ispis na ekranu:
Index
|
|