График функции для Delphi

Рейтинг: 0Ответов: 0Опубликовано: 22.06.2023

Я до этого не сталкивался с Delphi, но прочитав некоторые источники немного понял как работать с формой. У меня проблема с постройкой графика ArcCos. Я не могу понять почему компилятор ругаеться из за названия

    function f1(a:real):real;
 begin
   result:= ArcCos(a);
 end;

 { TForm1 }

 procedure TForm1.Button1Click(Sender: TObject);
 var x,a,b,h:real;
   i,N:integer;
   begin
     CheckListBox1.Checked[0] := true;
     Series1.Clear;
     a:=StrToFloat(Edit1.Text);
     b:=StrToFloat(Edit2.Text);
     N:=StrToInt(Edit3.Text);
     h:=(b-a)/N;
     for i:=0 to N do begin
       x:=a+h*i;
       Series1.AddXY(x,f1(x),'',clRed);
     end;
   end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  begin
    if CheckListBox1.Checked[0] then Series1.Active := true
    else Series1.Active := false;
  end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  begin
    case RadioGroup1.ItemIndex of 0:Chart1.View3D := false;
    1:Chart1.View3D := true;
    end;
  end;
end; 

В момент компиляции выходит ошибка что нет такого ArcCos, нет Series1( Я эго тоже искал в параметрах Tchart, но не нашёл), и нет Viev3D. Если есть возможность буду рад видеть сразу исправленый код

Ответы

Ответов пока нет.