48-49-dars.
1. Tomonining uzunligi a gat eng kvadrat va unga ichki chizilgan aylana chizish dasturi tuzilsin. a ning qiymati klaviaturadan kiritilsin.
uses graph; var gd,gm:integer; a:integer; r:real;
begin
write(‘Kvadratning tomoni: ‘); readln(a);
r:=a/2;
gd:=0; initgraph(gd,gm,»);
setcolor(14);
rectangle(0,0,a,a);
circle(trunc(a/2), trunc(a/2),trunc(r));
readln; closegraph; end.
2. Radiusi R ga teng aylana va unga tashqi chizilgan kvadrat chizish dasturi tuzilsin. R ning qiymati klaviaturadan kiritilsin.
uses graph; var gd,gm:integer; a,r:integer;
begin
write(‘Aylana radiusini kiriting: ‘); readln(r);
a:=2*r;
gd:=0; initgraph(gd,gm,»);
setbkcolor(1);{fon rangi} setcolor(14); {chiziq rangi}
circle(r,r,r);
rectangle(0,0,a,a);
readln; closegraph; end.
3. Tomonlarining uzunligi a va b bo’lgan to’g’ri to’rtburchak va unga ichki chizilgan ellips chizish dasturi tuzilsin. a va b ning qiymati klaviaturadan kiritilsin.
uses graph; var gd,gm:integer; a,b:integer;
begin
write(‘a=’); readln(a);
write(‘b=’); readln(b);
gd:=0; initgraph(gd,gm,»);
setbkcolor(1); setcolor(14);
rectangle(0,0,a,b);
ellipse(trunc(a/2),trunc(b/2),0,360,trunc(a/2),trunc(b/2));
readln; closegraph; end.
4. Ko’k fonli ekranni oralig’i 20 piksel bo’lgan vertikal oq chiziqlar bilan to’ldiring.
uses graph;
var gd,gm,x:integer;
begin
gd:=0; initgraph(gd,gm,»);
setbkcolor(1);
setcolor(15);
repeat line(x,1,x,getmaxy); x:=x+20;
until x>getmaxx;
readln; closegraph; end.
5. Har xil rangli 15 ta doira chizing
uses graph;
var gd,gm:integer; I:integer;
begin
gd:=0; initgraph(gd,gm,»);
for i:=1 to 15 do begin setcolor(i);
setfillstyle(1,i); fillellipse(i*35,100,15,15); end;
readln; closegraph; end.
6. Stol rasmini chizing
uses graph;
var gd,gm:integer;
begin gd:=0; initgraph(gd,gm,»);
setcolor(15);
rectangle(43, 204, 395, 219); rectangle(74, 220, 89, 283);
rectangle(326, 220, 341, 292); line(44, 204, 136, 158);
line(136, 158, 470, 158); line(470, 158, 395, 203);
line(395, 219, 470, 173); line(470, 173, 470, 158);
line(450, 186, 450, 249); line(450, 249, 437, 249);
line(437, 249, 437, 195); rectangle(142,220,157,252);
readln; closegraph; end.
7. Uy rasmini chizing.
program uy_1;
uses crt,graph;
var gd,gm:integer; x,x2,y,y2,n:word;
begin gd:=0; initgraph(gd,gm,»);
x2:=getmaxX div 2; y2:=getmaxY div 2; x:=getmaxX; y:=getmaxY;
setbkcolor(9); setcolor(8); line(0,y-50,x,y-50); setfillstyle(1,6);
floodfill(5,y-40,8); setfillstyle(1,14); setcolor(14);
pieslice(0,0,270,360,70); setfillstyle(1,5);
setcolor(6); rectangle(x2,y-50-150,x2+90,y-51); floodfill(x2+5,y-60,6); setfillstyle(1,4); line(x2,y-50-151,x2+45,y-50-151-50); line(x2+45,y-251,x2+90,y-199);
floodfill(x2+45,y-249,6); setfillstyle(1,13); rectangle(x2+45-20,y-160,x2+45+20,y-100);
line(x2+45,y-130-30,x2+45,y-130+30); line(x2+45-20,y-130,x2+45+20,y-130);
floodfill(x2+45-15,y-155,6); floodfill(x2+45+15,y-155,6); floodfill(x2+45-15,y-105,6); floodfill(x2+45+15,y-105,6); setfillstyle(1,10); setcolor(3); arc(50,y-51-100,0,360,45); floodfill(50,y-150,3); setcolor(6); line(50,y-51,50,y-51-100); setfillstyle(1,10); setcolor(3); arc(170,y-51-100,0,360,45); floodfill(170,y-150,3); setcolor(6);
line(170,y-51,170,y-51-100); setfillstyle(1,10); setcolor(3); arc(x-140,y-51-100,0,360,45);
floodfill(x-140,y-150,3); setcolor(6); line(x-140,y-51,x-140,y-51-100);
setbkcolor(8); randomize; for n:=1 to 300 do begin putpixel(random(x),random(150),14);
end; readkey; closegraph;
end.
program uy_2;
uses graph;
var gd,gm:integer;
begin gd:=0; initgraph(gd,gm,»);
setcolor(15); rectangle(143, 191, 432, 438);
line(143, 191, 279, 34); line(279, 34, 432, 192);
line(354, 93, 354, 111); line(367, 124, 367, 94);
line(367, 94, 355, 94); line(310, 323, 310, 437);
line(310, 324, 346, 324); line(346, 324, 346, 434);
line(346, 430, 346, 439); line(335, 380, 335, 396);
rectangle(181, 268, 243, 322); line(209, 268, 209, 323);
line(181, 297, 243, 297); setfillstyle(8,15);
bar(6, 440, 660, 481);
readln; closegraph; end.