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:

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.

Izgled izpisa po zagonu programa:

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

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 :

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:

  1. naloga: Napiši program, ki bo izpisal cela števila od 1 do 100.
  2. naloga: Napiši program, ki bo tabeliral funkcijo s = a t2/2 na intervalu od 1 do 10, pri čemer je a konstanta (naprimer 0,5).
  3. naloga: Napiši program, ki bere dolžino in širino desk iste debeline in sproti izračunava volumen. Ko vnesemo podatek za širino = 0, se branje preneha.
  4. naloga: Popravi prejšni program tako, da preveri ali je bila vnesena pravilna dolžina deske. Dolžina je pravilna, če je med 4 in 4,1m.