8.3.. Proizvod neparnih od prvih n prirodnih brojeva.
Opis rješenja: Ovaj program se odlikuje time da u REPEAT/UNTIL petlji ima provjeru da li je kontrolna varijabla djeljiva sa 2 tj. da li je neparna. 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.
Listing programa:
PROGRAM p08312064;
VAR { deklarisanje promjenljivih }
I, N : INTEGER; { cjelobrojne promjenljive }
P : REAL; { realne promjenljive }
BEGIN
Writeln('Proizvod neparnih od 1 do n');
WRITE('UNESI N ' );
READLN(N);
P := 1; { pocetna vrijednost proizvoda }
I := 1; { pocetna vrijednost kontrolne varijable }
REPEAT { pocetak repeat petlje - radi/ponavljaj }
IF I MOD 2<>0 THEN { ako i nije djeljivo sa 2 - neparnoparno tada izvedi }
P := P * I; { proizvod p postaje stara vrijednost proizvoda pomnozena sa i }
i := i + 1; { slijedeca vrijednost kontrolne varijable i }
UNTIL i > N; { ponavljaj sve dok nebude i > n - kraj repeat petlje }
Writeln('Proizvod neparnih od 1 do n = ',P:2:4);
READLN;
END.
Ispis na ekranu:
Index
|