Построить графики заданных функций на Canvas - Delphi - Ответ 12357774

function f1(x:real):real;
begin
f1:=abs(sin(x));
end;
function f2(x:real):real;
begin
f2:=abs(cos(x)*x);
end;
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,x,dx,mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
//диапазон
xn:=-2*pi;
xk:=2*pi;
//начало координат
x0:=Image1.Width div 2;
y0:=Image1.Height-50;
//масштабы по осям
mx:=(x0-20)/2/pi;
my:=(y0-20)/2/pi;
with Image1.Canvas do
 begin
  //оси
  moveto(0,y0);lineto(2*x0,y0);
  textout(2*x0-20,y0-20,'X');
  moveto(x0,0);lineto(x0,2*y0);
  textout(x0+5,0,'Y');
  textout(x0+5,y0+10,'0');
  //подписи по оси Х
  for i:=1 to 4 do
   begin
    moveto(x0+round(i*pi*mx/2),y0-3);
    lineto(x0+round(i*pi*mx/2),y0+3);
    moveto(x0-round(i*pi*mx/2),y0-3);
    lineto(x0-round(i*pi*mx/2),y0+3);
    case i of
    1:s:='0.5pi';
    2:s:='pi';
    3:s:='1.5pi';
    4:s:='2pi';
    end;
    textout(x0+round(i*pi*mx/2),y0+10,s);
    textout(x0-round(i*pi*mx/2),y0+10,'-'+s);
   end;
   //подписи по оси Y
  for i:=1 to 7 do
   begin
    moveto(x0-5,y0-round(i*my));
    lineto(x0+5,y0-round(i*my));
    textout(x0-25,y0-round(i*my)-5,floattostr(i));
   end;
   //1 график
  pen.Color:=clBlue;
  x:=xn;
  dx:=0.01;
  while x<=xk do
   begin
    if x=xn then moveto(x0+round(x*mx),y0-round(f1(x)*my))
    else lineto(x0+round(x*mx),y0-round(f1(x)*my));
    x:=x+dx;
   end;
  //2 график
  pen.Color:=clRed;
  x:=xn;
  while x<=xk do
   begin
    if x=xn then moveto(x0+round(x*mx),y0-round(f2(x)*my))
    else lineto(x0+round(x*mx),y0-round(f2(x)*my));
    x:=x+dx;
   end;
 end;
end;