Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Построение графика функции
public y:array[1..20] of real; x,xn,dx,xk,n:integer; { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.N1Click(Sender: TObject); { Расчет данных } var i:integer; xx:string; begin xn:=strtoint(edit1.Text); xk:=strtoint(edit2.Text); dx:=strtoint(edit3.Text); x:=xn; i:=1; while x<=xk do begin y[i]:= 3.2*sqr(x/2)-9*(x/8) +20*sin(x)-50; str(y[i]:1:1,xx); memo1.lines.add('x ='+ inttostr(x) + ' y ='+xx); i:=i+1; x:=x+dx; end; n:=i—1; end; procedure TForm1.N2Click(Sender: TObject); { Построение графика } var xc,yc,i,m,px,py,mx:integer; begin with image1.Canvas do begin xc:=image1.width div 2; yc:=image1.height div 2; pen.Width:=5;pen.Color:=rgb(0,0,0); moveto(0,image1.height div 2); lineto(image1.width, image1.height div 2); moveto(image1.width div 2,0); lineto(image1.width div 2,image1.height); pen.Width:=1;pen.Color:=rgb(0,0,0); pen.Style:=psDot; m:=xc div 5; for i:=0 to 8 do begin moveto(xc+i*m, 0);lineto(xc+m*i, height); moveto(xc—i*m, 0);lineto(xc—m*i,height); moveto(0,yc—m*i); lineto(2*xc, yc—m*i); moveto(0,yc+m*i); lineto(2*xc, yc+m*i); end; x:=xn; i:=1; pen.color:=rgb(0,0,255); pen.width:=8; mx:=trunc(2*xc/(xk—xn)); moveto((x)*mx+xc,yc— trunc(y[i])); while x<=xk do begin px:= x*mx +xc; py:=yc—trunc(y[i]); image1.canvas.lineto (px,py); x:=x+dx; i:=i+1; end; font.Size:=10; textout(xc+5,10, 'Y'); textout(2*xc—25,yc—20, 'X'); textout(xc—15,yc—20, '0'); textout(xc+50,20, 'График функции’); for i:=1 to 3 do textout(xc—24,yc—m*i, inttostr(50*i)); for i:=1 to 3 do textout(xc—24,yc+m*i, inttostr(—50*i)); for i:=1 to 4 do textout(xc+m*i,yc+14, inttostr(3*i)); for i:=1 to 4 do textout(xc—m*i,yc+14, inttostr(3*i)); end; end; procedure TForm1.N3Click(Sender: TObject); {Прекращение работы программы} begin
end; end.
|