Ćwiczenie 8. Jaki błędy popełniono przy pisaniu poniższych a) |
instrukcji? |
If wybór = 1 then Print "wybrałeś opcje numer 1" Elsę If wybór = 2 then Print "wybrałeś opcje numer 2" Elsę Print "Nie wybrałeś tez opcji numer 2" End if | |
b) | |
If wybór - 1 Print "wybrałeś opcje numer 1" Elsę If wybór = 2 Print "wybrałeś opcje numer 2" Elsę Print "Nie wybrałeś tez opcji numer 2" End if End if | |
W sytuacji, gdy mamy do sprawdzenia dużo warunków opisującywanych tą samą zmienną, program można znacząco uprościć dzięki zastosowaniu instrukcji select..case. Stwórz w edytorze nowy plik 'test_select', wypełnij go treścią poniższego przykładu i wypróbuj jego działanie dla różnych danych wejściowych tak, aby wykonać kod z każdego przypadku (case). | |
Przykład 5. | |
Dim I As Byte | |
Input "Podaj liczbę (0-10) " , I | |
Sełect Case I Case 1 : Print "1" Case 2 : Print "2" Case 3 to 5 : Print "3-5" Case Is >= 6 : Print ">= 6" Case Elsę : Print "Liczba poza zakresem" End Select | |
Ćwiczenie 9. Przerób program 'kalkulator', wykorzystując in |
strukcję select.casc. |
Nasz kalkulator ma jeszcze jedną niedogodność, której prawdziwe kalkulatory nie posiadają. Po wykonaniu operacji matematycznej i podaniu wyniku program kończy działanie i żeby obliczyć coś jeszcze, trzeba go uruchomić od nowa. Można go więc przerobić tak, żeby po podaniu wyniku automatycznie pytał o kolejne działanie do wykonania. W tym celu posłużymy się pętlą. Wpisz do edytora zawartość poniższego przykładu, zapisz go pod nazwą 'test_loop' i zaobserwuj jego działanie w symulatorze.