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

Показать ответ

Ответ:

шахид2

04.02.2021 17:10

Ой, а кто сказал что это задачка по физике?
Если бы учебник был по химии это стало бы задачкой по химии что ли?

Ну решим сейчас. Толщина книжного блока (без обложек) D=13-2*2=9мм.
Число листов N=S/2, где S=180 - число страниц, N=180/2=90.
Толщина бумаги d=D/N=9/90=0.1мм

На память:
Старая и молодая библиотекарши проводят инвентаризацию библиотеки. Старая сидит пишет, молодая у полок на стремянке пересматривает книги.
Молодая говорит: "Книга учебник физики, Миша - последний читатель. На 27 странице дырка". Переворачивает страницу. "И на 28й дырка".

0,0(0 оценок)

Ответ:

ДашинСамурай

18.09.2020 07:44

Дано:
$m_{1}=1$ кг
l=0,9

м
$\alpha =39$ °
$m_{2}=0,01$ кг
$v_{2}=300$ м/с
$v_{2}'=200$ м/с

Найти:
$\beta - ?$

Решение:

1) Изначально шар находится на некоторой высоте h1 с длиной нити l. Затем его опускают и в положении дальнейшего соударения с пулей шар имеет скорость V1. Запишем закон сохранения энергии:

$m_{1}g h_{1}= \frac{ m_{1} v_{1}в }{2}$

Сокращаем m1. Рассмотрим cosα:

$cos \alpha = \frac{l- h_{1} }{l}
$

Откуда выводим h1:

$h_{1}=l(1- cos \alpha )$

Выводим из ЗСЭ V1, подставляя формулу для h1:

$v_{1}= \sqrt{2gl(1-cos \alpha )}$

2) Закон сохранения импульса по горизонтали для пули и шара, спроецированный на некоторую ось ОХ, направленную в сторону движения пули, имеет вид:

$m_{2} v_{2}- m_{1} v_{1}= m_{2} v_{2}'- m_{1} v_{1}'$ ,

где V1' - скорость шара после соударения с пулей. Выведем ее:

$v_{1}'= \sqrt{2gl(1-cos \alpha )}- \frac{ m_{2}( v_{2}- v_{2}') }{ m_{1} } \\ \\ 
 v_{1}'= \sqrt{20*0,9*0,5}- \frac{0,01*100}{1}=3-1=2$

3) Закон сохранения энергии для шара после соударения с пулей:

$\frac{ m_{1} v_{1}'в }{2}= m_{1}g h_{2}$

При этом h2 аналогично h1 равен:

$h_{2} =l(1-cos \beta )$

Перепишем ЗСЭ в виде:

$v_{1}'в=2gl-2glcos \beta$

Откуда cosβ:

$cos \beta =1- \frac{ v_{1}'в }{2gl} =1- \frac{4}{18} = \frac{14}{18}= \frac{7}{9}=39$ °