8.1.. Napisati program za prebrojavanje neparnih brojeva od 1 do n.
Opis rješenja: Zadatak se rješava postavljanjem početne vrijednosti za brojač br:=0; a naredba za uvečavanje brojača je (br:=br+1). Logički izraz za provjeru parnosti je i MOD 2 = 1 (neparan broj). FOR petlja je od 1 do n.
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM p08112047; |
|
2 |
{prebrojati neparne prirodne brojeve od k do n} |
|
3 |
USES |
|
4 |
WinCrt; |
|
5 |
VAR |
|
6 |
i, n, k, br : INTEGER; |
|
7 |
BEGIN |
|
8 |
WRITE('Do broja '); |
|
9 |
READLN( n ); |
Do broja n |
10 |
br := 0; |
Početna vrijednost br |
11 |
FOR i:= 1 TO n do |
|
12 |
IF i MOD 2 = 1 THEN |
Provjera neparnosti broja |
13 |
br := br + 1; |
Uvećanje brojača br |
14 |
WRITELN('Neparni od 1 do ',n,' = ',br); |
|
15 |
END. |
Kraj programa |
Listing programa:
PROGRAM p08112047;
{prebrojati neparne prirodne brojeve od 1 do n}
USES
WinCrt;
VAR
i, n, k, br : INTEGER;
BEGIN
WRITE('Do broja ');
READLN( n );
br := 0;
FOR i:= 1 to n do
IF i MOD 2 = 1 THEN
br := br + 1;
WRITELN('Neparni od', k', ' do ',n,' = ',br);
END.
 |
 |
 |
 |
 |
 |
 |
