Нужно перевести код с языка Delphi на язык Python

unit krn1;
 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
 
type
 
TForm1 = class(TForm)
 
Button1: TButton;
 
Button2: TButton;
 
Button3: TButton;
 
Button4: TButton;
 
Label1: TLabel;
 
ListBox1: TListBox;
 
SaveDialog1: TSaveDialog;
 
procedure Button4Click(Sender: TObject);
 
procedure Button1Click(Sender: TObject);
 
procedure Button2Click(Sender: TObject);
 
procedure Button3Click(Sender: TObject);
 
private
 
{ Private declarations }
 
public
 
{ Public declarations }
 
end;
 
var
 
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//=============================================
 
const
 
fn='D:\ПЕ-92\Курапкин\КР';
 
Nt=30;
 
n = 9;
 
y0 = 0.1;
 
eps = 0.000001;
 
a=0; b=2;
 
var
 
T,h:real;
 
fname:string;
 
ft:text;
 
X, Y: array [0..Nt] of real;
 
kol: integer;
 
procedure zapis;
 
var k:integer;
 
begin
 
AssignFile(ft,fname);
 
rewrite(ft);
 
for k := 0 to Nt do
 
begin
 
writeln(ft,k:5,X[k]:10:4,Y[k]:10:4);
 
end;
 
closefile(ft);
 
end;
 
function polynom(t:real):real;
 
begin
 
polynom:=t*t*t*t*t*t-2*t*t*t*t-1;
 
end;
 
function phi(x: real): real;
 
begin
 
phi := x + Polynom(x);
 
end;
 
procedure Iter(a, b: real; var x2, y2: real; var flag: Boolean);
 
var
 
x0, x1, y0, y1: real;
 
begin
 
kol := kol + 1;
 
x0 := a; y0 := phi(x0);
 
x1 := b; y1 := phi(x1);
 
x2 := (x1 * y0 - y1 * x0) / ((x1 - x0) - (y1 - y0));
 
y2 := phi(x2);
 
flag := (y0 - x0) * (y2 - x2) > 0;
 
end;
 
procedure wegstein(a, b, eps: real; var x: real);
 
var
 
xz, yz: real;
 
prizn: Boolean;
 
begin
 
repeat
 
Iter(a, b, xz, yz, prizn);
 
if prizn then a := xz
 
else b := xz;
 
until abs(xz - yz) < eps;
 
form1.Label1.visible:=true;
 
form1.Label1.Caption:='Корень = '+floattostr(xz);
 
x := xz;
 
end;
 
function Fs(x, t: real): real;
 
begin
 
if x > t then
 
x := x - t * (trunc(x / t));
 
if (x > 0) and (x < 1) then
 
result := 1
 
else if (x >= 1) and (x <= t) then
 
result := (t - x) / (t - 1);
 
end;
 
function f(x, y: real): real;
 
begin
 
result := 0.1 * x * x - 2 * x * y + (1 + n / 10) * Fs(x, T)
 
end;
 
procedure euler(Nt: integer; h: real);
 
var
 
k: integer;
 
z: real;
 
s1,s2,s3: string;
 
begin
 
Y[0] := y0;
 
for k := 0 to Nt do
 
X[k] := k * h;
 
for k := 1 to Nt do
 
begin
 
z := f(X[k - 1], Y[k - 1]);
 
Y[k] := Y[k - 1] + h * f(X[k - 1] + h / 2, y[k - 1] + h / 2 * z);
 
end;
 
for k := 0 to Nt do
 
begin
 
str(k:4, s1);
 
str(X[k]:10:4, s2);
 
str(Y[k]:10:4, s3);
 
form1.ListBox1.Items.add(s1+s2+s3);
 
end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
Label1.Caption:='решаем уравнение';
 
Button1.Visible:=false;
 
Button2.Visible:=true;
 
Button2.SetFocus;
 
ListBox1.Visible:=true;
 
wegstein(a, b, eps, T);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
 
Label1.Caption:='решаем диф уравнение';
 
Button2.Visible:=false;
 
Button3.Visible:=true;
 
Button3.SetFocus;
 
h:=2*T/Nt;
 
euler(Nt, h);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
 
begin
 
if SaveDialog1.Execute then
 
begin
 
fname:=SaveDialog1.FileName;
 
Label1.Caption:='пишем в файл '+fname;
 
zapis;
 
end;
 
Button3.Visible:=false;
 
Button4.Visible:=true;
 
Button4.SetFocus;
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
 
begin
 
close;
 
end;
 
end.