Algorithm_PrimaKrascala Опции

[Skala_net]

М

Пользуемся тегами + оформи название темы русскими буквами

Пожалуйста проаерьти и исправте ошибки. Проблемма с assign.

Program Algorithm_PrimaKrascala;
Uses Crt;
Const MaxSize =100;
            Infinity =1000;
Var   Matrix: array[1..MaxSize, 1..MaxSize] of integer;
          Color: array[1..MaxSize] of integer;
            Ribs: array[1..MaxSize] of record
                                                        a, b: integer;
                                                      end;
   n, a, b, k, col, i, len: integer;

 Procedure Init;
 Var    f: text;
        i, j: integer;
 Begin
   Assign(f, 'INPUT.MTR');
   Reset(f);
   Readln(f, n);
   For i:=1 to n do
   Begin
     For j:=1 to n do read(f, matrix[i, j]);
     Readln(f)
   End;
   For i:=1 to n do color[i]:=i;
   len:=0
 End;

 Procedure Findmin(var a, b: integer);
 Var min, i, j: integer;
 Begin
   min:=infinity;
   For i:=1 to n-1 do
     For j:=i+1 to n do
      If (Matrix[i, j]<min) and (color[i]<>color[j]) then
         Begin
           min:=Matrix[i, j];
           a:=i;
           b:=j
         End;
   len:=len+min
 end;

Begin
  Clrscr;
  Init;
  For k:=1 to n-1 do
  Begin
    Findmin(a, b);
    Ribs[k].a:=a;
    Ribs[k].b:=b;
    col:=Color[b];
    For i:=1 to n do
      If color[i]=col then color[i]:=color[a];
  End;
  For i:=1 to n-1 do
     Writeln(ribs[i].a, ' –', ribs[i].b);
  Writeln('Length= ', len);
  Readkey
End.

Сообщение отредактировано: klem4 - 15.05.2007 17:15

[volvo]

Проблемма с assign.

Какая проблема?

[Skala_net]

Какая проблема?

Почемуту не записывает в файл ни чего. Да сама программа неработает, немоглиб показать где ошибка. Буду благодарен.

[volvo]

А содержимое файла INPUT.MTR ты телепатически передать хочешь? Лучше присоединить...

[Skala_net]

А содержимое файла INPUT.MTR ты телепатически передать хочешь? Лучше присоединить...

чето всеравно непашет.

[volvo]

Еще раз повторить? Я за тебя твои данные придумывать не буду! Нужна помощь - присоединяй сюда файл...

[Diablo]

Юрик, проверь строку assign. Возможно нужно вписать полный путь к файлу.

[Skala_net]

Юрик, проверь строку assign. Возможно нужно вписать полный путь к файлу.

Это не причина ошибки. Я это и сам знал.