Построение функций на Canvas в Delphi

@DanilTraum · Регистрация: 24.04.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, дорогие формучане!
Прошу помочь с лабораторной работой, а именно... было задание:

График такой функции описывается выражением: F(t)=Sin(Pi*t)/(Pi*t):

Delphi

Image1.Canvas.MoveTo(10,Image1.Height DIV 2);
FOR PX:=(-Image1.Width DIV 2+10) TO (Image1.Width DIV 2-10) DO BEGIN
X:=PX*30*3.14;
IF X<>0 THEN Y:=Sin(X)/X*2000;
PY:=TRUNC((y+1)*Image1.Height/2+10);
IF PX MOD 10 = 0 THEN 
Memo1.Lines.Add(IntToStr(PX)+' '+IntToStr(PY));
Image1.Canvas.LineTo(PX+Image1.Width DIV 2,PY);

Можно добавить оси координат, поместить на форму компонент Memo, в который вывести значения отсчетов (в нашем примере - через каждые 10 точек) (рис. 1.4-будет прикреплен)

Мой код программы:

Delphi

procedure TForm1.PaintBox1Click(Sender: TObject);
VAR X,Y: REAL;
PX,PY: LongInt;
begin
Image1.Canvas.MoveTo(10,Image1.Height DIV 2);
For PX:=(-Image1.Width DIV 2+10) TO (Image1.Width DIV 2-10) DO BEGIN
X:=PX*30*3.14;
IF X<>0 THEN Y:=Sin(X)/X*2000;
PY:=TRUNC((y+1)*Image1.Height/2+10);
IF PX MOD 10 = 0 THEN
Memo1.Lines.Add(IntToStr(PX)+''+IntToStr(PY));
Image1.Canvas.LineTo(PX+Image1.Width DIV 2,PY);
end;
end;

Компаненты:
Image1, Memo1, PaintBox1

Теперь как построить функции Arcsin(x), Arccos(x), Tan(x), Cotan(x), Log10(x), SinCos(x, sin, cos),
Log2(x), LogN(y,x), Max(a,b), Min(a,b), Power(X,E)

За помощь заранее спасибо!!!!

	28.03.2013, 12:30