Naredba WHILE WHILE Broj izvravanja naredbi S zavisi
Naredba WHILE
WHILE Broj izvršavanja naredbi S zavisi od zadanog uslova. Sve dok logički izraz B ima vrijednost ISTINA (true), izvršava se naredba S B Računa se vrijednost logičkog izraza B. Ako je B = true, izvršava se naredba S i ponovo se vraćamo na tačku 1. Ako je B = false, završava se naredba WHILE prelazi se na sljedeću naredbu. LAŽ ISTINA S B – logički izraz S – naredba
readln(n) WHILE n>0 DO BEGIN suma: = suma +1/n; n: = n – 1; END; i: =0 WHILE i<=10 DO BEGIN writeln(i: 3); i: =i+1 END;
program Suma. Brojeva; var Broj, Suma : integer; begin Suma : = 0; write ('Unesite broj (negativan unos oznacava kraj): '); readln (Broj); while Broj >= 0 do begin Suma : = Suma + Broj; Broj: =Broj-1; end; writeln ('Suma unesenih brojeva je: ', Suma) ; readln; end.
Štampati neparne brojeve manje od 10. PROGRAM neparni; VAR x : integer; BEGIN x: =1; while x<10 do BEGIN writeln(x); x: =x+2; END; readln; END. X: =1 LAŽ X<10 ISTINA X: =X+2 1 3 5 7 9
Napisati program koji broji koliko je upisano ocjena (1, 2, 3, 4, 5) sve do trenutka dok se ne upiše broj koji ne pripada skupu ocjena.
PROGRAM brojanje; VAR oc, jedan, dva, tri, cetiri, pet : integer; BEGIN readln(oc); jedan: =0; dva: =0; tri: =0; cetiri: =0; pet: =0; while (oc>=1) and (oc<=5) do BEGIN CASE oc OF 1: jedan: =jedan +1; 2: dva: = dva +1; 3: tri: = tri +1; 4: cetiri: = cetiri +1; 5: pet: = pet +1 END; readln(oc); END; writeln('Ocjena 1 ima : ', jedan); writeln('Ocjena 2 ima : ', dva); writeln('Ocjena 3 ima : ', tri); writeln('Ocjena 4 ima : ', cetiri); writeln('Ocjena 5 ima : ', pet); readln; END.
Napisati program za prebrojavanje brojeva od k do n djeljivih sa m
- Slides: 8