Zitat von
Carbrögen:
4. Das ist jetz rein Mathematisch glaube ich aber ich find keine lösung:
Ich hab diese 3 Spalten: Generation, Zeit, Bakterienanzahl.
Generation würde ich so lösen: In die Spalte "generation" schreibe ich jeweils i aus der For Schleife rein.
Zeit: Alle 20min Teilen sich die Bakterien. Ich habe eine Zeile schon da stehen, in der Steht "0h 00min". In Zeile 2 soll stehen "0h 20min" und so weiter... wie soll ich das machen!?
Damit kann man die Zeit im Format Xh XXmin ausgeben:
Eingangszahl ist eine real-Zahl: (20/60) wären 20 Minuten, einfach mit i malnehmen und in die Funktion schicken:
Listbox3.items.add( Zeitausgeben((1/3)*i));
Delphi-Quellcode:
function Zeitausgeben(Zeit:real) : String;
var
H,M : integer;
begin
H := trunc(Zeit);
M := round((Zeit - H)*60);
if M < 10 then
result := inttostr(H)+'h 0'+inttostr(M)+'min' ELSE
result := inttostr(H)+'h '+inttostr(M)+'min';
end;