Algoritimlash va dasturlash tillari

Ekranni tozalash

ClrScr, ClrEol, DelLine, InsLine,
ClrScr - Ekranni yoki joriy darchani tula tozalab, kursorni ekranning chap yuqori burchagiga o’rnatadi (1,1 koordinatalar).
ClrEol - kursor turgan joydan boshlab satr oxirigacha turgan xamma belgilarni o’chiradi.
DelLine - kursor turgan qatordagi xamma ma’lumotlarni o’chiradi, pastdagi xamma qatorlar bitta pozitsiya yuqoriga ko’tariladi.
InsLine - kursor turgan joyda bush katorni ekran pozitsiyasiga qo’shadi, pastdagi xamma katorlar bitta pozitsiya pastga tushadi.
Kursorni boshkarish
Kursorni boshkarish, kursor koordinatalari
Write protsedurasi - kursorni ekran buylab siljitish vazifasini bajaradi.
Axborotni chiqarish paytida kursorni ekranning xoxlagan pozitsiyasiga yo’naltirish 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');

Funksiya 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 o’zgartiradi.