Контрольная работа по "Программирование"

end; 

procedure TForm1.Button5Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet2;

end; 

procedure TForm1.Button6Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet3;

end; 

procedure TForm1.Button4Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet1;

end; 

procedure TForm1.Button3Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet4;

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

a:=1;b:=2;

  StringGrid1.Cells[0,0]:='Функция';

  StringGrid1.Cells[0,1]:='a=';

  StringGrid1.Cells[0,2]:='b=';

  StringGrid1.Cells[0,3]:='Интеграл  равен';

PageControl1.ActivePage:=TabSheet1;

end; 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

Chart1.Series[0].Clear;

StringGrid1.Cells[1,0]:='';

StringGrid1.Cells[1,1]:='';

StringGrid1.Cells[1,2]:='';

StringGrid1.Cells[1,3]:='';

form1.Edit1.Text:='';

end; 

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Chart1.Series[0].Clear;

StringGrid1.Cells[1,0]:='';

StringGrid1.Cells[1,1]:='';

StringGrid1.Cells[1,2]:='';

StringGrid1.Cells[1,3]:='';

form1.Edit1.Text:='';

end; 

procedure TForm1.Button8Click(Sender: TObject);

var s:String ;

    i:integer;

    clr:TColor;

    im,ib:real;

    inn:integer;

    begin

      case RadioGroup1.ItemIndex of

        0:str(IntegralRect(1,2,0.0001):10:7,s);

        1:str(IntegralTrap(1,2,0.0001):10:7,s);

        2:str(IntegralSimps(1,2,0.0001):10:7,s);

    end ;

  form1.Edit1.Text:=s; 

  Chart1.Series[0].Clear;

a:=1;b:=2;

im:=a;

inn:=1000;

ib:=(b-a)/inn;

for i:=0 to inn-1 do

begin

  Chart1.Series[0].AddXY(im,f(im),'',clr);

  im:=im+ib;

end; 
 

  If Form1.ComboBox1.Text='f(x)=sin(x)' Then StringGrid1.Cells[1,0]:='sin(x)';

  If Form1.ComboBox1.Text='f(x)=cos(x)' Then StringGrid1.Cells[1,0]:='cos(x)';

  If Form1.ComboBox1.Text='f(x)=ln(x)' Then StringGrid1.Cells[1,0]:='ln(x)';

  StringGrid1.Cells[1,1]:=FloatToStr(a);

  StringGrid1.Cells[1,2]:=FloatToStr(b);

  StringGrid1.Cells[1,3]:=s;

end; 

end. 

2) Пример работы программы: