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):
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