-
Помогите пожалуйста решить задачу!!!
Однородный стержень массой m1=0,2 кг и длиной l=1м может свободно вращаться вокруг горизонтальной оси, проходящей через центр тяжести. В верхний конец стержня попадает пластилиновый шарик,летящий горизонтально со скоростью 10м/с и прилипает к стержню. Масса шарика m2=10г. Определить угловую скорость стержня в начальный момент времени.
Ответы 1
-
Согласно закону сохранения энергии, m2*v^2=(m1+m2)*(ω*r)^2;w=
=.95 рад/с.Ответ:,5 рад/c
-
Автор:
keaton - 5 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
- sic+2koh+2o2-->k2sio3+co2+h2o электронный баланс
-
f(x)=3+4x/2x-5 производная
-
Предмет:
Алгебра -
Автор:
oliviathqw - 5 лет назад
-
Ответов:
2 -
Смотреть
-
-
помогите доделать код
unit proect;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries,Forms,
Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Chart1: TChart;
Image5: TImage;
Image6: TImage;
Label14: TLabel;
Label15: TLabel;
SinSeries2: TLineSeries;
CosSeries2: TLineSeries;
Edit3: TEdit;
Edit4: TEdit;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Shape1: TShape;
SinSeries: TLineSeries;
CosSeries: TLineSeries;
SinCosSeries: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
N = 100;
MIN = -5;
MAX = 5;
var
x: Double;
a,b,c,d,i: Integer;
begin
//чистка предыдущих графиков
//считываем переменные с клавиатуры
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
for i:=0 to N-1 do
begin
//Задаем для графиков площадь
x := MIN + (MAX - MIN) * i /(N - 1);
//Рисуем графики
SinSeries.AddXY(x, (a*x+b));
CosSeries.AddXY(x, (d*x*x));
SinCosSeries.AddXY(x,(c/x));
SinSeries2.AddXY(x, sin(x));
CosSeries2.AddXY(x, cos(x));
end;
end.
ошибка: Fatal: Syntax error, "BEGIN" expected but "end of file" found
Lazarus.-
Предмет:
Информатика -
Автор:
salvadorhubbard - 5 лет назад
-
Ответов:
3 -
Смотреть
-
- Катушка с площадью поперечного сечения 45 см2 при изменении магнитной индукции от 0,5 до 0,8 Тл в течение 2 мс индуцирует ЭДС 24 В. Сколько витков в этой катушке?
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years