ODD - Vraĉa TRUE ako je vrijednost neparna ili FALSE ako je vrijednost parna.
Sintaksa: FUNCTION ODD(vrijednost:<LONGINTEGER>):<BOOLEAN>;

Tabela d.17. ODD - funkcija

Listing programa

Opis

PROGRAM pODD;

Naslov

VAR

 

  i:INTEGER;

Prvih 6 brojeva

BEGIN

Provjera parnosti

  FOR i :=1 TO 6 DO

Neparan

    IF ODD(i) THEN

 

      WRITELN('Nepar',i)          

 

    ELSE

 

      WRITELN('Par',i);

Paran

END.

Kraj programa

Ispis na ekran poslije izvo|enja programa:
Nepar 1
Par 2
Nepar 3
Par 4
Nepar 5
Par 6

Listing programa:

PROGRAM pODD;
USES
  WinCrt;
VAR
  i:INTEGER;
BEGIN
  FOR i :=1 TO 6 DO
    IF ODD(i) THEN 
      WRITELN('Nepar',i)           
    ELSE 
      WRITELN('Par',i);
END.

Index