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

Opis rješenja:

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

Listing programa:

PROGRAM p08311022;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  i : INTEGER;       { cjelobrojne promjenljive }
BEGIN
  WRITELN('Ispis kvadrata prvih 5 brojeva');
  
  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 > 5;                                         { ponavljaj sve dok nebude i > 5 - kraj repeat petlje }
  
END.

Ispis na ekranu:

Index