7.2.. Za učitane a i b izračunati z prema formuli:
![](072_zad/07211044.gif)
Opis programa: Prvo treba naći minimum od a i b ( min := a; IF a>b THEN min := b;). Zatim provjeriti vrijednost a (a>=0) da bi se izračunalo z ( IF a >= 0 THEN z := min ELSE z := 2*min;).
Listing programa:
PROGRAM p07211044;
USES
WinCrt;
VAR
a, b, min, z: Real;
BEGIN
Write('Dva broja ');
Readln(a, b);
min := a;
IF a>b THEN
min := b;
IF a >= 0 THEN
z := min
ELSE
z := 2*min;
Writeln('a = ', a, ' b = ', b, ' min = ', min, ' z = ', z);
END.
Ispis na ekranu:
![](072_izvedi/07211044.gif)
Index
|
![](../epp/000/Asistent.jpg) |