8.1.. Napisati program za prebrojavanje parnih brojeva od 1 do n.
Opis rješenja: Zadatak se rješava postavljanjem početnih vrijednosti za brojač je br:=0; a naredba za uvečavanje brojača je (br:=br+1). Logički izraz za provjeru parnosti je i MOD 2 = 0.
Tabela 8.18. Prebrojavanje parnih prirodnih brojeva do n
** |
Listing programa |
Opis |
1 |
PROGRAM Brojanje_parnih_do_n; |
Zaglavlje |
2 |
VAR |
Promjenljive |
3 |
i, k, n, br : INTEGER; |
|
4 |
BEGIN |
|
5 |
WRITELN('Parni'); |
Naslov |
6 |
WRITE ('Do broja '); |
|
7 |
READLN (n); |
Do broja n |
8 |
br := 0; |
Početna vrijednost br |
9 |
FOR i:= 1 TO n DO |
|
10 |
IF i MOD 2 = 0 THEN |
Provjera parnosti broja |
11 |
br := br + 1; |
Uvećanje brojača br |
12 |
WRITELN('Parni do ',n,' je ',br); |
|
13 |
END. |
Kraj programa |
Listing programa:
PROGRAM p08112071;
{prbrojati parne prirodne brojeve od 1 do n}
USES
WinCrt;
VAR
i, n, br : INTEGER;
BEGIN
WRITELN('Parni');
WRITE('Do broja ');
READLN( n );
br := 0;
FOR i := 1 TO n DO
IF i MOD 2 = 0 THEN
br := br + 1;
WRITELN('Broj parnih do ',n,' je ',br);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
 |
