random terra

 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
program RndTer;
uses GraphABC;
var tX:array of real;
tY:array of real;
procedure init;begin;
var n:=512;
setlength(tX,n);
setlength(tY,n);
var r:real :=0;
var rand:=100000/random(100000);
for var i:=0 to n-1 do begin
r:=r+sin((random((100000)))*random(100000));
tY[i]:=320+r;
tX[i]:=i;
end;
end;
begin
end.