unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, CheckLst, StdCtrls,
  ExtCtrls, TAGraph, TASeries;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    CheckListBox1: TCheckListBox;
    EditA: TEdit;
    EditB: TEdit;
    EditM: TEdit;
    LabelA: TLabel;
    LabelB: TLabel;
    LabelM: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);

  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
function f1 (a: real):real;
begin
  result := ln(a);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   x, a, b, h: real;
   i, M :integer;
begin
    CheckListBox1.Checked[0] := true;
    Chart1LineSeries1.Clear;
    if RadioGroup1.ItemIndex = 0  then
    Chart1.View3D := false;
    if RadioGroup1.ItemIndex = 1 then
    Chart1.View3D := true;
    a := StrToFloat(EditA.Text);
    b := StrToFloat(EditB.Text);
    M := StrToInt(EditM.Text);
    h := (b-a) / M;
    for i:= 0 to M do
      begin
        x:= a + h*i;
        Chart1LineSeries1.AddXY(x,f1(x), ' ', clRed);
        end;

end;
  
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  if CheckListBox1.Checked[0] then
    Chart1LineSeries1.Active := true
  else
    Chart1LineSeries1.Active := false;
end;

end.