Ma'ruza №1 Paskal tilining umumiy tavsifi

Ekranni tozalash

ClrScr, ClrEol, DelLine, InsLine,

ClrScr - Ekranni yoki joriy darchani tula tozalab, kursorni ekranning chap yukori burchagiga o’rnatadi (1,1 koordinatalar).
ClrEol - kursor turgan joydan boshlab satr oxirigacha turgan xamma belgilarni uchiradi.
DelLine - kursor turgan katordagi xamma ma’lumotlarni uchiradi, pastdagi xamma katorlar bitta pozitsiya yukoriga kutariladi.
InsLine - kursor turgan joyda bush katorni ekran pozitsiyasiga kushadi, pastdagi xamma katorlar bitta pozitsiya pastga tushadi.

Kursorni boshkarish

Kursorni boshkarish, kursor koordinatalari
Write protsedurasi kursorni ekran buylab siljitish vazifasini bajaradi.

Axborotni chikarish paytida kursorni ekranning xoxlagan pozitsiyasiga yunaltirish uchun Turbo Pascal tilida maxsus moslamalardan foydalaniladi.

GoToXY(X,Y:byte)
Bu protsedura kursorni X (ustun) va U(kator) koordinatalarida berilgan pozitsiyaga siljitadi.
Misol.
ClrScr; { Ekranni tozalash}

GoToXY(33,4); {kursorni 4- kator markaziga junatish }

Write('Boshkaruvchi dastur');
Funksii WhereX: byte i WhereY: byte funksiyalari joriy darchaga nisbatan X- yoki Y-kursor koordinatalari kiymatlarini aniklashga yordam beradi.
Misol.
Write('Kursor ustunda joylashgan ',WhereX);

Write('Kursor katorda joylashgan ',WhereY);

Rabotu GoToXY ning ishlash prinsipini kuyidagi dastur misolida kurib chiamiz.
PROGRAM DemoCrt;

USES Crt;

VAR

Row, Col : byte;

BEGIN

ClrScr;

Col := 1;

FOR Row := 1 TO 25 DO BEGIN

GoToXY(Col,Rov);

write('Dioganal buyicha chikarish');

Col := Col+2

END;

FOR Row := 1 TO 25 DO Delay(100); { Ushlab turish }

Col:=6;

FOR Row := 1 TO 25 DO BEGIN

GoToXY(Col,Rov);

ClrEol; { ClrEol buyicha tozalash}

Write('Uzib olib tashlash);

Col := Col+2;

END;

END. { DemoCrt }
Dasturda DemoCrt komandasi xamma operatsiyalar bajarilishida, ekranda kursorni joylashuvini uzgartiradi.