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

Ekran

Opis

1

PROGRAM 1_n;

 

Naslov programa

2

VAR

 

Promjenljive

3

  i, n : INTEGER;

 

 

4

BEGIN

 

Početak programa

5

  WRITELN('1-n');

1-n

Naslov

6

  WRITE('Do broja ');

n

 

7

  READLN(n);

3

 

8

  i:=1;

 

Početne vrijednosti

9

  REPEAT

 

Početak petlje

10

    WRITELN('i=',i );

i =1
i =2
i =3

Ispis

11

    i := i + 1;

 

Slijedeći

12

  UNTIL i>n;

 

? Kraj petlje

13

END.

 

Kraj programa

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