Собираем Ошибки! Опции

[Tan]

В данной теме есть алгоритм Краскала (поиск наименьшего каркаса). Например если ввести граф у которого >2 вершин и есть цикл, то в результате программа допишет к результирующим рёбрам ещё одно с координатами 0, 0 в случае если пользователь не будет использовать одну из вершин (то есть указал например 4 вершины, а при вводе разных было только 3). Например количество вершин - 4, ребра - 3. Список рёбер и их вес
Вершина Вершина Вес
1 2 1
2 3 2
3 1 3
Результат 1 2 2 3 0 0
Я не знаю, считается ли это ошибкой или так и расчитывалось.

Да, в первоначальный вариант закралась ошибка, которая приводила при определенных входных данных к вылету с RunTime Error при включенной проверке {$R}.
Исправлено...

Сообщение отредактировано: volvo - 13.01.2009 15:40

[Mnogosisa]

В модуле PCX не хватает модулей err, xmslib. И ещё в модуле VesaType,практически в каждой строчке есть буква 'a', а так на форуме не видно,что она есть.

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

Сообщение отредактировано: volvo - 8.01.2009 7:19

[Айра]

Не совсем из этого faq'a: тут, а именно, вот здесь:

D DF (DIrection Flag) - флаг направления. Используется в
строковых операциях для определения направления передачи
данных. При нулевом состоянии команда увеличивает содержимое
регистров SI и DI, вызывая передачу данных слева направо,
при нулевом - уменьшает содержимое этих регистров, вызывая
передачу данных справа налево

Второй раз, наверно, должно быть "единичное" состояние?

Fixed...

Сообщение отредактировано: volvo - 19.01.2009 6:15

[IUnknown]

Хм. По мотивам этой темы [Слау методом простых итерации. Не решаемое? - Lapp] выясняется, что в FAQ-е лежит не всегда корректно работающая программа решения систем методом Крамера. Нельзя в ней подобным образом находить дискриминант. Исправьте ту функцию Det. Скажем, вот на такую:

" (Показать/Скрыть)

Эта функция выдрана из одной моей старой программы, она была написана лет 10 назад, и жалоб на нее не было. А приведенная в FAQ-е функция на матрице из первого поста отрабатывает неверно, из-за чего результат также получается неправильным: <3, 0, 1> вместо <3, 1, 1>...

function det(var p; const size: integer): double;

   function minusOne (n : integer): integer;
   begin
      minusOne := (1 - 2 * Byte (Odd (n)));
   end;
   function get_addr(i, j : integer;
            const n: integer) : integer;
   begin
      get_addr := pred (i) * n + j
   end;

   type vector = array[1 .. n * n] of double;

var
   my_p : vector absolute p;
   pp : ^vector;
   s : double;
   i, j, curr: integer;
begin
   s := 0.0;
   if size = 2 then
   begin
      det := my_p[1]*my_p[4] - my_p[2]*my_p[3]; exit
   end;

   for i := 1 to size do
   begin
      GetMem (pp, Sqr (pred (size)) * sizeof (double));
      curr := 1;
      for j := 1 to size do
         if j <> i then
         begin
            move (my_p[get_addr (j, 2, size)],
                  pp^[get_addr (curr, 1, pred (size))],
                  pred(size) * sizeof(double));
            inc (curr);
         end;

      s := s + minusOne (succ(i)) * my_p[get_addr (i, 1, size)] *
               det(pp^, pred (size));
      FreeMem (pp, Sqr (pred (size)) * sizeof (double))
   end;
   det := s
end;

Сообщение отредактировано: Lapp - 13.05.2011 3:48

[Lapp]

Хм. ...

Спасибо, Володь. Я сделал (не проверял).
Не возражаешь, если я перенесу твой мессадж в тему про ошибки в FAQ?

[IUnknown]

Переноси, конечно...