Билетная касса, задача на рекурсию Опции

[1qsd]

Вот такая непонятная задача.

В очереди в кассу n человек (от 3 до 20). Про каждого известно, что
1) ему нужен один билет.
2) он должен купить билеты одного или двух стоящих за ним
3) дано время t1, t2, t2 покупки i-м очередником одного, двух или трех билетов.
Подсчитать минимальное время обслуживания очереди.

начало задачи есть (Ввод данных)

Program Bk;
uses crt;
var n,i,j,k: integer;
    t: array[1..20,1..3] of integer;
begin
  clrscr;
  writeln('Введите количество очередников:');
  readln(n);
  for i:=1 to n do
  begin
  writeln('Введите время ',i,' очередника ');
  for j:=1 to 3 do
  readln(t[i,j]);
  end;

  readln;
end.

а что делать дальше, не знаю...

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

[1qsd]

Переделал код под себя, числа нужно вводить вручную, протестировал на всех примерах - вроде работает

program Bk;
type
  TArray = array [1..20, 1..3] of integer;

function GetTime(A: TArray; size: integer): integer;
begin
  if size = 0 then GetTime := 0 else
   if (size >= 3) and (A[size, 3] < (A[size, 1] + A[size - 1, 1] + A[size - 2, 1])) then
    GetTime := A[size, 3] + GetTime(A, size - 3)
   else
    if (size >= 2) and (A[size, 2] < (A[size, 1] + A[size - 1, 1])) then
     GetTime := A[size, 2] + GetTime(A, size - 2)
    else
     GetTIme := A[size, 1] + GetTime(A, size - 1);
end;

var
  arr: TArray;
  n,i,j,q: Integer;

begin
  q:=1;
  writeln('Введите количество очередников:');
  readln(n);
  for i:=n downto 1 do
    begin
    writeln('Введите время ',q,' очередника  ');
    inc(q);
    for j:=1 to 3 do
    readln(arr[i,j]);
    end;

  for i := n downto 1 do begin
    for j := 1 to 3 do write(arr[i, j],' ');
    writeln;
  end;

writeln('Time = ', GetTime(Arr, n));
readln;
end.

НО!!!

если брать примеры типо:
1)
1 2 3
4 1 6
7 8 9
4 5 1 (считая первая строчка - первый очередник и т.д.)
то программа вместо 1+1+4=6 считает 3+4=7!!!

2)
3 6 7
3 2 6
4 4 4
6 8 3
программа вместо 6(из первой строчки)+4(посередине из третьей строчки)=10,
считает как 7(за первых трех)+6=13

почему-то серединные значения она не берет.

Кстати, проверил еще программу в Сообщение #2, у нее такой же глюк...

Сообщение отредактировано: 1qsd - 27.03.2007 5:55