IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Algorithm_PrimaKrascala
Skala_net
сообщение 15.05.2007 13:15
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Юра

Репутация: -  -1  +


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


Пожалуйста проаерьти и исправте ошибки. Проблемма с 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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.05.2007 14:06
Сообщение #2


Гость






Цитата
Проблемма с assign.
Какая проблема?
 К началу страницы 
+ Ответить 
Skala_net
сообщение 15.05.2007 16:55
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Юра

Репутация: -  -1  +


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

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

Почемуту не записывает в файл ни чего. Да сама программа неработает, немоглиб показать где ошибка. Буду благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.05.2007 17:04
Сообщение #4


Гость






А содержимое файла INPUT.MTR ты телепатически передать хочешь? Лучше присоединить...
 К началу страницы 
+ Ответить 
Skala_net
сообщение 15.05.2007 18:28
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Юра

Репутация: -  -1  +


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

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

чето всеравно непашет.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.05.2007 18:39
Сообщение #6


Гость






Еще раз повторить? Я за тебя твои данные придумывать не буду! Нужна помощь - присоединяй сюда файл...
 К началу страницы 
+ Ответить 
Diablo
сообщение 15.05.2007 20:17
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


Юрик, проверь строку assign. Возможно нужно вписать полный путь к файлу. smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Skala_net
сообщение 17.05.2007 22:02
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Юра

Репутация: -  -1  +


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

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

Это не причина ошибки. Я это и сам знал.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 20.07.2025 11:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"