Question

Тело падает с ускорением g. Определить пройденный телом путь h-gt^2/2 после первой и второй секунд падения. Нужно написать программу в паскале, помогите пожалуйста.

Answer 1

/*Я, конечно, не тру физик, но пройденный телом путь вычисляется не так*/
//Pascal ABC.NET 3.2 сборка 1318

Const 
 g=9.832;

Var
  h:real;
  i:integer;
begin
  readln(h);
  for i:=1 to 2 do
  writeln(h+(g*sqr(i))/2); //если что, поправите
end.

Пример ввода:
2
Пример вывода:
6.916
21.664

Answer 2

Конечно, вот программа на Pascal, которая вычислит пройденный путь телом после первой и второй секунды падения, используя уравнение движения: h = gt^2 / 2.

pascalCopy code
program CalculateDistance;
var
  g, t1, t2, h1, h2: real;
begin
  // Введите ускорение свободного падения (g) и время (t1 и t2)
  write('Введите ускорение свободного падения (g): ');
  readln(g);

  write('Введите время после первой секунды падения (t1): ');
  readln(t1);

  write('Введите время после второй секунды падения (t2): ');
  readln(t2);

  // Вычислите пройденный путь после первой и второй секунды падения
  h1 := (g * t1 * t1) / 2;
  h2 := (g * t2 * t2) / 2;

  // Выведите результаты
  writeln('Пройденный путь после первой секунды падения: ', h1:0:2, ' м');
  writeln('Пройденный путь после второй секунды падения: ', h2:0:2, ' м');

  readln;
end.

Сначала программа запросит у вас ускорение свободного падения (обычно около 9.81 м/с^2), затем время после первой и второй секунды падения. После ввода всех значений программа вычислит и выведет пройденные пути для каждого из введенных моментов времени.