8.3.. Napisati program za ispis brojeva od 1 do n REPEAT 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 REPEAT. 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.

Tabela 8.27. 1-n

Listing programa:

PROGRAM p08311001;
{prvih N prirodnih brojeva}
USES
  WinCrt;
VAR
  i, n : INTEGER;
BEGIN
  WRITELN('1-n');
  WRITE('Do broja ');
  READLN(n);
  i:=1; 
  REPEAT
    WRITELN('i=',i );
    i := i + 1;
  UNTIL i>n;
END.

Ispis na ekranu:

Index