8.2..Napisati program za ispis brojeva od 1 do n WHILE petljom.

Tekstualni algoritam:

  1. upis krajnje vrijednosti (READLN(n);)
  2. postavljanje početne vrijednosti za i := 1
  3. početak petlje
  4. ispisati vrijednost promjenljive  (WRITELN('i=',i);)
  5. uvećaj vrijednost kontrolne promjenljive (i:=i+1)
  6. 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