1- dars. Mavzu: Masalalarni kompyuterda yechish bosqichlari

I.Tashkiliy qism: Salomlashish, navbatchi axboroti, fan yangiliklari bilan tanishish, kompyuterlarni ishchi holatida ekanligini aniqlash.
II. O`tilgan mavzuni so`rash.
1.Ekranda biror shakl chizish uchun uning rangi qaysi protsedurasi yordamida tanlanadi?
2.Paskalda kesma chizish imkoniyatini amalda ko'rsatib bering.
3.Aylana qaysi protsedura yordamida chiziladi?
4.Ellips protsedurasi yordamida qanday shakllar chizish mumkin?
5.To'g'ri to'rtburchak chizish protsedurasida xl, yl, x2 va y2 lar nimani anglatadi?
6.DrawPoly protsedurasi yordamida qanday shakllar chizish mumkin?
7.Fon rangini o'zgartirishni amalda ko'rsating.
8.SetFillStyle yordamida qanday shakllar chizish mumkin?
9.Ichi bo'yalmagan va bo'yalgan ko'pburchak chizish usullarini izohlang.
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.