график примитивларни чизиш усуллари

DOC 72.0 KB Free download

Page preview (5 pages)

Scroll down 👇

1404133507_51371.doc график примитивларни чизиш усуллари режа: 1. чизиқ 2. туташган чизиқ 3. тўртбурчак 4. мультипликация чизиқ тўғри чизиқ linето усули орқали амалга оширилади. компонент.canvas.lineto(x,у) linето усули қалам жорий позициясидан берилган координатали нуқтагача тўғри чизиқ чизади. бошлангич нуқтани керакли нуқтага кўчириш учун moveto усулидан фойдаланиш мумкин. туташган чизиқ ўзаро туташган кесмалардан иборат шаклни чизиш учун polyline усулидан фойдаланилади. бу усул параметри tpoint типли массивдан иборат. polyline усулига мисол тариқасида маълум қиймат ўзгариши графигини чизувчи процедураcини келтирамиз: procedure tforml.button1click(sender: tobject); var gr: array[1..50] of tpoint; x0,y0: integer; dx,dy: integer; i: integer; begin х0 := 10; у0 := 200; dx :=5; dy := 5; for i:=l to 50 do begin gr[i].x := x0 + (i-l)*dx; gr[i].y := y0 - data[i]*dy; end; with forml.canvas do begin moveto(x0,y0); lineto(x0,10); moveto(x0,y0); lineto(200,y0); polyline(gr); end; end; polyline усули ёрдамида ёпиқ кўпбурчак чизиш учун массивнинг биринчи ва охирги элементи бир нуқтанинг координаталаридан иборат бўлиши керак. айлана ва эллипс …

ри юмалоқ тўртбурчак чизишга имкон беради. roundrec усулини чакириш инструкцияси куйидаги куринишга эга: объект.canvas.roundrec(x1,y1,х2, у2, х3, у3) бу ерда: · x1, y1, х2, у2 – туртбурчак параметрлари; · х3 и у3 — чорак кисми юмалок бурчак чизиш учун ишлатилдадиган эллипс катталиги. яна икки усул муйқаламдан фойдаланиб тўртбурчак чизишга имкон беради. fillrect усули ичи бўялган тўртбурчак чизади, framerect - фақат контур. бу усулларда фақат битта параметрга эга -trect типидаги структура. қуйидаги мисолда fillrect ва framerect усуллари орқали форма юзасига қизил туртбурчак соҳа ва яшил контурли тўртбурчак чизувчи процедура келтирилган. procedure tform1.button1click(sender: tobject); var r1, r2: trect; begin r1 := rect(20,20,60,40); r2 := rect(10,10,40,50); with fоrm1.canvas do begin brush.color := clred; fillrect(r1); brush.color := clgreen; framerect(r2}; end; end; кўпбурчак polygon усули кўпбурчак чизишга мўлжалланган бўлиб, параметри tpoint типидаги массивдир. массивнинг ҳар бир элементи (х,у) майдонлари кўпбурчак учи координаталаридан иборат бўлган ёзувдир. қуйида polygon усули ёрдамида учбурчак чизиш процедураси келтирилган: procedure tform1.button2click(sender: tobject); …

қуйида келтирилган дастур pixels хоссасидан фойдаланиб, у = 2 sin(jc) e*/5 функцияси графигини чиқаради. unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} function f(x:real):real; begin f:=2*sin(x)*exp(x/5) ; end; procedure groffunc; var x1,x2:real; y1,y2:real; x:real; y:real; dx:real; l,b:integer; w,h:integer; mx,my:real; x0,y0:integer; begin l:=10; b:=form1.clientheight-20; h:=form1.clientheight-40; w:=form1.width-40; x1:=0; x2:=25; dx:=0.01; y1:=f(x1); y2:=f(x1); x:=x1; repeat y := f (x); if y y2 then y2:=y; x:=x+dx; until (x >= x2); my:=h/abs(y2-y1); mx:=w/abs(x2-x1); x0:=1; y0:=b-abs(round(y1*my)) ; with form1.canvas do begin // оси moveto(l,b);lineto(l,b-h); moveto(x0,y0);lineto(x0+w,y0); textout(l+5,b-h,floattostrf(y2,ffgeneral,6,3)); textout(l+5,b,floattostrf(y1,ffgeneral,6,3)); x:=x1; repeat y:=f(x); pixels[x0+round(x*mx),y0-round(y*my)]:=clred; x:=x+dx; until (x >= x2); end; end; procedure tform1.button1click(sender: tobject); begin button1.visible:=false; groffunc; end; end. асосий вазифани groffunc процедураси бажаради. аввал [x1,x2] оралиқда функциянинг максимал (у2) ва минимал (yl) қийматлари ҳисобланади. сўнгра координаталар …

нувчи айлана дастури формаси ҳаракатланувчи айлана дастури матни unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, extctrls, stdctrls; type tform1 = class(tform) timer1: ttimer; procedure formactivate(sender: tobject); procedure timer1timer(sender: tobject); private { private declarations } public { public declarations } end; procedure ris; var form1: tform1; x,y: byte; implementation {$r *.dfm} procedure ris; begin form1.canvas.pen.color:=form1.color; form1.canvas.ellipse(x,y,x+10,y+10); x:=x+5; form1.canvas.pen.color:=clblack; form1.canvas.ellipse(x,y, x+10, y+10) ; end; procedure tform1.formactivate(sender: tobject); begin x:=0; y:=10; timer1.interval:=50; end; procedure tform1.timer1timer(sender: tobject); begin ris; end; end.

график примитивларни чизиш усуллари - Page 5

Want to read more?

Download the full file for free via Telegram.

Download full file

About "график примитивларни чизиш усуллари"

1404133507_51371.doc график примитивларни чизиш усуллари режа: 1. чизиқ 2. туташган чизиқ 3. тўртбурчак 4. мультипликация чизиқ тўғри чизиқ linето усули орқали амалга оширилади. компонент.canvas.lineto(x,у) linето усули қалам жорий позициясидан берилган координатали нуқтагача тўғри чизиқ чизади. бошлангич нуқтани керакли нуқтага кўчириш учун moveto усулидан фойдаланиш мумкин. туташган чизиқ ўзаро туташган кесмалардан иборат шаклни чизиш учун polyline усулидан фойдаланилади. бу усул параметри tpoint типли массивдан иборат. polyline усулига мисол тариқасида маълум қиймат ўзгариши графигини чизувчи процедураcини келтирамиз: procedure tforml.button1click(sender: tobject); var gr: array[1..50] of tpoint; x0,y0: integer; dx,dy: integer; i: integer; begin х0 := 10; у0 := 200; dx :=5; dy := 5; for...

DOC format, 72.0 KB. To download "график примитивларни чизиш усуллари", click the Telegram button on the left.

Tags: график примитивларни чизиш усул… DOC Free download Telegram