8.2.. Ispis kvadratnog korijena prirodnih brojeva do n (WHILE petlja).

Opis rješenja: Kreiranje prirodnih brojeva se izvodi WHILE petljom i napredovanjem kroz WHILE petlju. Izračuvanje korijena se izvodi SQRT funkcijom brojem SQRT(i).

Opis programa:

Listing programa:

PROGRAM p08211033;
{kvadratnog korijen prvih N prirodnih brojeva}
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  i, n : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  WRITELN('ispis kvadratnih korijena brojeva od 1 do n');
  WRITE('Unesi krajnju vrijednost');
  READLN(n);
  
  i := 1;                                        { pocetna vrijednost kontrolne varijable }
  WHILE i <= n DO                                { dok je i <= n ponavljaj - pocetak petlje }
    BEGIN
      WRITELN('Kvadratni korjen je:', SQRT(i));  { ispis kvadratnog korijena broja u petlji }
      i := i + 1;                                { slijedeca vrijednost kontrolne varijable i }
    END;                                         { kraj while petlje }
	
END.

Ispis na ekranu:
 

Index