7.2.. Za učitane a i b izračunati z prema formuli:

Opis programa: Prvo treba naći minimum brojeva a i b ( min := a; IF a>b THEN min := b;), pa maksimum brojeva a i b (max := SQR(a); IF max < SQR(b) THEN max := SQR(b);) te izračunati z (IF max <> 0 THEN z := min / max;).

Listing programa:

REM 07211055
CLS
INPUT "Unesi dva broja:"; a, b
IF a > b THEN 
  min = b 
ELSE 
  min = a
END IF
IF a ^ 2 > b ^ 2 THEN 
  max = a ^ 2 
ELSE 
  max = b ^ 2
END IF
z = min / max
PRINT "Rezultat je :"; z
END

Ispis na ekranu:

Index