uses
Graph,Crt;
var
Dt,M : integer;
R,A,B,C,D,E,F,
NewY,NewX,X,Y : real;
begin
Dt := Detect;
InitGraph(Dt, M,'');
Randomize;
X := 0; Y := 0;
repeat
R := Random;
if R>0.93 then
begin
A := -0.15; B := 0.28; C := 0.26; D := 0.24; E := 0; F := 0.44;
end
else
if R>0.86 then
begin
A := 0.2; B := -0.26; C := 0.23; D := 0.23; E := 0; F := 1.6;
end
else
if R>0.01 then
begin
A := 0.85; B := 0.02; C := -0.02; D := 0.85; E := 0; F := 1.6;
end
else
begin
A := 0; B := 0; C := 0; D := 0.16; E := 0; F := 0;
end;
NewX := A*X + B*Y + E;
NewY := C*X + D*Y + F;
X := NewX; Y := NewY;
PutPixel(Round(X*50)+100,Round(Y*50)+50, Green);
until(Keypressed);
CloseGraph;
end.
Может, я совсем дурак, но в упор не понимаю, что такое R>***.