1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function lauf(Dalt,Dneu,Dver:integer):integer;
var Dtra,c,s,Weg:integer;
begin
        if Dalt < Dtra  then
                        begin
                        c:=Dtra;
                        Dtra:=Dalt;
                        end
                        else
                            if s>= Weg then
                                       lauf:=(Dver*15)
                                       else
                                           if Dalt = 0 then        
                                                       begin
                                                       Dalt:=Dneu;
                                                       s:=s+15;
                                                       end
                                                       else
                                                      lauf:=lauf(Dalt-12,Dneu+10,Dver+2);

                                                      Dtra:=c;
                               end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function Lauf(DAlt, DNeu, DVer: Integer): Integer;  
var
  DTra, C, S, Weg: Integer;
begin  
  if DAlt < DTra then       // DTra undefiniert;     | wenn du danach ein 'else'
  begin                     //                       | verwendest, wird die Funktion
    C    := DTra;           // immer noch;           | 'Lauf' gar nicht mehr auf-
    DTra := DAlt;           // erst jetzt definiert; | gerufen und wird beendet.
  end;
 
  if S >= Weg then          // S undefiniert; muss nicht in 'else';
  begin
    DTra := C;              // da 'else' weg, DTra hier hin;
    Lauf := (DVer * 15)     // 'Result' ist besser (trotzdem selber Effekt);
  end;

  if DAlt = 0 then          // muss auch nich in 'else';
  begin  
    DAlt := DNeu;  
    S    := S + 15;         // S immer noch undefiniert; erst danach definiert;
  end 
  else
    Lauf := Lauf(DAlt - 12, DNeu + 10, DVer + 2);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function Lauf(DAlt, DNeu, DVer: Integer): Integer;  
var
  DTra, C, S, Weg: Integer;
begin 
s:=0; 
  if DAlt < DTra then       // DTra undefiniert;     | wenn du danach ein 'else'
  begin                     //                       | verwendest, wird die Funktion
    C    := DTra;           // immer noch;           | 'Lauf' gar nicht mehr auf-
    DTra := DAlt;           // erst jetzt definiert; | gerufen und wird beendet.
  end;
 
  if S >= Weg then          // S undefiniert; muss nicht in 'else';
  begin
    DTra := C;              // da 'else' weg, DTra hier hin;
    Lauf := (DVer * 15)     // 'Result' ist besser (trotzdem selber Effekt);
  end;

  if DAlt = 0 then          // muss auch nich in 'else';
  begin  
    DAlt := DNeu;  
    S    := S + 15;         // S immer noch undefiniert; erst danach definiert;
  end 
  else
    Lauf := Lauf(DAlt - 12, DNeu + 10, DVer + 2);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

unit astronautending;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure astronaut ()
var
  rest: Integer;
begin
  rest := trage (500, 450);
  ShowMessage ('Am Ende sind ' + IntToStr (rest) + ' Dosen übrig');
end;

function trage (distanz: Integer; dosen: Integer)
begin
  if (distanz > 0) then
    result := trage (distanz - 15, dosen - (dosen + 5) div 6)
  else
    result := dosen;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure astronaut ();
var
  rest: Integer;
begin
  rest := trage (405, 450);
  ShowMessage ('Am Ende sind ' + IntToStr (rest) + ' Dosen übrig');
end;