8.1.. Proizvod neparnih od prvih n prirodnih brojeva.

Opis rješenja: Ovaj program se odlikuje time da u FOR petlji ima provjeru da li je kontrolna varijabla djeljiva sa 2 tj. da li je parna. Provjera se izvodi sa logičkim izrazom i MOD 2 <> 0 u naredbi IF. Množe se samo brojevi koji zadovoljavaju dati logički izraz tj. kad je logički izraz istinit.

Opis programa: Po upisu granice intervala i postavlja se početna vrijednost prizvoda (p=1). Zatim počinje FOR petlja. Prva vrijednost kontrolne varijable i je 1. Naredba IF sadrži logički izraz i MOD 2 <> 0. Ako je ovaj logički izraz tačan (neparan broj) tada se množi proizvod i vrijednost kontrolne varijable i (p=p*i). Proces se ponavalja sve dok je vrijednost kontrolne varijable manja ili jednaka n. Ispis je na kraju.

Listing programa:

REM 08112064 
CLS
INPUT "Unesi broj n:", n
p = 1
FOR i = 1 TO n
    IF i MOD 2 <> 0 THEN p = p * i
NEXT i
PRINT p
END

Ispis na ekranu:

Index