Консультация № 169827
24.06.2009, 18:12
0.00 руб.
0 1 1
Уважаемые эксперты помогите пожалуйста решить следующую задачу. нужно нарисовать график функции y=1-(x*x*x)

Приложение:
var x,y:Real; PX,PY:LongInt;
Begin
For PX:=0 To Image1. Width Do
Begin
X:=PX*4*Pi/ Image1.Width;
Y:=sin(x);
PY:=Trunc(Image1.Height-(Y+1)* Image1.Height/2);
Image1.Canvas.Pixels[PX,PY]:=0;

Обсуждение

Неизвестный
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;
5
Форма ответа