|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.12.2011, 02:04 | #1 |
Пользователь
Регистрация: 09.12.2011
Сообщений: 10
|
file not found на строчке Reset(f)
вот программный код , он рабочий , пишет - file not found на строчке Reset(f) , я понимаю нужно создать этот файл C:\hvvod.txt , впрос , что он должен содержать ? помогите пожалуйста (
Program Hungry_Ostov; {Оставное дерево.Жадный алгоритм.} uses CRT,DOS; Const nVertex=50;{Максимальное количество вершин} nRib=1000;{Максимальное количество ребер} Type TypeVertex=array[1..nVertex] of Integer; TypeRib=array[1..nRib] of Integer; Var f:Text;{Текстовый файл} nX:Integer;{Количество вершин в графе} nU:Integer;{Количество ребер в графе} Mark:TypeVertex; {Метки принадлежности вершин} x:TypeVertex;{Список вершин графа} U:TypeRib;{Реберный список графа } nUo:Integer;{Количество ребер в оставном дереве} Uo:TypeRib;{Ребра оставного дерева} We:TypeRib;{Веса ребер графа} Wt:LongInt;{Вес минимального оставного дерева} Procedure Init;{Переназначение меток вершин} Var i,j,m:Integer; begin for i:=1 to 2*nU do Uo:=1; for i:=1 to 2*nU do for j:=i+1 to 2*nU do if Uo[j]=1 then if U[j]=U then Uo[j]:=0; nX:=0; for i:=1 to 2*nU do if Uo=1 then begin nX:=nX+1; X[nX]:=U; end; for i:=1 to 2*nU do {Новые метки} for m:=1 to nX do if U=X[m] then begin U:=m; break; end; end; Procedure Sort; {Сортировка списка ребер по их весам} Var i,j,k:Integer; w:Integer; begin for i:=1 to nU do for j:=1 to nU-i do if We[j]>We[j+1] then begin w:=We[j]; We[j]:=We[j+1]; We[j+1]:=w; w:=U[2*j-1]; U[2*j-1]:=U[2*(j+1)-1]; U[2*(j+1)-1]:=w; w:=U[2*j]; U[2*j]:=U[2*(j+1)]; U[2*(j+1)]:=w; end; end; Procedure Ostov;{Строим минимальное оставное дерево} Var i,x,y,z:Integer; sU:Integer; begin for i:=1 to nX do Mark:=i; Sort;{Сортировка ребер по весу} nUo:=0;{Пустое множество Uo} sU:=1;{Начальное ребро в сортированном U} while nUo<nx-1>Mark[y] then begin nUo:=nUo+1; Uo[nUo]:=sU;{Добавить ребро в оставное дерево} z:=Mark[y];{Слияние Ux и Uy} for i:=1 to nX do if Mark=z then Mark:=Mark[x]; end; sU:=sU+1{Удалить ребра (x,y) из списка U } end; end; Var{Main} i,j:Integer; Begin{Main} Assign(f,'C:\hvvod.txt'); Reset(f);{Файл открыт для чтения} Read(f,nU);{Количество ребер в реберном списке графа } for i:=1 to nU do Read(f,U[2*i-1]);{Первые вершины ребер} for i:=1 to nU do Read(f,U[2*i]);{Вторые вершины ребер} for i:=1 to nU do Read(f,We);{Вес ребер} Close(f); Assign(f,'C:\hvivod.txt'); Rewrite(f); {Файл открыт для чтения} Init; Sort; WriteLn(f,'nU=',nU:3); WriteLn(f,'nX=',nX:3); Write(f,'X='); for i:=1 to nX do Write(f,X:3); WriteLn(f); Write(f,'u1='); for i:=1 to nU do Write(f,X[U[2*i-1]]:3); WriteLn(f); Write(f,'u2='); for i:=1 to nU do Write(f,X[U[2*i]]:3); WriteLn(f); Write (f,'We='); for i:=1 to nU do Write(f,We:3);WriteLn(f); Ostov; Write(f,'uo1='); for i:=1 to nUo do Write(f,X[U[2*Uo-1]]:3); WriteLn(f);Write(f,'uo2='); Write(f,'uo1='); for i:=1 to nUo do Write(f,X[U[2*Uo-1]]:3); WriteLn(f);Write(f,'uo2='); for i:=1 to nUo do Write(f,X[U[2*Uo]]:3); WriteLn(f); Write(f,'Woe='); for i:=1 to nUo do Write(f,We[Uo]:3);WriteLn(f); Wt:=0; for i:=1 to nUo do Wt:=Wt+We[Uo]; Write(f,'Bec=',Wt:3); Close(f); end.{Main} |
09.12.2011, 02:08 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
> впрос , что он должен содержать ?
круто, обычно просят по заданию написать код. А тут по коду просят написать задание )
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
09.12.2011, 02:14 | #3 |
Пользователь
Регистрация: 09.12.2011
Сообщений: 10
|
ну вот так вот , действительно очень нужно решение этой проблемы ... что за текст в этом файле ?
|
09.12.2011, 02:14 | #4 |
Пользователь
Регистрация: 09.12.2011
Сообщений: 10
|
помогите пожалуйста
|
09.12.2011, 08:08 | #5 |
Пользователь
Регистрация: 09.12.2011
Сообщений: 10
|
спасибо)
а теперь на строчке Read(f,nU);{Количество ребер в реберном списке графа } выдает 106 ошибку Invalid numeric format ((( а текстовом файле hvivod.txt автоматически появилось вот это nU= 0 nX= 0 X= u1= u2= We= uo1= uo2=uo1= uo2= Woe= Bec= 0 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
File not found | Nikita++ | Помощь студентам | 3 | 20.10.2010 13:09 |
File not found: 'DBAdvEd.dcu' | fezilk24 | Общие вопросы Delphi | 2 | 16.06.2010 07:24 |
Pascal. Ошибка file not found. | Axel1981 | Помощь студентам | 15 | 22.12.2008 19:43 |
Fatal Error: File not found | Shuraken | Общие вопросы Delphi | 4 | 10.09.2007 03:44 |