Предмет: Физика, автор: КахаПуля

Нужно определить высоту горы, барометр-анероид (справа) находится у поножия горы и показывает значение 1038 гПа. Ртутный же барометр находится на вершине горы и разгица высот у него 730 мм.


vipredsmile: 730 мм чего?
vipredsmile: ртутного столба?

Ответы

Автор ответа: yanus91113
0
p(в)*g*H=1038*10^{9} - p(р)*g*h
h=0,73 м
g=9,8 м/с^2
p(p)=13600 кг/м^3 - плотность ртути
р(в)- плотность воздуха
Н=(1038*10^{9} - p(р)*g*h)/(p(в)*g)
Подставляем значения ...

Похожие вопросы
Предмет: Алгебра, автор: igrat5338
Предмет: Информатика, автор: sogia7777
Что означают в этом коде компоненты k и s( выделено на фото)

задание звучит так: Составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежат вне интервала (C,D)


program z1;

uses crt; {Подключение модуля экрана}

var

a:array [1..100] of integer;

c,b,d,n,min,s,k,i:integer;

begin

clrscr;{Очистка экрана}

write('Введите интервал c:');

readln(c); {Вводится интервал c}

write('Введите интервал d:');

readln(d);{Вводится интервал d}

write('Введите размерность массива n=');

readln(n); {Вводится размерность массива}

if c>d then

begin {Проверка интервала с>d и смена значений с=d и d=c}

b:=c;

c:=d;

d:=b;

end;

s:=0;{Присваивание начального значения min}

For i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]); {Ввод массива}

end;

For i:=1 to n do

begin

if (a[i] d) then {Выполнение определенного логического условия}

begin

k:=1;

s:=s+1;{Счетчик для нахождения первого элемента не входящего в интервал(c,d)}

if s=1 then

min:=a[i];{Присваивание min значение первого элемента массива}

if a[i]
min:=a[i];

end;

end;

if k=1 then {Выполнение определенного логического условия для вывода решения}

write('Минимальный элемент не входящий в интервал(',c,',',d,'):',min)

else

write('Все элементы входят в интервал');

readln; {Пауза по завершению задачи}

end.
Предмет: Математика, автор: Аноним
Предмет: Физика, автор: NatashaKoly