Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.12.2011, 02:04   #1
madman797
Пользователь
 
Регистрация: 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}
madman797 вне форума
Старый 09.12.2011, 02:08   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

> впрос , что он должен содержать ?

круто, обычно просят по заданию написать код. А тут по коду просят написать задание )
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума
Старый 09.12.2011, 02:14   #3
madman797
Пользователь
 
Регистрация: 09.12.2011
Сообщений: 10
По умолчанию

ну вот так вот , действительно очень нужно решение этой проблемы ... что за текст в этом файле ?
madman797 вне форума
Старый 09.12.2011, 02:14   #4
madman797
Пользователь
 
Регистрация: 09.12.2011
Сообщений: 10
По умолчанию

помогите пожалуйста
madman797 вне форума
Старый 09.12.2011, 08:08   #5
madman797
Пользователь
 
Регистрация: 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
madman797 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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