Yangi mavzuni mustaxkamlash.
1.Ekranning o'rtasidan o'tuvchi gorizontal va vertikal chiziq chizuvchi dastur tuzing.
Uses wincrt, Graph;
Label 1;
Var gd, gm, i : Integer; y:char;
Begin
Gd:=0 ; InitGraph(gd,gm, ");
Line(1,350,1000,350);
Line(350, 1 , 350, 1000);
Readln; CloseGraph;
End.
2.Ekranning o'rtasida radiusi 100 dan kichik sariq rangli 4 ta aylana chizuvchi dastur tuzing.
Uses Graph;
Label 1;
Var gd, gm, i : Integer; y: char;
Begin
Gd:=0; InitGraph(gd,gm, ");
Setcolor(14);
Circle(500,350,100);
Circle(800,350,100);
Circle(300,350,100);
Circle(100,350,100);
Readln; CloseGraph;
End.
3.Ekranni sariq gorizontal chiziqlar bilan to'ldiring.
Uses Graph;
Var gd, gm, x,y,k,i : Integer;
Begin
Gd:=0; InitGraph(gd,gm, ");
Setcolor(15);
SetFillStyle(2,14); Bar(0,0,1000,700);
Readln; CloseGraph;
End.
4.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); FillEllipse(145,125,25,25); circle(145,45,25);
circle(145,205,25);
Rectangle(210,10,280,240);
SetFillStyle(1,2); FillEllipse(245,205,25,25); circle(245,45,25); circle(245,125,25)
Readln; CloseGraph;
End.
5.Qizil rangli muntazam beshburchak chizuvchi dastur tuzing.
Uyga vazifa: 4-5 mashqni dasturini tuzishva te
Sana :______________
Sinf :_______________
43- dars. Mavzu: Paskalda shakllar chizish imkoniyatlari mavzusini takrorlash
Darsning texnologik xaritasi
|
