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

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:

Index