7.2.. Za učitane a i b izračunati z prema formuli:
![](072_zad/07211051.gif)
Opis programa: Prvo treba naći minimum brojeva a i b ( min := a; IF a>b THEN min := b;), pa minimum kvadrata brojeva a i b ( min2 := SQR(a); IF SQR(b) < min2 THEN min2 := SQR(b);) te izračunati z.
Listing programa:
PROGRAM p07211051;
REM 07211051
CLS
INPUT "Unesi dva broja:"; a, b
IF a > b THEN
min = b
ELSE
min = a
END IF
IF a ^ 2 > b ^ 2 THEN
x = b ^ 2
ELSE
x = a ^ 2
END IF
z = min / (x + 6)
PRINT "Rezultat je:"; z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211051.gif)
Index
|