43-dars.
1. O’zbekiston bayrog’i rasmini chizuvchi dastur tuzing
uses graph;
var gd,gm:integer;
begin gd:=0; initgraph(gd,gm,»);
setfillstyle(1,1);
bar(1,1,getmaxX,150);
ellipse(75,75,90,270,50,50);
ellipse(75,75,90,270,30,50); {yarim oy}
outtextxy(150,125,’*’); outtextxy(120,125,’*’); outtextxy(180,125,’*’);
outtextxy(210,125,’*’); outtextxy(240,125,’*’); outtextxy(150,75,’*’);
outtextxy(180,75,’*’); outtextxy(210,75,’*’); outtextxy(240,75,’*’);
outtextxy(180,25,’*’); outtextxy(210,25,’*’);outtextxy(240,25,’*’);
setfillstyle(1,4); bar(1,150, getmaxX,160);
setfillstyle(1,15); bar(1,160, getmaxX, 310);
setfillstyle(1,4); bar(1,310, getmaxX,320);
setfillstyle(1,2); bar(1,320, getmaxX,470);
readln;
closegraph; end.
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:integer;
begin gd:=0; initgraph(gd,gm,»);
setfillstyle(1,4); bar(1,1,60,40);
bar(getmaxx-60,40,getmaxx,1);
bar(60,getmaxy-40,1, getmaxy);
bar(getmaxx-60, getmaxy-40,getmaxx, getmaxy);
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:integer;
begin gd:=0; initgraph(gd,gm,»);
setfillstyle(1,4); bar(1,1,trunc(getmaxx/2), trunc(getmaxy/2));
setfillstyle(1,14); bar(trunc(getmaxx/2), trunc(getmaxy/2),1,getmaxy);
setfillstyle(1,2); bar(trunc(getmaxx/2), trunc(getmaxy/2),getmaxx,1);
setfillstyle(1,1); bar(trunc(getmaxx/2), trunc(getmaxy/2),getmaxx,getmaxy);
readln; closegraph; end.
4. Ekranning o’rtasida radiusi 100 ga teng bo’lgan sariq rangli doira chizuvchi dastur tuzing.
uses graph;
var gd,gm:integer;
ox,oy:integer;
begin gd:=0; initgraph(gd,gm,»);
ox:=trunc(getmaxx/2); oy:=trunc(getmaxy/2);
setcolor(14);
setfillstyle(1,14);
fillellipse(ox,oy,100,100);
readln; closegraph; end.
5. Oy va yulduzlar tasvirlangan kechki osmon manzarasini chizuvchi dastur tuzing.
uses graph;
var gd,gm,i,x,y,k:integer;
begin randomize;
gd:=0; initgraph(gd,gm,»);
ellipse(75,75,90,270,50,50);
ellipse(75,75,90,270,30,50);
repeat
for i:=1 to 15 do
begin x:=25*k*round(random(15));
y:=20*k*round(random(15));
outtextxy(x,y,’*’);
end; k:=k+1;
until k>10; readln; closegraph; end.
6. Dengiz uzra nur taratayotgan Quyosh rasmini chizuvchi dastur tuzing.
uses graph;
var gd,gm,i:integer;
begin
gd:=0; initgraph(gd,gm,»);
setfillstyle(1,14);
fillellipse(trunc(getmaxx/2), getmaxy-150, 150,150);
setcolor(14);
while i<getmaxx do begin line(i,1,trunc(getmaxx/2), getmaxy-150);
i:=i+10; end;
i:=0;
while i<getmaxy do begin line(1,i,trunc(getmaxx/2), getmaxy-150);
line(getmaxx,i,trunc(getmaxx/2), getmaxy-150); i:=i+10; end;
setfillstyle(1,1);
bar(1,getmaxy-150,getmaxx,getmaxy);
readln; closegraph; end.
7. Ichi siyrak qizil nuqtalar bilan to’ldirilgan muntazam oltiburchak chizuvchi dastur tuzing.
uses graph;
var gd,gm:integer; km:array[1..6,1..2] of integer;
begin gd:=0; initgraph(gd,gm,»);
setfillstyle(10,4);
km[1,1]:=1; km[1,2]:=50;
km[2,1]:=50; km[2,2]:=1;
km[3,1]:=125; km[3,2]:=1;
km[4,1]:=175; km[4,2]:=50;
km[5,1]:=125; km[5,2]:=100;
km[6,1]:=50; km[6,2]:=100;
fillpoly(6,km);
readln; closegraph;
end.
8. 12 xil bo’yash usulini namoyish etuvchi 40×40 o’lchamli 12 ta kvadrat chizuvchi dastur tuzing.
uses graph;
var i,gd,gm,x1,x2,y1,y2: 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); bar(x1,y1,x2,y2); x1:=x1+50; x2:=x2+50;
end;
readln; closegraph;
end.
9. Svetafor chiroqlarini ketma-ket yondiradigan svetafor rasmini chizuvchi dastur tuzing.
uses graph,crt;
var gd,gm:integer;
begin
gd:=0; initgraph(gd,gm,»);
rectangle(1,1,100,300);
repeat setcolor(0); setfillstyle(1,0); fillellipse(50,250,30,30);
setcolor(4); setfillstyle(1,4); fillellipse(50,50,30,30);
delay(65000); setcolor(0); setfillstyle(1,0); fillellipse(50,50,30,30);
setcolor(14); setfillstyle(1,14); fillellipse(50,150,30,30);
delay(65000); setcolor(0); setfillstyle(1,0); fillellipse(50,150,30,30);
setcolor(2); setfillstyle(1,2); fillellipse(50,250,30,30);
delay(65000);
until keypressed;
readln; closegraph; end.