Naredba FOR FOR Iskaz FOR omoguava da se
Naredba FOR
FOR Iskaz FOR omogućava da se dio algoritma ponovi tačno određen broj puta. FOR i: =x TO n DO S: = S+i x - početna vrijednost n – krajnja vrijednost i: =x , n S
Napisati program za ispis brojeva od 1 do n PROGRAM ispisbrojeva; VAR i, n: integer; BEGIN write ('Upisi gornju granicu'); readln (n); FOR i: =1 TO n DO writeln ('i= ‘ , i); readln; END.
Napiši program koji će ispisati svaki drugi broj od 1 do n tako da brojevi budu ispisani jedan pored drugog, ne jedan ispod drugog!!!
PROGRAM ispisbrojeva; VAR i, n: integer; BEGIN write ('Upisi gornju granicu'); readln (n); FOR i: =1 TO n DO BEGIN write (i: 4); i: =i+1; END; readln; END.
Izračunati prosjek 10 unešenih ocjena
PROGRAM Prosjek. Ocjena; const n = 10; var oc, i, sum : integer; prosjek : real; BEGIN sum : = 0 ; writeln ('Unesite ', n, 'ocjena: ' ); for i : = 1 to n do begin readln (oc); sum : = sum + oc end; prosjek : = sum / n; writeln ('Prosjecna ocjena je: ', prosjek : 2); readln; end.
Program ispisuje sve unešene brojeve od 1 do 10, ali unatrag
PROGRAM Unatrag; var b : integer; BEGIN FOR b : = 10 DOWNTO 1 DO writeln (b) ; readln; end.
Napisati program za ispis sume brojeva od 1 do n
program Suma; var i, n, s : integer; begin s : = 0; writeln (' Do broja n= ' ); readln (n) ; for i : = 1 to n do begin s: = s + i ; end; writeln (' Suma ', n, ' prirodnih brojeva je: S= ', s) ; readln ; end.
Napisati program za ispis proizvoda brojeva od 1 do n
program Proizvod; var i, n, p : integer; begin p: = 1; writeln (' Do broja n= ' ); readln (n) ; for i : = 1 to n do begin p: = p * i ; end; writeln (' Proizvod ', n, ‘ prirodnih brojeva je: P= ', p) ; readln ; end.
Napisati program za ispis sume recipročnih vrijednosti prvih n prirodnih brojeva
PROGRAM suma_reciprocnih_vrijednosti; VAR i, n : INTEGER; s : REAL; BEGIN WRITE('Do broj '); READLN( n ); s : = 0; FOR i : = 1 TO n DO s : = s + 1/i; WRITELN('n = ', n, ' suma ', s ); readln; END.
Napisati program za ispis parnih brojeva od 1 do n
- Slides: 16