Перевод из Delphi на C++

unit Tabul;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Grids,
  Series, jpeg;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Chart1: TChart;
    Image1: TImage;
    Image2: TImage;
    Edit11: TEdit;
    Label20: TLabel;
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const Nmax=20;
type
  Ax=Array [1..Nmax] of Real;
  Ty=Array [1..Nmax,1..Nmax] of Real;
  Te=Array [1..Nmax,1..Nmax] of integer;
var
  Form1: TForm1;
  A,Mx:Ax;
  My,ER:Ty;
  Xn,Xk,Dx,b,int,p,c,d,eps,del:real;
  ERR,k,M:integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N7Click(Sender: TObject);//Окно главного меню(Файл---->Выход)
begin
Close;
end;
 
procedure TForm1.N8Click(Sender: TObject);//Окно главного меню(Правка---->Очистить)
var
 i,j:integer;
begin
Edit1.Clear;Edit2.Clear;Edit3.Clear;Edit4.Clear;Edit5.Clear;Edit6.Clear;Edit7.Clear;Edit8.Clear;Edit9.Clear;
 For I:=0 to 20 do
  For J:=0 to 20 do
   begin
    Form1.StringGrid2.Cells[I,J]:='';
    StringGrid1.Cells[I,J]:='';
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);//Обработчик кнопки Вычислить корень
var
 km, ERR,i: integer;
 c, d, eps, z,b: real;
function F(X:Real):Real;
 begin
  F:=1/x-pi*cos(pi*x);
 end;
begin
  c := StrToFloat(Edit3.text);
  d := StrToFloat(Edit4.text);
  eps := StrToFloat(Edit1.text);
  km := StrToInt(Edit2.text);
  ERR:=0;
  i:=1;
   Repeat
    begin
         Z:=(C+D)/2;
         if abs(F(z))>Eps then
           begin
                    Inc(i);
                    if (F(c)*F(Z))>0 then
                      C:=Z
                    else
                      D:=Z;
           end
         else
           begin
                    i:=km+1;
                    ERR:=1;
                    b:=z;
           end;
    end;
   Until i>km;
        If ERR>0 then
         begin
          Edit11.text := FloatToStrF(f(z), ffGeneral, 3, 5);
          Edit9.text := FloatToStrF(b, ffGeneral, 6, 8);
         end
        else
          MessageDlg('Корень за '+IntToStr(Km)+' итераций не найден',mtError,[mbOk],0);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject); //Обработчик кнопки Табулировать
const Nmax=20;
 
procedure Tab(b,Xn,Xk,Dx:real;M:integer;var A,Mx:Ax;var My,ER:Ty);
var
 i,j:integer;
 X,Y,k:real;
begin
 For j:=1 to M do
  begin
   I:=1;
   X:=Xn;
   ER[j,i]:=0;
    repeat
     begin
      k:=A[j];
      if (b>=0) and (k>0) then
       Y:=sqrt(b)*ln((exp(ln(x)*2*b)+exp(ln(A[j])*2*x))/(18+sqrt(3+2*x*x*x)))
      else
       ER[j,i]:=1;
      My[j,i]:=Y;
      Mx[I]:=X;
      Inc(I);
      X:=X+Dx;
     end;
    Until X>Xk;
  end;
end;
 
Procedure RezOut(var A,Mx:Ax;var My,ER:Ty);
 Var
 I,J:integer;
begin
StringGrid2.ColCount:=M+1;
StringGrid2.RowCount:=k+1;
 for I:=1 to M do
  begin
   StringGrid2.Cells[I,0]:=('A['+IntToStr(I)+']='+FloatToStr(A[I]));
    for J:=1 to k do
     begin
      StringGrid2.Cells[0,j]:=('x['+IntToStr(j)+']='+FloatToStr(Mx[J]));
       if ER[i,j]=1 then
        StringGrid2.Cells[i,j]:='ОШИБКА'
       else
       StringGrid2.Cells[I,J]:=FloatToStrF(My[I,J],ffGeneral,3,1);
     end;
 
  end;
end;
 
begin
   Xn:= StrToFloat(Edit5.Text);
   Xk:= StrToFloat(Edit6.Text);
   Dx:=StrToFloat(Edit7.Text);
   M:= StrToInt(Edit8.Text);
   b:= StrToFloat(Edit9.Text);
     Tab(b,Xn,Xk,Dx,M,A,Mx,My,ER);
     k:=trunc((Xk-Xn)/Dx+1);
     RezOut(A,Mx,My,ER);
  end;
procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.Cells[0,0]:='M';
   StringGrid1.Cells[1,0]:='A';
   StringGrid2.Cells[0,0]:='X\A';
end;
 
procedure TForm1.Button4Click(Sender: TObject);//Обработчик кнопки Заполнить массив А
var
 J,M,CodeForVal:integer;
 sA:string;
begin
M:= StrToInt(Edit8.Text);
for J:=1 to M do
 begin
  StringGrid1.Cells[0,j]:=IntToStr(j);
  sA:=StringGrid1.Cells[1,j];
  val(sA,A[J],CodeForVal);
   If CodeForVal>0 then
    begin
     MessageDlg('Неверно задано значение переменной',mtError,[mbOk],0);
     exit;
    end;
 end;
end;
 
procedure TForm1.N9Click(Sender: TObject);//Окно главного меню(Помощь---->О программе)
begin
MessageDlg('Программа табулирования функции и нахождения корня нелинейного уравнения: '+
'корень вычисляется методом половинного деления', mtCustom,[mbOK],0);
end;
 
procedure TForm1.Button3Click(Sender: TObject);// кнопка "Построить график"
var
 I,J:integer;
 mm:TChartSeries;
begin
 For i:=1 to (StringGrid2.ColCount-1) do
  begin
   mm:=TLineSeries.Create(Self);
   mm.Title:='При A=  '+FloatToStr(A[I]);
   Chart1.AddSeries(mm);
   Chart1.SeriesList[i-1].Clear;
    For j:=1 to (StringGrid2.RowCount-1) do
     begin
      Chart1.Series[i-1].AddXY(Mx[J],My[I,J]);
     end;
  end;
end;
 
procedure TForm1.N4Click(Sender: TObject);//Окно главного меню(Файл---->Открыть)
var
f:TextFile;
Adr,s:String;
Km,M,i:integer;
Eps,C,D:real;
result: boolean;
begin
 Adr:='test1.txt';
 result:=InputQuery('Открытие файла','Введите полное имя файла (с адресом)',Adr);
 if FileExists(Adr) then
  begin
  AssignFile(f,Adr);
  Reset(f);
   Readln(f,s);
   Eps:=StrToFloat(s);
   Readln(f,s);
   Km:=StrToInt(s);
   Readln(f,s);
   C:=StrToFloat(s);
   Readln(f,s);
   D:=StrToFloat(s);
   Readln(f,s);
   Xn:=StrToFloat(s);
   Readln(f,s);
   Xk:=StrToFloat(s);
   Readln(f,s);
   Dx:=StrToFloat(s);
   Readln(f,s);
   M:=StrToInt(s);
   Readln(f,s);
    For i:=1 to M do
      begin
       readln(f,s);
       StringGrid1.Cells[1,i]:=s;
      end;
   Edit1.Text:=FloatToStr(Eps);
   Edit2.Text:=IntToStr(Km);
   Edit3.Text:=FloatToStr(C);
   Edit4.Text:=FloatToStr(D);
   Edit5.Text:=FloatToStr(Xn);
   Edit6.Text:=FloatToStr(Xk);
   Edit7.Text:=FloatToStr(Dx);
   Edit8.Text:=IntToStr(M);
   CloseFile(f);
   StringGrid1.Cells[0,0]:='M';
   StringGrid1.Cells[1,0]:='A';
   StringGrid2.Cells[0,0]:='X\A';
  end
else
 if result=true then
  ShowMessage ('Файл не найден!');
end;
 
procedure TForm1.N5Click(Sender: TObject);//Окно главного меню(Файл---->Сохранить значения)
var f:TextFile;
Xn,Xk,Dx,M,Eps,Km,C,D,p,soname: String;
result,i:integer;
begin
 result:=MessageDlg('Сохранить данные в файл?',mtConfirmation,mbYesNoCancel,0);
 soname:=InputBox('Сохранение','Введите полное имя файла(с адресом)','test1.txt');
    AssignFile(f,soname);
      Rewrite(f);
      Eps:=Edit1.Text;
      Km:=Edit2.Text;
      C:=Edit3.Text;
      D:=Edit4.Text;
      Xn:=Edit5.Text;
      Xk:=Edit6.Text;
      Dx:=Edit7.Text;
      M:=Edit8.Text;
      writeln (f,Eps);
      writeln (f,Km);
      writeln (f,C);
      writeln (f,D);
      writeln (f,Xn);
      writeln (f,Xk);
      writeln (f,Dx);
      writeln (f,M);
      writeln (f,P);
      For i:=1 to StrToInt(M) do
       begin
        writeln(f,StringGrid1.Cells[1,i]);
       end;
      CloseFile(f);
end;