3220342498

Przykład 6.

Ń Print "tekst przed pętla"

| Do

'ś Print "tekst wewnątrz pętli" Print "tekst po pętli"

Ponieważ pętla do..loop nie ma warunku kończącego, będzie się wykonywała w nieskończoność i ostatni tekst nigdy nie zostanie wyświetlony (dotyczy to również dowolnego innego kodu za pętlą do..loop).

Ćwiczenie 10. Napisz program, który będzie w pętli zwiększał wartość zmiennej liczba o 1 (zob. ćw. 2b), oraz I wyświetlał tę wartość funkcją print._|

Ćwiczenie 11. Napisz program, który będzie w pętli zwiększał wartość zmiennej liczba o 1, zaczynając od 0. Jeżeli zmienna liczba będzie miała wartość mniejszą niż 10 - wyświetl ją funkcją print (do sprawdzenia wartości zmiennej liczba wykorzystaj instrukgę if..then)._

Ćwiczenie 12. Napisz program, który będzie w pętli odliczał na przemian od 1 do 10, a następnie od 10 do 1. W tym celu dodaj zmienną kierunek, która będzie określała, czy zliczanie odbywa się w górę czy w dół. Kiedy liczba osiągnie 1 lub 10, zmień wartość zmiennej kierunek. Sprawdzenia wartości zmiennych liczba i kierunek dokonaj przy pomocy instrukcji if..then.else. Wynik odliczania wyświetlaj funkcją print._

Ćwiczenie 13. Zmodyfikuj program 'kalkulator' w taki sposób, aby po wykonaniu działania pytał o kolejne działanie. Dodaj do opcji wyboru działania opqę „Zakończ". Jeżeli użytkownik ją wybierze, wykonaj instrukcję

W niektórych sytuaqach potrzebujemy wykonać jakąś operację skończoną, ale dość dużą ilość razy. Potrzebna jest wtedy pętla, która posiada warunek kończący jej wykonywanie. Do pętli do..loop możemy dodać warunek until, który będzie określał kiedy pętla się zakończy. Utwórz w edytorze nowy plik 'test_loop_until', wpisz do niego zawartość poniższego przykładu i zaobserwuj wyniki symulaqi.

Przykład 7.

Dim Liczba as Integer    <■

Print "tekst przed pętla"

Liczba = 0

Liczba = Liczba + 1

Print Liczba ; " wyświetlenie tekstu"

Loop Until Liczba = 10

Print "Tekst został wypisany 10 razy"

Innym przydatnym rodzajem pętli jest instrukcja for..to..next, która automatycznie zwiększa (lub zmniejsza) wartość zmiennej sterującej pętlą. Wpis zawartość poniższego przykładu do pliku 'test_for' i przetestuj jego działanie.