Sana: sana: Sinf: 9-a 9-b fan: Informatika va at. 40– dars. Mavzu: Paskalda ekranni grafik holatga o'tkazish Maqsad

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?
   
4. 
   Grafik holatdan “chiqish” uchun qaysi operator qo‘llaniladi?
   
5. 
   PutPixel, GetPixel, GetMaxX va GetMaxY funksiyalarining vazifasini aytib bering.
   

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. 2-mashq.


O’IBDO’: S.N. Adizova