bin neu hier... deshalb erstmal ein freundliches Hallo,
Habe folgendes Problem:
Mars Mission 2012 -- Shuttle landet 500 km vom Basislager entfernt -- 450 Dosen Nahrung hat ein Astronaut -- 12 kann er nur bei sich tragen -- pro Dose kann er 15 km laufen
Muss mirne Strategie überlegen. Meine war es, dass der Astronaut alle Dosen jewals immer 15 km weiterschleppt und dann die nächsten 15 km angeht. Dazu hab ich mir folgendes Programm geschrieben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lag1, lag2, weg: integer;
begin
lag1:= 450;
lag2:=0;
weg:=500;
repeat
weg:=weg-15;
repeat
if lag1<=13 then
begin
lag2:=lag2+lag1-1;
lag1:=0;
end
else
begin
lag1:=lag1-13;
lag2:=lag2+11;
end;
listbox1.Items.add(inttostr(lag1)+' '+inttostr(lag2)+' '+inttostr(500-weg));
until lag1 <= 0;
lag1:=lag2;
lag2:=0;
until weg<=195;
end;
nu muss dis aber rekursiv werden... und dis krig ich nicht hin.
kann mir jemand helfen aus dem programm ne rekursive funktion zu schreiben?!
Danke schonmal