16 020
edycji
Microsoft Small Basic - poradnik programowania (tekst źródłowy)
Wersja z 16:59, 9 maj 2016
, 9 maj 2016brak opisu edycji
Nie podano opisu zmian |
|||
| Linia 928: | Linia 928: | ||
Po tym rozpoczyna pętlę od nowa. | Po tym rozpoczyna pętlę od nowa. | ||
== Pętla While == | |||
=== Użycie pętli While === | |||
Pętla For wykonywała czynność określoną z góry ilość razy. A co gdy potrzebna ilość wykonania pętli nie jest znana? | |||
Wtedy możemy skorzystać z pętli <code>While</code> (ang. dopóki) wykonującą czynność tak długo, jak podany warunek jest prawdziwy. | |||
Poniższy przykład dzieli liczbę przez 2 tak długo, jak jest ona większa od 1. Zaczyna od [[69]]. ;) | |||
<code> | |||
<poem> | |||
liczba = 69 | |||
While (number > 1) | |||
TextWindow.WriteLine(number) | |||
liczba = liczba / 2 | |||
EndWhile | |||
</poem> | |||
</code> | |||
http://i.imgur.com/oaxl4zj.png | |||
=== Przejście z Goto do While === | |||
Możemy też odpowiednio przerobić nasz starutki program z <code>Goto</code> dodający [[69]], tak by wykorzystywał <code>While</code>. | |||
Stary kod: | |||
<code> | |||
<poem> | |||
i = 69 | |||
start: | |||
TextWindow.WriteLine(i) | |||
i = i + 69 | |||
If (i < 666) Then | |||
Goto start | |||
EndIf | |||
</poem> | |||
</code> | |||
Nowy kod: | |||
<code> | |||
<poem> | |||
i = 69 | |||
While (i < 666) | |||
TextWindow.WriteLine(i) | |||
i = i + 69 | |||
EndWhile | |||
</poem> | |||
</code> | |||
http://i.imgur.com/mw8lofA.png | |||