pidarok2281
02.07.2020 04:13

Определите значение переменной b после выполнения фрагмента алгоритма записанного в виде блок-схемы: Найдите значение b


Определите значение переменной b после выполнения фрагмента алгоритма записанного в виде блок-схемы:

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Fleepee
01.01.2023 09:29

t = 2pi*sqrt(l/g)

в среде это g будет, естественно, меньше, так как на шарик действует выталкивающая сила.

найдём это g.

по 2 закону ньютона f = p-fa = pш*v*g0 - рс*v*g0=v*g0*(pш-рс)=m*g = pш*v*g

откуда g = g0*(1-pc/pш)

я использовал обозначения

g0 - стандартное ускорение свободного падения

рш - плотность шарика

рс - плотность среды

v - объём шарика.

то, что я написал, это просто закон архимеда, не более того. а закон ньютона - как скобки.

подставим в исходную формулу, получим

t = 2pi*sqrt(l/g0*(1-pc/pш))

подставим исходные данные

t = 2*pi*sqrt(0.1/g0*(1-1/1.2)) =2*pi*sqrt(6/(10*g0))=2*pi*sqrt(3/(5*g0)) = 2*3.14159*sqrt(3/(5*9.81)) = 1.556c = 1.56c

 

замечание1. в приближённых вычислениях часто принимают во внимание тот факт, что g = pi^2 c хорошей точностью. это значительно вычисления.

в нашем случае сразу получаем

t = 2*pi*sqrt(l/(g0*(1-1/1. = 2*sqrt(0.1*1.2/0.2) = 2*sqrt(0.6)=1.55 = 1.55c

то есть совпадение до сотых! а вычислять проще.

замечание2 это соотношение действительно только в системе си и его не сложно "доказать". нужно только вспомнить, что такое метр, когда его вводили при наполеоне.

 

вот вроде и всё.

 

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

(подсказка - маятник перевернётся "вверх ногами").

 

ну и последнее. при таких плотностях среды(сравнимых с плотностью шарика) пренебрегать сопротивлением среды - рискованно, это сопротивление, как правило, большое и существенно влияет на поведение маятника. 

 

0,0(0 оценок)
Ответ:
20Iulia
15.05.2022 12:47
Первая программа:

Var
   N,A:integer;
   S:real;
Begin
S:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A;
    End;
WriteLn('S = ',S);
End.

Пример работы программы:

N = 5
-5
10
15
-25
17
S = -30

Вторая программа:

Var
   A,N,k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    A:=Abs(A);
    if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1
    End;
WriteLn('k = ',k);
End.

Пример работы программы:

N = 3
756
12
39
k = 2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота