Laboratoriya mashg‘uloti

TextBackGround(3);
Fon rangini tanlash protsedurasini chaqirish. Qavsda tanlangan rang tartibi (mazkur holatda “3” och kо‘k rangni anglatadi) ko`rsatiladi. Rang nomeri о‘rniga ingliz tilidagi aynan rang nomini kiritsa ham bо‘ladi. Masalan: black, red, green, blue, magenta, … .
ClrScr;	Ekranni tozalash protsedurasi.
TextColor(14);	Ekranda chiqarilayotgan simvollarning rangini tanlash protsedurasi. Qavsda tanlangan rang tartibi (mazkur holatda “14” sariq rangni anglatadi) ko`rsatiladi.
Gotoxy(40,10);	Ekrandagi x=40, y=10 koordinatali nuqtaga kursorni о‘rnatish protsedurasi.
Writeln(‘Nizomiy nomidagi TDPU!');	Kiritilgan matnni 10 satrning 40 pozitsiyasidan boshlab chiqarish operatori.
Delay(1000)	Vaqtincha ushlab turish protsedurasi. Bizning misolda 1000 mks gacha. Hozirgi zamon kompyuterlarda Delay(1), 1/1000 sekundga nisbatan tezroq ishlaydi. Shuning uchun mazkur holda ushlab turish 1-sekunddan kam vaqtni tashkil qiladi.
end.	Dastur yakuni.

Pascal ABC-da dastur ko‘rinishi va natijasi: