Курсовая!!!

[Dezolyator]

(модель работы торгового предприятия) Разработать модель работы торгового предприятия, имеющего два обслуживающих устройства с разной производительностью. Предусмотреть возможность заданияинтервала прихода посетителей и общего времени работы предприятия.Очередь представить в динамической области памяти.Определить максимальную и среднюю длину очередей, максимальное и среднее время ожидания, количество клиентов, которым пришлось ждать, а также число клиентов покинувших очередь.

Помогите написать пожалуйста!

[Sm1Le]

Фриланс ...=))) не в ту степь ... =)

[Dezolyator]

ну кто - нить помогите пожалустО!

[Роман Радер]

Сообщение от Dezolyator

ну кто - нить помогите пожалустО!

Ну ответили же, поможем. Только в разделе Фриланс. Ну кто же будет бесплатно курсовую делать
А если помочь надо, задавайте конкретные вопросы

[Dezolyator]

Помогите...
Как вот это организовать ... (на делфи)

Нада задавать интервал прихода посетителей

Вот сам код...


procedure TForm1.Button2Click(Sender: TObject);
var p,oldT,t,n,i,vih,uh,ochsr,ochmax,po ss:integer;
begin
randomize;
//ñîçä î÷åðåäè
Peral(ph,pk,random(9));
for i := 1 to 600 do
Dobal(pk,random(9));
//êëèåíò îáñë çà 5 ìèí
p:=6;
t:=0;
vih:=0;
uh:=0;
Ochsr:=0;
ochmax:=0;
oldT:=0;
n:=0;
//ðàáîòàåì 10 ÷àñîâ
while t<300 do
begin
//ïðèõîä î÷åðåäíîãî êëèåíòà
Udal(ph,poss);
t:=t+poss;
inc(n);//÷èñëî êëèåíòîâ â î÷åðåäè
if t-oldT>=p then
begin// åñòü îáñëóæåíûé êëèåíò
oldT:=t;
dec(n);
end;
if n>=4 then
begin
inc(ochsr);
p:=3;
end
else
p:=5 ;


if n>0 then
begin//ìàêñ î÷åðåäü
inc(ochmax);
p:=2;
end
else//åñëè ëþäåé ìàëî òî íîðì ñêîðîñòü
p:=5;
if n>5 then
begin//ëþäåé ìíîãî-> îäèí óõîäèò
dec(n);
inc(uh);
end;
end;
label1.Caption:=IntToStr(ochsr);
label8.Caption:=IntToStr(ochmax);
label9.Caption:=IntToStr(uh);

label14.Caption:=IntToStr(vih);
end;

end.