aide sur un tp

Marsh Posté le 05-05-2009 à 21:57:10

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.

:pt1cable:
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.

Reply

Marsh Posté le 05-05-2009 à 21:57:10

Reply

Marsh Posté le 08-05-2009 à 10:40:17

Hello sparklegi

Dans ton script

t2[0,1]:=23;
...
t2[1,0]:=23;
...

ça représente quoi comme information ce 23 par exemple ?

---------------
il n'y a pas que le VTT dans la vie, il y a le Snowboard aussi ...

Reply

Marsh Posté le 08-05-2009 à 14:07:06

"23" ...ca represente le code postale de la ville ...
je veut savoir si y a t-il une méthode pour remplir une matrice symetrique ..tel que une ligne remplis ds la matrice et je veut affecter ces valeurs a la colonne qui a le meme indice de la ligne ...merci de votre aide

Reply

Marsh Posté le 08-05-2009 à 14:27:47

Pour remplir une matrice diagonale tu peux faire un truc du genre

Code :

for i:=1 to 5 do begin
for j:= i to 5 do begin
t[i,j] = valeur;
t[j,i] = valeur;
end
end

Ou alors t'en rempli que la moitié (plus la diagonale), et au moment de lire t[i, j] si j>i alors tu inverse i et j (ie. tu lis t[j, i]).

Pour le chemin le plus court c'est pas vraiment un problème simple. Vu que tu n'as que 5 villes tu dois peut etre juste tester tous les chemins possibles comme une brute et renvoyer le plus court ?

---------------
Nous vous souhaitons de beaux rêves, c'est le cinéma gratuit.

Reply

Marsh Posté le 08-05-2009 à 15:05:35

à la brutos sans doute ;-)

Dans son énoncé
il est précisé de donner
=>
"tout les chemins entre 2 villes en précisant les differentes distances "

---------------
il n'y a pas que le VTT dans la vie, il y a le Snowboard aussi ...

Reply

Marsh Posté le 03-11-2009 à 22:03:18

je t'aime

Reply

aide sur un tp

Sujets relatifs:

Leave a Replay