8.1.. Napisati program za ispis prirodnih brojeva u intervalu od k do n. Granice intervala se upisuju sa tastature.
Opis rješenja: Promjenljive su deklarisane u liniji **3. Naslov se ispisuje naredbom u liniji **5. Upis vrijednost granica intervala izvodi se u linijama **7 i 9. Proces ispisa brojeva upisanog intervala se izvodi u petlji linije **10 i 11. Dio naredbe (FOR i := k TO n DO) reguliše uvećavanje vrijednosti promjenljive i, kao i određivanje napredovanja kroz petlju. Ispis se izvodi sa drugim dijelom naredbe WRITELN ('i = ',i).
Tekstualni algoritam:
- učitati granice intrevala (k, n)
- za i := k do n radi
ispisati vrijednost promjenljive i(WRITELN(i);)
Tabela 8.6. Promjena u memoriji i na ekranu od k do n
** |
Listing programa |
Memorija
i |
Ekran |
Opis |
10 |
FOR i := k TO n DO |
3 |
|
Promjena i |
11 |
WRITELN ('i = ',i); |
|
i = 3 |
Ispis na ekran |
10 |
FOR i := k TO n DO |
4 |
|
Promjena i |
11 |
WRITELN ('i = ',i); |
|
i = 4 |
Ispis na ekran |
10 |
FOR i := k TO n DO |
5 |
|
Promjena i |
11 |
WRITELN ('i = ',i); |
|
i = 5 |
Ispis na ekran |
10 |
FOR i := k TO n DO |
6 |
|
Promjena i |
11 |
WRITELN ('i = ',i); |
|
i = 6 |
Ispis na ekran |
Tabela 8.7. Ispis brojeva od k do n
** |
Listing programa |
Ekran |
Opis |
1 |
PROGRAM Od_k_do_n; |
|
Naslov programa |
2 |
VAR |
|
Promjenljive |
3 |
i, k, n : INTEGER; |
|
i,k,n- cijeli brojevi |
4 |
BEGIN |
|
Početak programa |
5 |
WRITELN('Od k do n'); |
Od k do n |
Naslov |
6 |
WRITE('Od broja'); |
Od broja |
Početna vrijednost |
7 |
READLN(k); |
3 |
|
8 |
WRITE('Do broja'); |
Do broja |
Krajnja vrijednost |
9 |
READLN(n); |
6 |
|
10 |
FOR i := k TO n DO |
|
Promjena i |
11 |
WRITELN ('i = ',i); |
i = 3
i = 4
i = 5
i = 6 |
Ispis na ekran vrijednosti promjenljive i |
12 |
END. |
|
Kraj programa |
Listing programa:
PROGRAM p08111006;
{od k do n prirodni brojevi}
USES
WinCrt;
VAR
i, n, k : INTEGER;
BEGIN
WRITE('Od broja ');
READLN( k );
WRITE('Do broja ');
READLN( n );
FOR i := k TO n DO
WRITELN('i = ', i );
END.
II Varijanta
PROGRAM p08111006;
{od k do n prirodni brojevi}
USES
WinCrt;
VAR
i, n, k : INTEGER;
BEGIN
WRITELN('k-n');
WRITE('Interval');
READLN(k,n);
FOR i := k TO n DO
WRITELN('i = ', i );
END.
Ispis na ekranu:
Index
|
|