sparklegi | bonsoir ,
on nous a demander de faire un tp .qui est comme suit .
soit un graph qui represente les differentes villes d'un pays .
*-ecrire un programme qui gére les differentes voyages en rependant aux questions du genre :
-l'existance d'un chemins entre 2 villes .
-la distance a parcourir entre deux villes .
-tout les chemins entre 2 villes en précisant les differentes distances .
-le chemins le plus court entre 2 villes.
bon voici ce que j'ai pouvu faire .
Code :
- program tp;
- uses crt;
- var t:array[0..5,0..5] of string;
- t2:array[0..5,0..5] of integer;
- i,j,k:integer;
- begin
- clrscr;
- (* l'existance d'un chemin entre deux villes*)
- t2[0,1]:=23;
- t2[0,2]:=25;
- t2[0,3]:=19;
- t2[0,4]:=18;
- t2[0,5]:=12;
- t2[1,0]:=23;
- t2[2,0]:=25;
- t2[3,0]:=19;
- t2[4,0]:=18;
- t2[5,0]:=12;
- for i:=1 to 5 do
- begin
- for j:=1 to 5 do
- if i=j then t2[i,j]:=0
- else t2[i,j]:=1;
- end;
- (* fin de l'existance d'un chemin entre 2 villes *)
- (* remplir le deusime matrice avec les distances entres les villes *)
- t[0,0]:=' ';
- t[0,1]:='annaba ';
- t[0,2]:='constantine';
- t[0,3]:='setif ';
- t[0,4]:='jijel ';
- t[0,5]:='tebessa ';
- t[1,0]:='annaba ';
- t[2,0]:='constantine';
- t[3,0]:='setif ';
- t[4,0]:='jijel ';
- t[5,0]:='tebessa ';
- for i:=1 to 5 do
- begin
- for j:=1 to 5 do
- if i=j then t[i,j]:='0 ';
- end;
- t[2,1]:='156 ';
- t[3,1]:='287 ';
- t[4,1]:='255 ';
- t[5,1]:='227 ';
- t[1,2]:='156 ';
- t[3,2]:='131 ';
- t[4,2]:='146 ';
- t[5,2]:='198 ';
- t[1,3]:='287 ';
- t[2,3]:='131 ';
- t[4,3]:='146 ';
- t[5,3]:='329 ';
- t[1,4]:='255 ';
- t[2,4]:='146 ';
- t[3,4]:='137 ';
- t[5,4]:='344 ';
- t[1,5]:='227 ';
- t[2,5]:='198 ';
- t[3,5]:='329 ';
- t[4,5]:='344 ';
- for i:=0 to 5 do
- begin
- for j:=0 to 5 do
- write(t[i,j],' ');
- writeln;
- end;
- (* fin de remplir la deusime matrice avec les distances entres deux villes *)
- readkey;
- end.
|
j'ai un soucis sur le chemins le plus court entre 2 villes .
svp aidez moi .
donnez moi des idées ...et si vous pouvez des améliorations .
merci d'avance.
|