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

procedure TForm1.Button1Click(Sender: TObject);
var
r,y,x,z1,z2:integer;
begin
Randomize;
y:=random(600);
x:=0;
for z1:=0 to 30 do begin
if r<0 then r:=(random(2)-1)
else if r>0 then r:=(random(2))
else if r=0 then r:=(random(3)-1);
for z2:=0 to 20 do begin
x:=x+1;
y:=y+r;
y:=y+(random(3)-1);
form1.Canvas.MoveTo(x,y);
form1.Canvas.LineTo(x,600);
end;
end;

end;					

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:

procedure TForm1.Button1Click(Sender: TObject);
var
r,y,x,z1,z2:integer;
begin
daten.Clear;
Randomize;
y:=random(form1.Height-100)+50;
x:=0;
r:=0;
for z1:=0 to round(form1.Width/10) do begin
if r<0 then r:=(random(2)-1)
else if r>0 then r:=(random(2))
else if r=0 then r:=(random(3)-1);
for z2:=0 to 10 do begin
x:=x+1;
y:=y+r;
y:=y+(random(3)-1);
if y > (form1.Height-50) then y:=y-1;
if y < (50) then y:=y+1;
daten.Add(inttostr(y)); //daten werden gesamelt (Tstrings)
form1.Canvas.MoveTo(x,y);
form1.Canvas.LineTo(x,form1.Height);
end;
end;

end;					

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:

program terrain;

uses Crt, Dos, Graph;

type
    tCurve = packed record
           amplitude,
           frequency: single;
    end;

var
   modus, treiber: integer;
   curves: array[1..10] of tCurve;
   i, x, y, ly: integer;

begin
     modus := VGAHi;
     treiber := VGA;
     InitGraph(treiber, modus, 'BGI');

     randomize;

     for i := 1 to 5 do
     begin
          curves[i].amplitude := ((random(200)+1)/10);
          curves[i].frequency := ((random(250)+150)/10);
     end;

     cleardevice;

     ly := 320;
     for x := 1 to 640 do
     begin
          y := 320;
          for i := 1 to 5 do
          begin
               <span style="font-weight: bold">y := y + trunc(sin((x / curves[i].frequency)) * curves[i].amplitude);</span>
          end;
          Line(x-1, ly, x, y);
          ly := y;
     end;

     repeat
     until keypressed;

     closegraph;
end.					

1:
2:
3:
4:
5:

  TMyGame = record
    typ, tex, steigung: Integer;
  end;
  
   Game:array[0..maxX, 0..MaxY];					

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:

type
 tCurve = packed record
                  amplitude,
                  frequency: single;
                 end;

var
 curves: array[1..10] of tCurve;
 i, x, y: integer;

begin
 randomize;

 for i := 1 to 5 do
 begin
  curves[i].amplitude := ((random(200)+1)/10);
  curves[i].frequency := ((random(250)+150)/10);
 end;

 canvas.fillrect(canvas.ClipRect);

 canvas.MoveTo(0, 320);
 for x := 1 to 640 do
 begin
  y := 320;
  for i := 1 to 5 do
   y := y + trunc(sin((x / curves[i].frequency)) * curves[i].amplitude);
  canvas.LineTo(x, y);
 end;
end;