По-хорошему, надо вводить типы. Будут 3 корабля типа TShip и 2 дока типа TDock. Осталось всунуть туда поля, методы и свойства. Напр., у Дока должно быть поле TShip, если оно nil, то док свободен, если нет - указывает, какой в нём корабль. У Дока должен быть метод Обслуживание, который зависит от случайного времени. Надо бы описать, что хотелось бы видеть на выходе, напр., график для каждого корабля, сколько времени и в каком доке он находился.
|