Pascal szybkie palce – program ćwiczący refleks

Szybkie palce

Znajdź jak najszybciej na klawiaturze klawisz wyświetlający się na ekranie. Program policzy ile czasu zajęła ci ta czynność i w miarę możliwości oceni.

Program sprawdzający refleks

Napisz program, który poprosi cię o podanie klawisza alfanumerycznego na klawiaturze i zliczy czas, w jakim został znaleziony.

Program zlicza czas w sekundach oraz setnychsekundy. Dlatego jego dokładność jest wysoka. Licznik jest bardzo dokładny, dlatego można go użyć również do stopera.

Program może pełnić różne funkcje, głównym jego celem było pokazanie użycia biblioteki dos, w celach obliczeniowych czasu.

Program do treningu refleksu oraz nauki klawiatury, dla niewprawionych użytkowników.

program szybkie_palce;
uses dos ,crt;
var czas_poczatek,czas_koniec,s,ss,h,m:word;
        litera,pobierana,key:char;
begin
randomize;
writeln('Program testujący twój refleks! Naci˜śnij enter, aby kontynuować.');
readln;
repeat
writeln('Uwaga za chwilę wy˜wietli się litera!');
writeln('Postaraj się jak najszybciej znale˜ść tą literę!');
litera:=chr(random(25)+65);{49+41}
delay(3500);
GetTime(h, m ,s, ss);
czas_poczatek:=s*100+ss;
clrscr;
writeln(litera);
        repeat
        pobierana:=UPCASE(readkey);
        until pobierana=litera;
        GetTime(h, m ,s, ss);
        czas_koniec:=(s*100)+ss;
        czas_koniec:=czas_koniec-czas_poczatek;
        s:=czas_koniec div 100;
        ss:=czas_koniec-s*100;
        write('Znalezienie klawisza zajęło ci ');
        if s <> 0 then write(s,' sekund ');
        if ss <> 0 then write(ss,' setnych!');
        writeln;
        if s>60 then writeln('Wyˆłączony mam większy zapˆołn od twojego:P')
        else if s>2 then writeln('Kiepski refleks. Liczę na twoją poprawę.')
        else if s>1 then writeln('Łuuch... Ale się namy˜lałˆe˜ś.')
        else if (s<=1) and (ss>90) then writeln('Tempo żółwia w skˆładzie porcelany!')
        else if (s<1) and (ss<10) then writeln('Musisz jeszcze trochę poćwiczyć!')
        else if (ss<100) and (s>0) then writeln('Sˆłabiutko. Może następnym razem będzie lepiej!')
       else if ss>80 then writeln('Źle nie ma. Tempo ziemniaka czasem się przydaje.')
        else if ss>60 then writeln('Dobrze. Może kiedy˜ wyprzedzisz ˜ślimaka!')
        else if ss>40 then writeln('Niezˆy refleks. Oby tak dalej!')
        else if ss>20 then writeln('Brawo! Świetny wynik!')
        else writeln('Jeste˜ś kozak gratuluje refleksu.');
        if(ss<60) and (s=0) then
        begin
        writeln;
        writeln('Niepokonany heros. Level UP. Może teraz rozszerzymy arsenaˆł? T/N');
        readln;
        writeln('Żartowaˆem nie chce mi się!');
        end;
writeln('Jedziemy dalej? T/N');
key:=UPCASE(readkey);
until key='N'
end.

W programie została użyta biblioteka Dos odpowiadająca za obsługę czasu.

Zachęcam do sporządzenia własnych modyfikacji tego skryptu!

I ty przetestuj czy masz szybkie palce! Wystarczy Pascal kompilator.