8.3..Napis Napisati program za ispis prirodnih brojeva u intervalu od  k do n. Granice intervala se upisuju sa tastature.

Opis programa: Program se razlikuje od programa prethodnih jer je početna vrijednosti k.

Tabela 8.29. k_n

**

Listing programa

Ekran

Opis

1

PROGRAM k_n;

 

Naslov programa

2

VAR

 

Promjenljive

3

  i, n : INTEGER;

 

 

4

BEGIN

 

Početak programa

5

  WRITELN('k-n');

k-n

Naslov

6

  WRITE('Interval');

Interval

 

7

  READLN(k,n);

3 6

 

8

  i:=k;

 

Početne vrijednosti

9

  REPEAT

 

Početak petlje

10

    WRITELN('i=',i );

i =3
i =4
i =5
i =6

Ispis

11

    i := i+1;

 

Slijedeći

12

  UNTIL i>n;

 

? Kraj petlje

13

END.

 

Kraj programa

 

Listing programa:

PROGRAM p08311006;
{od k do n prirodni brojevi}
USES
  WinCrt;
VAR
  i, k, n : INTEGER;
BEGIN
  WRITELN('k-n');
  WRITE('Interval');
  READLN(k,n);
  i:=k; 
  REPEAT
    WRITELN('i=',i );
    i := i+1;
  UNTIL i>n;
END.

Ispis na ekranu:

Index