Реализовать программный код в 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.

165

458

Посмотреть ответы 1

Ответы на вопрос:

незнайка1183

Физика

4,5(84 оценок)

Скорость волны v=λ/t=λ*ν отсюда λ=v/ν λ1=331/24000=0,01 м λ2=331/14=23,6 м ответ: от 0,01 м до 23,6 м коммент: скорость звука 331 м/c взяли из таблицы

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Физика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.