8.3.. Napisati program za ispis kvadrata prirodnih brojeva do n (REPEAT petlja).

Opis rješenja:

Opis programa: Izračunavanje kvadrata se izvodi funkcijom SQR.

Listing programa:

PROGRAM p08311031;
USES
  WinCrt;
VAR                      { deklarisanje promjenljivih }
  i, n : INTEGER;        { cjelobrojne promjenljive }
BEGIN
  WRITE('Do broja ');
  READLN( n );
  
  i := 1;                                           { pocetna vrijednost kontrolne varijable }
  REPEAT                                            { pocetak repeat petlje - radi/ponavljaj }
    WRITELN('i = ', i,'   kvadrat = '  , SQR(i) );  { ispis kvadrata broja u petlji }
    i := i + 1;                                     { slijedeca vrijednost kontrolne varijable i }
  UNTIL i > n;.                                     { ponavljaj sve dok nebude i > n - kraj repeat petlje }
  
END

Ispis na ekranu:

Index