Запрограммировать светодиодную шкалу, чтобы по очереди загорались светодиоды

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.

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 это соотношение действительно только в системе си и его не сложно "доказать". нужно только вспомнить, что такое метр, когда его вводили при наполеоне.

 

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

 

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

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

 

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