| 
| 
Napišimo program u koji će korisnik upisivati brojeve, sve dok ne upiše 0. Na kraju neka program ispiše sumu svih brojeva koje je korisnik upisao.
Repeat-Until petlja
Program sumaRepeat;
var broj, suma:integer;
begin
suma:=0;
repeat
readln(broj);
suma:=suma + broj;
until broj=0;
writeln('Suma brojeva je: ', suma);
readln;
end.
Pogledajmo što kako ovaj program radi.
Naredbe program, var, readln i writeln smo naučili u ovoj lekciji, pa ih nećemo ponovno prolaziti.
Pogledajmo što novoga imamo u ovom programu.
Varijable koje ćemo koristiti su broj i suma. U prvu ćemo upisivati podatke, a u drugoj ćemo čuvati zbroj do sada upisanih podataka.
Iz tog razloga nam je prvi red suma:=0. Na taj način kažemo programu da u sumu još ništa nije upisano.
Zatim pišemo repeat. Repeat će ponavljati sve naredbe koje su između njega i naredbe until, a ponavljat će ih sve dok uvjet nakon until ne bude ispunjen. U našem slučaju, ponavljat će se naredbe readln(broj) i suma:=suma+broj sve dok broj ne postane jednak 0.
Jednom kad varijabla broj postane jednaka 0, program izlazi iz petlje i ide na sljedeću naredbu, koja je kod nas ispis sume.
While petlja
program sumaWhile;
var broj, suma:integer;
begin
suma:=0;
readln(broj);
while broj0 do begin
suma:=suma+broj;
readln(broj);
end;
readln;
end.
Ovaj program radi isto što i prethodni, samo to radi sa while petljom. Način na koji se razlikuje je taj što smo u repeat petlju prvi put automatski ušli, a kod while petlje se to ne događa. Iz tog razloga stavljamo jedan dodatak readln prije ulaska u petlju.
Nakon njega je provjera (koja je kod while petlje na početku, a ne na kraju).
Još jedna razlika je ta što while ima provjeru za nastavak petlje, a repeat provjeru za prekid petlje. Dakle, kod repeat petlje smo imali uvjet until broj=0, dakle kad broj postane 0 izlazimo iz petlje, a kod while petlje imamo while broj0 (dok je broj različit od 0) - uvjet za nastavak petlje.
Zatim ulazimo u petlju i sve se događa kao i kod repeat petlje, dok god korisnik ne upiše 0 zbrajamo njegove upise. Jednom kad je 0 upisana, izlazimo iz petlje, te ispisujemo sumu.
Ako imate pitanja slobodno me kontaktirajte na Ova e-mail adresa je zaštićena od spam robota, nije vidljiva ako ste isključili JavaScript !
Uskoro dolazi i lekcija iz FOR petlje.
gost
kaže:
 |
... informatika je jako teška sa njom se treba sva?ati i svladati je to zna?i u?iti i u?iti bez prestanka i tako ?eš je nau?iti |
slatko 
Ažurirano (Petak, 11 Ožujak 2011 13:13)
Istaknite svoj oglas i povećajte posjećenost do 6 puta
Stranica Moje Instrukcije za vrijeme školske godine bilježi preko 100 000 posjeta mjesečno, stoga nemojte propustiti priliku i popunite svoje slobodne termine s nama.
|
Imate objavljen oglas, istaknite ga:
|
 |
Pišite lekcije i povećajte posjećenost svog oglasa
Pišite kratke lekcije i pomognite djeci u njihovoj potrazi za znanjem, a vaš oglas će biti prikazan u vrhu lekcije koju ste napisali. Na taj način možete i jednostavno dogovoriti instrukcije umjesto da vas traže preko tražilice u moru ostalih instruktora.