Question

50 БАЛЛОВ.Написать программу в паскале, которая высчитывает атмосферное давление. ПОЖАЛУЙСТА, НУЖНО СРОЧНО!

Answer 1

Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.

Answer 2

Конечно, вот простая программа на Pascal для вычисления атмосферного давления. Программа предполагает, что пользователь вводит высоту над уровнем моря в метрах, и на выходе получает атмосферное давление в килопаскалях (кПа).

pascalCopy code
program AtmosphericPressure;

const
  g0 = 9.80665; // Ускорение свободного падения на уровне моря (м/с^2)
  M = 0.0289644; // Средняя молярная масса сухого воздуха (кг/моль)
  R = 8.31432; // Универсальная газовая постоянная (Дж/(моль*К))

var
  height: real;
  pressure: real;

begin
  writeln('Введите высоту над уровнем моря (в метрах): ');
  readln(height);

  // Вычисление атмосферного давления по формуле Барометрической формулы
  pressure := 101.325 * exp(-g0 * M * height / (R * 288.15));

  writeln('Атмосферное давление на высоте ', height:0:2, ' м составляет ', pressure:0:2, ' кПа.');
end.

Программа использует формулу Барометрической формулы для вычисления атмосферного давления на заданной высоте над уровнем моря. Ускорение свободного падения и средняя молярная масса сухого воздуха считаются константами, а универсальная газовая постоянная задана для сухого воздуха.