Сабақ №3. Модуль crt. Сабақтың түрі : Іс-тәжірибелік сабақ Сабақтың мақсаты

GoToXY(x,y) – процедурасы курсорды экран бетінде у қатардың х бағанына жылжытады.

TextColor(color) – тексттің түсін орнатады.

TextBackground (color) – экран бетінің түсін (фон) орнатады.

ClrScr – экранды тазартып, курсорды экранның жоғарғы сол жақ бұрышына апарады.

Window(x1,y1,x2,y2) – экран бетіне тіктөртбұрышты терезе сызады. (x1,y1) және (x2,y2) нүктелері тіктөртбұрыштың диагоналінің сол жақ жоғарғы және оң жақ төменгі төбелері. Ескерту: Window процедурасы іске қосылған болса, онда барлық процедуралар тек таңдалған терезеде ғана жүреді.

Delline – курсор тұрған қатарды алып тастайды.

HighVideo – терілуші таңба анықтығын анықтайды.

LowVideo – терілген таңбаның анықтығын төмендетеді.

InsLine – курсор орналасқан жерге бір қатар қосады.

ReadKey – клавиатурадан басылған клавиша коды арқылы символды анықтайды.

KeyPressed – клавиатурадан перненің басылуын күтеді. Перне басылғанда True мәнін қабылдайды.

Sound(i) – динамиктен і жиілікпен дыбыс шығарады.

Nosound – динамикті өшіру.

Delay(i) – программаның орындалуын і миллисекундқа кідіреді.

Мысалдар қарастыру.

Терезенің төменгі жағында бағдарлама үзінділері кездейсоқ әдіспен араласып тұр. Ұсынылған блок-схема бойынша бағдарлама үзінділерін дұрыс ретпен орналастыру қажет. Әр үзіндінің өз орны бар.

program esep2;

uses crt;

var i:integer;

begin

for i:=1 to 30 do begin

delay(30000);

end;