Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo`: S. Egamov

IV. Mustahkamlash uchun savol va topshiriqlar

1. 
   Paskalning Graph moduli qanday maqsadda ishlatiladi?
   
2. 
   Grafik holatda ekrandagi nuqtaning o‘rni nimasi bilan aniqlanadi?
   
3. 
   Ekranni grafik holatga o‘tkazish uchun Paskalda qanday ko‘rsatma beriladi?
   

Mashqlar
1. Ekranni grafik holatga o‘tkazuvchi va Enter klavishi bosilganda yana matn holatiga qaytaruvchi dastur tuzing.
1. Ekranni grafik holatga o'tkazuvchi va klavishi bosilganda yana matnli holatga qaytaruvchi dastur tuzing.
Program grafika;
Uses graph;
Var gd, gm: integer;
Begin
GD:=0; Initgraph(GD,GM,’’);
Readln;
Closegraph;
End.
2. Ekranning to‘rtta burchagida sariq rangli nuqta hosil qiluvchi dastur tuzing.
program nuqtalar;
uses wincrt, graph;
var gd,gm: integer;
begin
gd:=0; initgraph(gd,gm,'');
{setcolor(10);}
putpixel(10,10,14); putpixel(10,490,14);
putpixel(590,10,14); putpixel(590,490,14);
readln;
closegraph;
end.
3. Nuqtalar yordamida ekranni o‘rtasidan bo‘luvchi gorizontal chiziq hosil qiling.
program nuqtalar;
uses wincrt, graph;
var gd,gm,x: integer;
begin
gd:=0; initgraph(gd,gm,'');
for x:=1 to 600 do
putpixel(x,300,14);
readln;
closegraph;
end.
4. Random funksiyasidan foydalanib turli rangli nuqtalarni hosil qilish dasturini tuzing.
program nuqtalar;
uses wincrt, graph;
var gd,gm,i,x,y,rang: integer;
begin
randomize;
gd:=0; initgraph(gd,gm,'');
for i:=1 to 50 do
begin
x:=random(600); y:=random(500);
putpixel(x,y,14);
end;
readln;
closegraph;
end.
V. Uyga vazifa: Mavzuni o`rganish


Qabul qildi : MMIDO` _________S.Egamov
Sana:__________________
Mavzu: Paskalda shakllar chizish operatorlari