[Olegikus]

Код:

Type

TShip = class
tip:byte;
tpr:integer;
tob:integer;
Constructor Create(num:integer);

type

TDock = class
busy:byte;
Constructor Create(num:integer);


....

function generate();
var i:integer;
begin
    randomize;
    r_Ship:=(-1/A)*ln(1-random);
end;

Админ: Пользуемся тегами для оформления кода!