Решение физических задач программированием

Задача.

Тело свободно падает с высоты h с ускорением g. Напишите программу расчета значений скорости v и высоты h в зависимости от времени с интервалом dt.

Используется язык программирования Паскаль.

Исходные данные записаны в входном файле Input.txt. На первой строке записаны t0  v0 h0  G  dt. Во второй строке их значении разделенные пробелами.

Данные входного файла.

      t0  v0 h0  G  dt

0        0 1000 9,8 1

Результаты получить в тестовом файле Output.txt.

B первой строке выходного файла записано Resultatu, во второй строке - обозначения искомых величин в остальных строках – результаты вычислений.

Uses CRT;

Var t0,a,v0,h0,G,dt:Real;

    I:Integer;

    t,h,v:Array[1..15] of real;

    FR,FD:Text;

Begin

CLRSCR;

Assign(FD,'Pad.txt');Reset(FD);

Assign(FR,'OTV.txt');Rewrite(FR);

  Reset(FD);

  Readln(FD);

  ReadLn(FD,t0,v0,h0,G,dt);

  For I:=1 to 15 do begin

  t[i]:=t0+dt;

  t0:=t[i];

  end;

  For I:=1 to 15 do begin

  v[i]:=v0+g*t[i];

  end;

  For I:=1 to 15 do begin

  h[i]:=h0-(v0*t[i]+(g*sqr(t[i])/2));

  end;

    {Вывод результатов}

  Writeln('Resultatu');Writeln;

  Writeln(FR,'Resultatu');

  Writeln('t','     ','v','     ','h');

  Writeln(FR,'t','        ','v','        ','h',' ' );

  For I:=1 To 15 do begin

  Writeln(FR,t[i]:4:2,' ',v[i]:4:2,'  ',h[i]:4:2);

  Writeln(t[i]:4:2,' ',v[i]:4:2,'  ',h[i]:4:2);

  end;

  Close(FD); Close(FR);

  Readln

  end.

Входные и выходные файлы:

Файл Input.txt.

t0  v0  h0   G  dt

0.1  0 1000 10 1

Краткое описание документа:

Решение задач составляет неотъемлемую часть полноценного изучения физики на любом уровне. Судить о степени понимания физических законов можно по умению сознательно их применять для анализа конкретных физических явлений, т. е. для решения задач. Можно использовать методы программирования для решения задач, где имеются вычисления большого объема. Данный пример может быть использован как на уроках по физике так и на уроках информатики.