8.1.. Napisati program za prebrojavanje neparnih brojeva od k 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 k do n.
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM p08142076 ; |
|
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('Od broja '); |
|
9 |
READLN( k ); |
Od broja k |
10 |
WRITE('Do broja '); |
|
11 |
READLN( n ); |
Do broja n |
12 |
br := 0; |
Početna vrijednost br |
13 |
FOR i:= K TO n do |
|
14 |
IF i MOD 2 = 1 THEN |
Provjera neparnosti broja |
15 |
br := br + 1; |
Uvećanje brojača br |
16 |
WRITELN('Neparni od', k', ' do ',n,' = ',br); |
|
17 |
END. |
Kraj programa |
Listing programa:
PROGRAM p08142076;
{prebrojati neparne prirodne brojeve od k do n}
USES
WinCrt;
VAR
i, n, k, br : INTEGER;
BEGIN
WRITE('Od broja ');
READLN( k );
WRITE('Do broja ');
READLN( n );
br := 0;
FOR i:= k TO n do
IF i MOD 2 = 1 THEN
br := br + 1;
WRITELN('Neparni od', k', ' do ',n,' = ',br);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
 |
