Wybrane funkcje i procedury obsługi ekranu
Przegląd wybranych instrukcji do obsługi ekranu:
1. Procedura clrscr; czyszczenie ekranu.
2. Procedura gotoXY(x,y:byte);  umieszcza kursor w dowolnym miejscu ekranu
(parametry typu byte)
Przykład:
gotoXY(20,10);
write( Napis );
3. Procedura halt;  przerywa (kończy) natychmiast wykonywanie programu.
4. Procedura sound (f:word);  włącza dz
więk o częstotliwości f (f ą�<0;65535>, zakres
typu word)
5. Procedure noSound;  wyłącza dz
więk emitowany przez głośnik komputera, włączony
uprzednio przez sound.
6. Procedure delay(ms:word);  wstrzymuje program na określoną ilość milisekund ms
(1000 milisekund=sekunda), np.
uses crt;
begin
sound(2000);
delay(1000);
noSound;
readln;
end.
7. Funkcja keypressed:boolean;  funkcja ta określa czy naciśnięto jakiś klawisz na
klawiaturze, jeśli naciśnięto zwraca true, jeśli nie naciśnięto zwraca false, np.
uses crt;
begin
repeat
writeln( Turbo Pascal );
until keypressed; {w domyśle keypressed = true}
end.
8. Funkcja readkey:char;  Czyta znak z klawiatury (znak nie jest wyświetlany na ekranie).
Parametr wejściowy: brak. Typ wyniku: znakowy.
program klawisze;
uses crt;
var c:char;
begin
writeln('Nacisij dowolny klawisz');
c := readkey;
writeln('Nacisnales ', c, ', ktorego kod ASCII to ', ord(c));
readln;
end.
Wybrane funkcje i procedury obsługi ekranu 1/2
Zadanie 1: Napisz program, który odlicza na środku ekranu od 10 do 1 co sekundę,
a następnie kończy swoje działanie.
Zadanie 2: Napisz program, który wyświetla na środku ekranu wciśnięty znak z klawiatury.
Program ma kończyć działanie jeśli zostanie naciśnięty klawisz  k .
Zadanie 3: Napisz program losujący liczb z zakresu od 1 do 49 co 0,5 sekundy. Program ma
działać dopóki użytkownik nie naciśnie dowolnego klawisza.
Wybrane funkcje i procedury obsługi ekranu 2/2