Fituica

Peste 1000 de copiute GRATUITE de la useri si de pe Internet la toate materiile.

Lista materii:

Am lansat versiunea noua (2010) a programului de facut copiute pentru telefonul mobil!

Am lansat cel mai tare site de metode si tehnici de copiat!

Drumuri minime si maxime in grafuri orientate

Drumuri minime si maxime in grafuri orientate

Consideram un graf orientat G=(X,U) cu n noduri, in care fiecarui arc ii este asociat un numar intreg numit cost. Semnificatia acestui cost poate fi foarte variata, in functie de domeniul pe care il descrie graful. De exemplu, daca graful reprezinta harta unui oras in care arcele sunt strazile iar nodurile sunt intersectiile dintre strazi, atunci putem vorbi despre costul deplasarii unui automobil intre doua intersectii, de-a lungul unei strazi. Acesta s-ar putea masura in cantitatea de benzina consumata, calculata prin prisma lungimii strazii in m sau in km.

Drumuri maxime

program drummax;
uses crt;
type matr=array[1..20,1..20]of integer;
var C,a:matr;
f:text;
n:integer;
Procedure citire(var c:matr;var n:integer);
var a:matr;
i,j:integer;
Begin
assign(f,'costgraf.txt');
reset(f);
readln(f,n);
For i:=1 to n do
For j:=1 to n do
Read(f,c[i,j]);
close(f);
End;
Procedure RF;
var i,j,k:integer;
Begin
a:=c;
For k:=1 to n do
For i:=1 to n do
For j:=1 to n do
If a[i,k]+a[k,j]