8.2.. Napisati program za ispis kvadrata prirodnih brojeva do n (WHILE petlja).

Opis rješenja:

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

Listing programa:

PROGRAM p08211022;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  i, n : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  WRITELN('ispis kvadrata brojeva od 1 do n');
  WRITE('Do broja ');
  READLN( n );
  
  i := 1;                                             { pocetna vrijednost kontrolne varijable }
  WHILE i <= n DO                                     { dok je i <= n ponavljaj - pocetak petlje }
    BEGIN
      WRITELN('i = ', i,'   kvadrat = '  , SQR(i) );  { ispis kvadrata broja u petlji }
      i := i + 1;                                     { slijedeca vrijednost kontrolne varijable i }
    END;                                              { kraj while petlje }
	
END.

Ispis na ekranu:

Index