Laboratoriya mashg‘uloti

Izoh: Grafik rejimda kiritilgan simvollarning о‘lchami va kо‘rinishlari turlicha bо‘lishi mumkin.
Bir rejimdan ikkinchisiga о‘tish.
Foydalanuvchi grafik rejimga о‘tishi uchun dasturning birinchi satrida USES Graph matnini yozishi lozim. Bu satrning о‘zi kompyuterni grafik rejimga о‘tishini ta’minlamaydi chunki bu satr yozuvlar satri bо‘lib operatorlar satri hisoblanmaydi. Grafik rejimga о‘tish (boshqacha qilib grafik rejimni initsializatsiya qilish deb ham aytiladi) uchun InitGraph standart protsedurasi xizmat qiladi. Grafik rejimni yopib matn rejimiga о‘tish uchun esa CloseGraph standart protsedurasi xizmat qiladi.
Misol: Avvaliga matn rejimida ekranda “Bu matn rejimi” matnini yozuvchi sо‘ngra grafik rejimga о‘tib aylana chizuvchi va yana matn rejimiga qaytib “Bu yana matn rejimi” matnni yozuvchi dastur tuzing.
Program dastur;
uses Graph;
Var Device, Mode: Integer;
Begin
WriteLn(‘Bu matn rejimi’);
{Grafik rejimni initsializiyalaymiz:}
Readln;
Device:=0;
InitGraph(Device, Mode, ’’);
Circle(100,80,50); {Aylana chizish uchun protseduraga murojat qilish.
Hozircha hech qanday izohlarsiz}
Readln;
{grafik rejimni yopishni unutmang:}
CloseGraph;
WriteLn(‘Bu yana matn rejimi’);
Readln
End.
Eslatma: Figurali { va } qavslar orqali izohlar kiritilgan. Izohlar bajarilmaydi, ular dasturni tushunishga yordam beradi.
Tushuntirish: InitGraph protsedurasidan foydalanishdan oldin ikkita turli nomli Integer tipidagi о‘zgaruvchilarni yaratib olishimiz lozim. Misolda: Device va Mode nomlardan foydalanildi. Bu ikkala о‘zgaruvchilarni InitGraph protsedurasiga murojat qilishda qavslar orasiga olib yozish kerak bо‘ladi.

• 
  Device-videoadapter tipini (CGA, EGA, VGA yoki boshqa)
  
•