7.2.. Učitati prirodan broj. Ako je neparan ispisati njegovu recipročnu vrijednost, a ako je paran ispisati kvadrat njegovog prethodnika.

Opis rješenja: Zadatak možemo napisati u obliku formule:
                  
ODD funkcija za neparan je TRUE vrijednost i u IF naredbi izvodi se THEN

Listing programa:

CLS
INPUT "Unesi broj a "; a
IF a MOD 2 <> 0 THEN
  y = 1 / a
  PRINT "Ulaz = "; a, "Rezultat = "; y
ELSE
  y = (a - 1) ^ 2
  PRINT "Kvadrat prethodnika broja a je"; b
END IF 
END

II varijanta
CLS
INPUT "Unesi broj a "; a
IF a / 2 = INT(a / 2) THEN
  y = (a - 1) ^ 2
  PRINT "Kvadrat prethodnika broja a je"; b
ELSE
  y = 1 / a
END IF 
PRINT "Ulaz = "; a, "Rezultat = "; y
END

Ispis na ekranu:

Index