7. naloga: Stavek while
Napiši program, ki izpiše števila od 1 do 20 in nijhove kvadrate.
Namig: Za izpis bomo uporabili zanko z while stavkom. Animiran prikaz!
Rešitev:
Izgled izpisa po zagonu programa:program izpis_kvadrati;
{program izpiše števila do 20 in njihove kvadrate}
var
i: integer;
begin
i:=1;{začetna vrednost zanke (i) postane 1}
while i<=20 do
begin {ponavljaj do izpolnitve pogoja(i<=20)}
writeln(i,sqr(i));{ponavljaj kaj: izpisuj i in njegov kvadrat}
i:=i+1;{za spremenjljivko i se izračuna nova vrednost za naslednji korak zanke}
end;{zaključek zanke - stavka while}
end.
Komentar: Z zanko na sorazmereno kratek način definiramo dolgotrajne ponavljajoče računske operacije. V našem primeru smo uporabili while stavek. Splošna oblika tega stavka je :1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
11 121
12 144
13 169
14 196
15 225
16 256
17 289
18 324
19 361
20 400
while (pogoj P) do (stavek S).
While stavek zaklučimo z besedico end, ki ji sledi podpičje.
Da se zanka lahko začne, mora biti definirana začetna vrednost za spremenljivko, ki jo zanka uporablja. V prvi ponovitvi zanke ima i vrednost 1, izpiše se 1 in izračuna ter izpiše se kvadrat od 1. V naslednjem koraku i postane 2. Zanka se ponovi za i = 2 in tako naprej do 20. Ko i postane 21, i ni več majnjši ali enak 20 in pogoj ni več izpolnjen , zato se zanka ustavi in program nadaljuje z naslednjim stavkom. Dodatne naloge: