73 (179)

Rozdział 4. • Zagadnienia trudniejsze 109

Gotowy: Boolean; begin

Randomize;

Prawidłowe 0;

■for i 1 to 10 do begin

Licznik 180;

A    Random(10)+1;

B    Random(10)+1;

Write(A, ' * ', B, ' - ¹);

Gotowy False; repeat

Readln(Wynik); if Licznik-0 then begin

Writeln('Przekroczony czas');

Gotowy True; end else

if Wynik<>A*B then begin

WritelnC'Nieprawidłowy wynik - spróbuj jeszcze raz'); WriteCA, ' * ', B, ' - '); end else begin

WritelnC'Prawidłowa odpowiedz');

Inc(Prawidlowe);

Gotowy True; end;

until Gotowy; end;

WritelnC'Liczba zdobytych punktów: ', Prawidłowe); end;

begin

ClrScr;

WritelnC'Sprawdzian z tabliczki mnożenia - nacisnij klawisz'); Readkey;

GetIntVecC$lC, StaryWektor);

SetIntVecC$lC, AddrCRysuj Licznik));

Sprawdzian;

SetIntVec($01C, StaryWektor);

Readkey;

end.

Gdy program zada użytkownikowi kolejne pytanie, ustawi zmienną globalną Licznik i zatrzyma się na procedurze Readln. W tym czasie (około 18 razy w ciągu sekundy) licznik jest pomniejszany aż do zera przez procedurę obsługi przerwania. Co osiemnaste wywołanie procedury na ekranie pokazywana jest pozostała liczba sekund. Na końcu program odtwarza stary wektor przerwań.

4.4. Instrukcja wyboru (case)

Bardzo często, aby sprawdzić wartość zmiennej i w zależności od wyniku wykonać różne działanie, wykorzystywaliśmy zagnieżdżoną instrukcję warunkową:

if Zmienna-wartoscl then działaniel