движение самолета в Delphi

[s-andriano]

Ну тогда Вам нужно решить, куда выводить.
Пока Вы этого не решите, какое-либо обсуждение бесперспективно.

[cMep4[21]]

Решить то я могу решить). Но мое решение может быть сложным в плане реализации. Поэтому я и советуюсь/спрашиваю у всех вас, где лучше и полегче выводить подобного рода результаты.
Что можете посоветовать? У кого был такой опыт?

[cMep4[21]]

получится ли этот способ в моей программе? Выводить решения в txt - файл?

procedure TForm1.Button2Click(Sender: TObject);
var
   f: TextFile;
begin
  AssignFile (f, 'result.txt');
  Rewrite (f);
  WriteLn (f,z0,v0,theta0);
  CloseFile (f);
end;

Как мне поправить результат? "5000" получается в виде "5.00000000000000E+0003"

[s-andriano]

Выводить нужно не туда, куда проще, а туда, куда нужно.
Если Вас устраивает текстовый файл, - можно в текстовый файл.
Если Вы хотите, чтобы число с плавающей точкой выводилось с округлением до целого, нужно писать:

writeln(f, MyNumber:1:0);

Первая цифра означает общее количество знаков, вторая - после десятичной точки.
Примечание: при необходимости количество цифр будет увеличено (в отличие, скажем, от Фортрана).

[cMep4[21]]

Спасибо) После правки стало все нормально.
Кстати мне еще по эти значениям надо построить график. Тогда вывод в файл отпадает. Надо искать другой способ.

[s-andriano]

Во-первых, не отпадает. В файл все равно можно писать (и в некоторых случаях это даже обязательно), только нужно не перезаписывать файл, а дописывать данные в конец.

Но, вообще-то, график обычно строится по массиву чисел. Т.е., вероятнее всего, Вам нужно складывать результаты расчета в массив.

[cMep4[21]]

Покажите пожалуйста (если возможно) на каком-нибудь простом примере, как образовать массив из полученных данных.

[s-andriano]

Var
  MyArray : array[0..999]of MyData;
  NumData : longint = 0;

procedure AddDataToArray(data : MyData);
begin
  MyArray[NumData] := data;
  inc(NumData);
end;