BelkaDengiStol

29.01.2023 21:23

Физика

Есть ответ 👍

Реализовать программный код в delphi. К программному коду написать комментарии.
Примерный программный код УП0201 код 10

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;

Button4: TButton;
Memo2: TMemo;
Button5: TButton;
Edit3: TEdit;
Button6: TButton;
Memo3: TMemo;
SaveDialog1: TSaveDialog;
OpenDialog1:
TOpenDialog;
end;

var
Form1: TForm1;
log,adr:string;
stroka:string;
i:integer;
arg,fun:double;
f:TextFile;
nf:string;

procedure TForm1.Button1Click(Sender: TObject);
begin
log:=Edit1.Text;
adr:=Edit2.Text;
Memo1.Lines.Add('ЛОГИН '+log+' ПОЧТА '+adr);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
nf:=Edit3.Text;
Memo1.Lines.SaveToFile(nf+'.txt');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
arg:=0;
for i:=1 to 12 do
begin
fun:=sin(arg);
Memo2.Lines.Add('Синус от '+FloatToStrF(arg,ffFixed,5,2)+' равен '+
FloatToStrF(fun,ffFixed,5,2));
arg:=arg+pi/4;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if SaveDialog1.Execute
then Memo2.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if OpenDialog1.Execute then Memo3.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end.