7.2.. Za učitane a i b izračunati z prema formuli:
![](072_zad/07211045.gif)
Opis programa: Prvo treba naći minimum od a i b ( min := a; IF a>b THEN min := b;), pa minimum od kvadrata a i b min2 := SQR(a) IF SQR(b) < min2 THEN
min2 := SQR(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 p07211045;
CLS
INPUT "Unesi dva broja"; a, b
min = a
IF a > b THEN
min = b
END IF
min2 = a ^ 2
IF b ^ 2 < a ^ 2 THEN
min2 = b ^ 2
END IF
IF a > 0 THEN
z = min
ELSE
z = min2
END IF
PRINT "a="; a, "b="; b, "min="; min, "min2="; min2, "z="; z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211045.gif)
Index
|