[!dusyk!]

Код:

procedure TForm1.btn1Click(Sender: TObject);
var r,n,w,x,y,i,vertical_start:Integer;
z,up_limit,down_limit,step,vertical_scale:Real;
Data: array[0..2000] of Real;
begin
r:=strToint(Edit1.text);
if (r<0) then
begin
up_limit:= strToFloat(Edit1.text);
down_limit:=strToFloat(Edit2.text);
end
else
begin
up_limit:= strToFloat(Edit2.text);
down_limit:=strToFloat(Edit1.text);
n:=strtoint(edit1.Text);
end;
with Image1.picture.bitmap do
begin
Height:=Image1.Height;
Width:=Image1.Width;
canvas.Pen.Color:= clwhite;
canvas.Brush.Color:= clWhite;
canvas.rectangle(0,0,Image1.Width,Image1.Height);
canvas.Pen.color:=clblack;
end;
vertical_scale:=(Image1.Height-50)div 2;
vertical_start:= Image1.Height div 2;

with Image1.picture.bitmap do
begin
canvas.Pen.Width:=2;
canvas.moveTo(25,0);
canvas.LineTo(25,Image1.Height);
canvas.moveTo(25,0);
canvas.LineTo(15,10);
canvas.moveTo(25,0);
canvas.LineTo(35,10);
canvas.moveTo(0,vertical_start);
canvas.LineTo(Image1.Width,vertical_start);
canvas.moveTo(Image1.Width,vertical_start);
canvas.LineTo(Image1.Width-10,vertical_start+10);
canvas.moveTo(Image1.Width,vertical_start);
canvas.LineTo(Image1.Width-10,vertical_start-10);
step:=(up_limit-down_limit)/(image1.Width-50);
for i:=0 to(Image1.Width-25) do
begin
z:= i*step+down_limit;
Data[i]:=sin(z)/((z-3)+z);
end;
x:=25;
y:=Trunc(vertical_start+data[0]*vertical_scale);
Image1.picture.bitmap.canvas.moveTo(x,y);
Image1.picture.bitmap.canvas.pen.Width:=1;


begin
for i:=1 to(image1.Width-25) do
begin


x:=i+25;
y:=Trunc(vertical_start+data[i]*vertical_scale);
Image1.picture.bitmap.canvas.LineTo(x,y);
end;
end;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Image1.picture.bitmap.SaveToFile(Savedialog1.FileN ame);
end;

end.

Admin: Пользуемся тегами для оформления кода!

у меня рисует но не верно , потому и прошу помочь!!