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

[БелАчкА]

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

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

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

[БелАчкА]

Lapp, большое спасибо!

Вопросы, конечно же, есть...

begin
  for i:=1 to Nk do Fifo(K[i]);  // почему здесь используется переменная Nk, если ее значение еще не считано из файла?
  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;    //Dd - это количество уже обработанных деталей, так?  

И не совсем разобралась в основном цикле, хотелось бы получить комментарии к действиям

  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.

[Гость]

Вопросы, конечно же, есть...

begin
  for i:=1 to Nk do Fifo(K[i]);  // почему здесь используется переменная Nk, если ее значение еще не считано из файла?

По очень простой причине: у меня было 4 часа ночи.. Сначала эта строчка была там, где надо: после прочтения Nk. Но перед самой отсылкой поста мне вдруг стукнуло в голову переставить - чисто конкретно для красоты . Спасибо!

Dd (Done detailes) - да, это которые сняты с последнего конвеера. Нужно только для того, чтоб отследить конец процесса.

Хорошо, я прокомментирую чуть подробнее. Не прямо сейчас, но к утру будет .

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

Я это, я.. Лопарь
Извиняюсь - опять забыл войти..

Сообщение отредактировано: Lapp - 2.11.2007 2:36