Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Algorithm_PrimaKrascala

Автор: Skala_net 15.05.2007 17:15

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


Пожалуйста проаерьти и исправте ошибки. Проблемма с 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.

Автор: volvo 15.05.2007 18:06

Цитата
Проблемма с assign.
Какая проблема?

Автор: Skala_net 15.05.2007 20:55

Цитата(volvo @ 15.05.2007 15:06) *

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

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

Автор: volvo 15.05.2007 21:04

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

Автор: Skala_net 15.05.2007 22:28

Цитата(volvo @ 15.05.2007 18:04) *

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

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

Автор: volvo 15.05.2007 22:39

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

Автор: Diablo 16.05.2007 0:17

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

Автор: Skala_net 18.05.2007 2:02

Цитата(Diablo @ 15.05.2007 21:17) *

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

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