Перевод с Delphi на C

unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
 
type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   Edit2: TEdit;
   Edit3: TEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 
var
 Form1: TForm1;
 k:integer;
 t,SK,SK_1,numerator,denominator,precision, epsilon:real;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 t:=StrToFloat(Edit1.Text);
 epsilon:=StrToFloat(Edit3.Text);
 k:=1;
 numerator:=1; {значение числителя при к=0}
 denominator:=1; {значение знаменателя при к=0}
 SK:=1; {значение функции при к=0}
 precision:=100;
 
while precision >= epsilon  do
   begin
       SK_1:=SK;
       numerator:=numerator*t;
      denominator:=denominator*k;
      SK:=SK+numerator/denominator;
      precision:=abs(SK-SK_1);
      k:=k+1;
   end;
 Edit2.Text:=FloatToStr(SK);
end;
 
end.

max_power=15*ln(10)/ln(t); if k>=max_power then begin Edit2.Text:=FloatToStr(SK+nom/denom); exit; end;