Bierschaumzerfall

**jraxxo**

Hallo nochmal,
und noch ein Problem: ich soll auch Bierschaumzerfall mit einer For-Schleife coden. Dieser läuft NICHT exponentiell ab, d.h. er verliert alle 60s 12% seines ANFANGSVOLUMENS.
also hab ich (ich brauche sekundengenaue berechnung):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var x,v: extended;

    i,sec: longint;

begin

  v:=100;

  x:=100;

  for i := 0 to 600 do begin

  x:=x-(0.2*v);

  sec:=i;

  if (v / x = 10) then begin

    Edit1.Text:=(inttostr(sec));

    exit;

  end;

  end;

end

;

Er sagt aber sobald ich aufs Knöpfchen drücke "gleitkommadivision durch null".

Wie immer bedanke ich mich an dieser Stelle für Antworten im voraus.

Joscha

Bierschaumzerfall

Bierschaumzerfall

Forumregeln