8.1.. Aritmetička sredina neparnih prirodnih brojeva 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 i broje 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 sume (s=0) i 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 suma za vrijednost kontrolne varijable i i 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 sabiranje i brojanje (n)
  2. početna vrijednost sume (s=0)
  3. početna vrijednost  brojača (br =0)
  4. za i = 1 do n radi
    ako je i nije djeljivo sa 2 uvećati sume (s=0) i brojač (br=br+1)
  5. izračunati količnik sume i brojača (as=s/br)
  6. ispisati izračunatu vrijednosti aritmetičke sredine (as)

Listing programa:

1  REM 08113014
10 INPUT "Broj "; n
20 s = 0
25 br = 0
30 FOR i = 1 TO n
40   IF i MOD 2 <> 0 THEN s = s + i : br = br + 1
50 NEXT i 
50 as = s /br
70 PRINT "Od 1 do "; n; " aritmeticka sredina neparnih je "; as
80 END

Ispis na ekranu:

Index