7.2.. Za učitane a i b izračunati z prema formuli:
![](072_zad/07211071.gif)
Opis rješenja:
Listing programa:
REM P07211071;
CLS
INPUT "Unesi dva broja"; a, b
min = a
IF a>b THEN
b = min
END IF
min2 = a ^ 2
IF a ^ 2 > b ^ 2 THEN
min2 = b ^ 2
END IF
IF b >= 0 THEN
z = 2*min
ELSE
z = min2
END IF
PRINT "z="; z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211071.gif)
Index
|