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:
REM p07211044;
CLS
INPUT "Unesi dva broja"; a, b
min = a
IF a > b THEN
b = min
END IF
IF a > 0 THEN
z = min
ELSE
z = 2 * min
END IF
PRINT "a="; a, "b="; b, "min="; min, "z="; z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211044.gif)
Index
|