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.