8.1.. Suma neparnih prirodnih brojeva od 1 do 5. Opis programa: Provjera neparnosti (nisu djeljivosti sa 2) se izvodi logičkim izrazom I MOD 2 <> 0 u naredbi IF unutar FOR petlje. (Cjelobrojno dijeljenje i modul broja). Ako je logički izraz istinit broj se dodaje sumi. Listing programa: PROGRAM P08112021; USES WINCRT; VAR { deklarisanje promjenljivih } I, S : INTEGER; { cjelobrojne promjenljive } BEGIN WRITELN('Suma neparnih brojeva od 1 do 5'); S := 0; { pocetna vrijednost sume } FOR I:= 1 TO 5 DO { ponavljaj za i=1 do 5 - pocetak for petlje } IF I MOD 2 <> 0 THEN { ako i nije djeljivo sa 2 - neparnoparno tada izvedi } S := S + I; { suma s postaje stara vrijednost sume uvecana za vrijednost i } WRITELN ('Suma neparnih brojeva od 1 do 5 je ',S); END. Ispis na ekranu:
|
||||||
|