8.2.. Napisati program za ispis kvadrata prirodnih brojeva do 5 .

Opis rješenja:

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

Listing programa:

PROGRAM p08211022;
USES
  WinCrt;
VAR               { deklarisanje promjenljivih }
  i : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  WRITELN('Ispis kvadrata prvih 5 brojeva');
  
  i := 1;                                               { pocetna vrijednost kontrolne varijable }
  WHILE i <= 5 DO                                       { dok je i <= 5 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