| III.Yangi mavzu bayoni.
1.O'zbekiston bayrog'i rasmini chizuvchi dastur tuzing.
2.Ekranning to'rtta burchagida eni 60 va bo'yi 40 ga teng qizil rangli to'rtburchaklar chizuvchi dastur tuzing.
Uses Graph;
Var gd, gm, i : Integer; y:char;
Begin
Gd:=0; InitGraph(gd,gm, ");
Setcolor(14); rectangle(1,1,60,40);
Setcolor(12); rectangle(1,660,60,700);
Setcolor(10); rectangle(940,1,1000,40);
Setcolor(1); rectangle(940,660,1000,700);
Readln; CloseGraph;
End.
3.Ekranni teng to'rt bo'lakka bo'lib, ularni mos ravishda qizil, sariq, yashil va ko'k ranglarga bo'yovchi dastur tuzing.
Uses Graph;
Var gd, gm,x,y,k, i : Integer;
Begin
Gd:=0; InitGraph(gd,gm, ");
Setcolor(15); SetFillStyle(1,4); Bar(0,0,500,350);
Setcolor(15); SetFillStyle(1,14); Bar(0,350,500,700);
Setcolor(15); SetFillStyle(1,2); Bar(500,0,1000,350);
Setcolor(15); SetFillStyle(1,1); Bar(500,350,1000,700);
Readln; CloseGraph;
End.
4.Ekranning o'rtasida radiusi 100 ga teng bo'lgan sariq rangli doira chizuvchi dastur tuzing.
Uses Graph;
Var gd, gm, i : Integer; y:char;
Begin
Gd:=0; InitGraph(gd,gm, ");
SetFillStyle(1,14); FillEllipse(500,350,100,100);
Readln; CloseGraph;
End.
5.Oy va yulduzlar tasvirlangan kechki osmon manzarasini chizuvchi dastur tuzing.
Program oy_va_yulduzlar;
Uses graph;
Var gd, gm, x,y,k,i: integer;
Begin Gd:=0;
Initgraph(gd,gm,’’); randomize;
repcat
for i:=1 to 15 do begin
x:=25*k*round(random(15));
y:= 20*k*round(random(15));
putpixel(x,y,i); end;
k:=k+1; until k>10;
setcolor(15); SetFillStyle(1,15); FillEllipse(800,50,40,40);
readln; closgraph;
end.
6.Dengiz uzra nur taratayotgan Quyosh rasmini chizuvchi dastur tuzing. Dangizni chizishda yoy chizish operatoridan foydalaning.
7.Ichi siyrak qizil nuqtalar bilan to'ldirilgan muntazam oltiburchak chizuvchi dastur tuzing.
8*. 12 xil bo'yash usulini namoyish etuvchi 40x40 o'lchamli 12 ta kvadrat chizuvchi dastur tuzing.
Program masala_8;
Uses graph;
Var gd, gm, x1,x2,y1,y2,i: integer;
Begin Gd:=0;
Initgraph(gd,gm,’’);
X1:=1; x2:=40; y1:=1;y2:=40;
for i:=1 to 12 do begin
SetFillStyle(i,i+3); bar(x1,y1,x2,y2); x1:=x1+42; x2:=x2+42; end;
readln; closgraph;
end.
9*. Svetofor chiroqlarini ketma-ket yondiradigan svetofor rasmini chizuvchi dastur tuzing.
Uses Graph;
Var gd, gm: Integer;
Begin
Gd:=0; InitGraph(gd,gm, ");
Rectangle(10,10,80,240);
SetFillStyle(1,4); FillEllipse(45,45,25,25); circle(45,125,25);
circle(45,205,25);
Rectangle(110,10,180,240);
SetFillStyle(1,14); circle(145,45,25);
FillEllipse(145,125,25,25); circle(145,205,25);
Rectangle(210,10,280,240);
SetFillStyle(1,2); circle(245,45,25); circle(245,125,25)
FillEllipse(245,205,25,25);
Readln; CloseGraph;
End.
|
