24.06.2009, 21:50
общий
это ответ
Здравствуйте, Ильин Дмитрий.
Немного подправил Ваш код.
Приложение:
procedure TForm1.Button3Click(Sender: TObject);
var
XMin,XMax,YMin,YMax,x,y:real;
PX,PY:LongInt;
function F(x:real):real;
begin
result:=1-x*x*x;
end;
begin
XMax:=10;
XMin:=0;
//Функция монотонно убывающая,
//поэтому максимальное и минимальное значения достигается на концах промежутка
YMin:=F(XMax);
YMax:=F(XMin);
For PX:=0 To Image1. Width Do
Begin
X:=PX*(XMax-XMin)/ Image1.Width;
Y:=F(x);
PY:=Trunc(Image1.Height*(1-(Y-YMin)/(YMax-YMin)));
Image1.Canvas.Pixels[PX,PY]:=0;
end;
end;