8.1.. Prebrojati neparne od 1 do n.

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 neparna ( i MOD 2 <> 0). Provjera se izvodi sa logičkim izrazom i MOD 2 <> 0 u naredbi IF. Sabiraju se samo brojevi koji zadovoljavaju dati logički izraz tj. kad je logički izraz istinit.

Opis programa: Po upisu do kog broja se izvodi upis (n) postavlja se početna vrijednost brojača (br=0). 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 tada se uvećava brojač za 1. Proces se ponavalja dok vrijednost kontrolne varijable ne bude veća od n. Ispis je na kraju.

Tekstualni algoritam:

  1. učitati do kog broja se izvodi brojanje (n)
  2. početna vrijednost  brojača (br =0)
  3. za i = 1 do n radi
    ako je i nije djeljivo sa 2 uvećati brojač (br=br+1)
  4. ispisati izračunatu vrijednosti brojača (br)

Listing programa:

1  REM 08112076
10 INPUT "Broj "; n
20 br = 0
30 FOR i = 1 TO n
40   IF i MOD 2 = 0 THEN br = br + 1
50 NEXT i
60 PRINT "Od  1 do "; n; " ima "; br; " neparnih"
70 END

Ispis na ekranu:

Index