Naredbe ciklusa U veini programa se javljaju situacije

Naredbe ciklusa

U većini programa se javljaju situacije kada je potrebno neku naredbu ili grupu naredbi izvršiti više puta. Ukoliko je naredbu potrebno izvršiti konačan i mali broj puta, problem je moguće razrešiti i korišćenjem linijskih struktura, tako što bi se naredba jednostavno ponovila određeni broj puta uzastopno. Međutim, može se desiti da je naredbu potrebno ponoviti veliki broj puta, a veoma često je taj broj promenljiv u zavisnosti od izvršenja ostatka programa. U takvim slučajevima nije moguće iskoristiti linijsku strukturu, već je neophodno uvesti takozvane ciklične strukture. Ciklične strukure omogućavaju izvršavanje jedne ili više naredbi određeni broj puta, pri čemu broj ponavljanja može biti definisan prirodnim brojem ili uslovom koji određuje kada se ponavljanje prekida. Napomenimo i to da se ciklične strukture vrlo često nazivaju i ciklusima ili petljama

Ponavljanje bloka naredbi više puta omogućen je naredbama ciklusa (naredbama ponavljanja ili repetativnim naredbama ili petljama). U Object Pascalu (koji koristimu u Lazarus okruženju) postoje tri naredbe ciklusa: FOR – bezuslovna naredba ciklusa WHILE naredba sa preduslovom REPEAT – naredba sa postuslovom

Naredba FOR i : = pv TO kv DO N; i – brojačka (kontrolna) promenljiva pv – početna vrednost kv – krajnja vrednost N – naredba Sve dok promenljiva i prima vrednost od početne vrednosti do krajnje vrednosti izvršava se naredba N. Npr: For i: =1 to 100 do S: =S+i; * brojač i mora biti integer, boolean ili char tipa

Koraci izvršenja naredbe for: 1. Kontrolnoj promenljivoj i dodeljuje se početna vrednost 2. Ako je i > kv završava se izvršenje naredbe FOR 3. ako je i <= kv, izvršava se naredba N 4. Kontrolna promenljiva i prima vrednost svog sledbenika (ako je u pitanju celobrojna vrednost - za jedan veću od prethodne) i: =succ(i) odnosno i: =i+1 5. Nastavlja se izvršenje petlje od tačke 2 FOR naredba može imati oblik: FOR i: =pv DOWNTO kv DO N;

1. Sastaviti aplikaciju koja će računati zbir prvih n prirodnih brojeva. npr. za uneto n=3 računa se s=1+2+3

Procedure TForm 1. Button 1 Click (Sender: Tobject); Var n, s, i: integer; BEGIN n: =Str. To. Int (edit 1. text); S: =0; FOR i: =1 TO n DO S: =S+i; edit 2. text: =Int. To. Str(s); END;

Domaći ZADATAK 1: Sastavi aplikaciju koja računa proizvod prvih n prirodnih brojeva. ZADATAK 2: Sastavi aplikaciju koja će izračunati zbir recipročnih vrednosti brojeva u intervalu od a do b ZADATAK 3: Sastavi aplikaciju koja računa n!