8.2..Napisati program za ispis brojeva od 1 do n WHILE petljom.
Tekstualni algoritam:
- upis krajnje vrijednosti (READLN(n);)
- postavljanje početne vrijednosti za i := 1
- početak petlje
- ispisati vrijednost promjenljive (WRITELN('i=',i);)
- uvećaj vrijednost kontrolne promjenljive (i:=i+1)
- ako je promjenljiva i veća od n izađi iz petlje inače idi na korak 3
Opis rješenja: Sa tastature se upisuje vrijednosti varijable n do koje se izvodi ispis. Kontrolnoj varijabli i se pridružuje vrijednost jedan i ispisuje na ekran. Uvećava se vrijednost varijable i za (i+1=1+1=2). Vrijednost se ispisuje na ekran. Ponovo se uvećava vrijednost kontrolne varijable i za jedan (i+1=2+1=3). Poslije ispisa kontrolne varijable ponavlja se uvećanje i ispis, sve dok kontrolna varijabla i ne primi vrijednost veću od n.
Opis programa: Broj n se upisuje u liniji 7. Postavljanje početne vrijednosti promjenljive i se izvodi u liniji 8. Petlja počinje ključnom riječi WHILE. Ispis vrijednosti promjenljive je naredbom WRITELN('i=',i )u liniji 10. Provjera ponavljanja petlje je u liniji 12. Petlja se ponavlja sve dok nije logički izraz istinit, tj da je i>n . Ponavljanjem prolaza kroz petlju se ispisuje nova vrijednost promjenljive i.
Listing programa:
PROGRAM p08211001;
{prvih N prirodnih brojeva}
USES
WinCrt;
VAR
i, n : INTEGER;
BEGIN
WRITELN('1-n');
WRITE('Do broja ');
READLN(n);
i:=1;
WHILE i <= n DO
BEGIN
WRITELN('i=',i );
i := i + 1;
END;
END.
Index
|