Hohe Zahlen

[dominikkv]

so, mal schauen ob ich das richtig verstanden habe:

Delphi-Quellcode:

function F(r, mSchiff, mPlanet: Extended): Extended;
begin
  result := (y * mPlanet * mSchiff) / (r * r);
end;

function EnergieberechnungEx(Z: Cardinal; Pos, mPlanet, mSchiff: Extended): Extended;
var h: Extended;
    I: Cardinal;
    x: Extended;
begin
  if z = 0 then
    z := 1;
  h := (Pos*1000)/Z;
  result := 0;

  for i := 1 to Z do
    begin
      x := h * F(r+(i*h)/2, mSchiff, mPlanet);
      Result := Result + x;
    end;
end;

stimmt das so?
auf jedenfall ändert sich jetzt das ergebnis wenn ich die anzahl der schritte ändere und für 1 km braucht ein 1t schweres raumschiff 9794207 Joule

achso: tausend Dank an dich, Nikolas
ich weiß garnicht wie ich mich bei dir bedanken kann