Wybrane funkcje i procedury obsługi ekranu

1/2

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 dźwięk o częstotliwości

f

(f <0;65535>, zakres

typu

word

)

5.

Procedure

noSound;

– wyłącza dź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

2/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.