Очередь, Задача с тремя конвейерами Опции

[БелАчкА]

Задача такая:

Имеются три конвейера. Конвейеры работают независимо друг от друга. Изначально на первом конвейере располагаются детали N типов, а второй и третий – пусты. Время обработки детали каждого типа с каждого конвейера задается матрицей Time[1..N, 1..3]. После обработки детали с конвейера k она поступает на конвейер k+1. Деталь после третьего конвейера считается изготовленной. Требуется по начальному расположению деталей на первом конвейере определить время, через которое все детали будут изготовлены.

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

[БелАчкА]

Нужно моделировать процесс. То есть, например, К1 работает без задержки, а вот К2 может уже простаивать, если К1 еще не выдал ему деталь. compiler дело говорит, вникни.

Вникла... вот только n типов это не 3 банки, а 3 конвейера - не 2 Все сложнее.
Для начала решила попытаться найти время обработки для 3 деталей(различных) и 3 конвейеров. Вот что получилось:

//t=array[1..3(детали), 1..3(конвейеры)] of real(время)
T:=0; //общее время обработки
T:=t[1,1]+max(t[1,2],t[2,1]);
if t[1,2]>t[2,1] then T:=T+max(t[3,1]-(t[1,2]-t[2,1]), t[2,2])
   else T:=T+max(t[3,1],t[2,2]);
if t[1,3]>t[2,2] then T:=T+max(t[3,2]-(t[1,3]-t[2,2]),t[2,3]) 
   else T:=T+max(t[3,2],t[2,3]);
T:=T+t[3,3];

Не знаю насколько это верно, так как все проделывалось мною на бумажке вручную
Надеюсь на Вашу помощь в проверке моей писанины.
If мои расчеты верны (в чем я лично почему-то глубоко сомневаюсь ) then можно будет переходить к общей задаче для n типов else


Сообщение отредактировано: БелАчкА - 31.10.2007 17:12

[Lapp]

А вот этого не надо! держи себя в руках
Вот, примерно так можно сделать. Идея простая - модель реальной жизни. Представь себя на заводе - и все получится . Все просто, как валенок.
Сама прога небольшая, больше половины занимает реализация Фифо (инициализация, положить, взять).
Если что непонятно - спрашивай.
Могу добавить более подробные комментарии.

{real time multy-line processing model}
{by Lapp for Belachka}

type
  tContent=integer;
  tpCell=^tCell;
  tCell=record
    c:tContent;
    p:tpCell
  end;
  tFifo=record
    i,o:tpCell
  end;

procedure Fifo(var b:tFifo);
begin
  b.i:=nil;
  b.o:=nil
end;

procedure Put(var b:tFifo; c:tContent);
begin
  with b do if i=nil then begin
    New(i);
    o:=i
  end
  else begin
    New(i^.p);
    i:=i^.p;
    i^.p:=nil
  end;
  b.i^.c:=c
end;

function Get(var b:tFifo; var c:tContent):boolean;
var
  p:tpCell;
begin
  with b do if o=nil then Get:=false
  else begin
    c:=o^.c;
    p:=o^.p;
    if o=i then i:=nil;
    Dispose(o);
    o:=p;
    Get:=true
  end
end;

const
  Mk=10;         {максимум конвееров}
  Md=100;        {максимум деталей}

var
  i,j,Nd,Nk,Dd:integer;
  T,T1:real;                     {реальное время}
  TDK:array[1..Md,1..Mk]of real; {матрица времен обработки}
  Tk:array[1..Mk]of real;        {контрольные времена конвееров}
  d:array[1..Mk]of integer;      {детали в обработке в наст. время}
  K:array[1..Mk]of tFifo;        {очереди по конвеерам}
  f:text;

begin
  for i:=1 to Nk do Fifo(K[i]);
  Assign(f,'Ford.txt');
  Reset(f);
  ReadLn(f,Nk);
  ReadLn(f,Nd);
  for j:=1 to Nd do begin
    for i:=1 to Nk do Read(f,TDK[j,i]);
    ReadLn(f)
  end;
  for j:=1 to Nd do begin
    Read(f,i);
    Put(K[1],i)
  end;
  Close(f);
  T:=0;
  for i:=1 to Nk do Tk[i]:=0;
  Dd:=0;
  repeat
    for i:=1 to Nk do begin
      if (T=Tk[i]) and (T>0) then if i<Nk then Put(K[i+1],d[i]) else Inc(Dd);
      if (T>=Tk[i]) and Get(K[i],d[i]) then Tk[i]:=T+TDK[d[i],i];
    end;
    for i:=1 to Nk do if T1<Tk[i] then T1:=Tk[i];
    for i:=1 to Nk do if (T<Tk[i]) and (Tk[i]<T1) then T1:=Tk[i];
    T:=T1
  until Dd=Nd;
  WriteLn(T)
end.

Добавлено через 7 мин.
Да, забыл сказать про входные данные..
Они берутся из файла Ford.txt
Вот его содержимое:

Код

3         number of lines
4         number of details
1 2 3     matrix TDK (time-detail-konv)
2 1 1
5 2 1
2 1 5
1 2 3 4   input line (first number going first)