Algoritmos Heurísticos de Cobertura de Arcos

,InicioRota,' ',InicioRotaCoordI,' ',InicioRotaCoordJ,' '
,-MenosInf, ' 1');
Caractere:=' ';
If Not EoF(Rede) Then
ReadLn(Rede,Caractere);
If Caractere'*'
Then
begin
CloseFile(Rede);
CloseFile(RedeTemp);
Exit;
end
Else
WriteLn(RedeTemp,'* Conversões Permitidas, ou Penalizadas');
While Not EoF(Rede) Do
Begin // Inserindo as conversoes permitidas, com respeito ao arco artificial
NoRepetidoi:=0;
NoRepetidoj:=0;
ReadLn(Rede, N1,N2,N3,Custo);
WriteLn(RedeTemp,N1,' ',N2,' ',N3,' ',Custo);
If (N3=FimRota) and (N2NoRepetidoi) Then
WriteLn(RedeTemp,N2,' ',N3,' ',InicioRota,' 0');
NoRepetidoi:=N2;
If (N1=InicioRota) and (N2NoRepetidoj) Then
WriteLn(RedeTemp,FimRota,' ',N1,' ',N2,' 0');
NoRepetidoj:=N2;
end;
Close(Rede);
CloseFile(RedeTemp);
end;
Function CustoConversao(No1, No2, No3: Integer):Integer;
var caracter:String[1];
NaoAchou:Boolean;
N1,N2,N3,Custo:Integer;
begin
custo:=0;
ArqErrado:=false;
If Form1.CheckBox3.Checked=false Then Exit;
//Assign(Rede,ArqNome);
Assign(Rede,ArqTemp);
Reset(Rede);
Caracter:='';
While (Caracter'*') And (Not EoF(Rede)) Do
ReadLn(Rede,Caracter);
If Caracter'*' Then
begin
Application.messagebox('Verifique se o arquivo contém a lista das conversões viáveis'
,'Formato do Arquivo Incorreto',MB_OK);
Close(Rede);
ArqErrado:=true;
Exit;
end;
NaoAchou:=true;
While (Not EoF(Rede)) And (NaoAchou) Do
Begin
ReadLn(Rede, N1,N2,N3,Custo);
If N1=No1 Then
If N2=No2 Then
If N3=No3 Then
NaoAchou:=false;
end;
If NaoAchou Then Custo:=Penalidade;
Result:=Custo;
Close(Rede);
155