الگوریتم وارشال

[Y@SiN]

اینم از الگوریتم وارشال، نوشه شده با برنامه پاسکال.
همون بالایی هست که لینکش رو گذاشتم، فقط یه کمی دست کاریش کردم.

Program

Warshall;

var

matrix:array[1..40, 1..40] of integer;
i,j,k,e, m,n:integer;

Begin

writeln(' Please Enter Number Of Rowe And Cloumn:');
readln(a);
writeln('---------------');
writeln;


for

i:=1 to e do
begin
writeln (' Enter Number ',i,' Of Row:');
for j:=1 to e do
readln(matrix[i,j]);
writeln('----------');
writeln;

end

;

for

k:=1 to e do
begin
writeln ('W:',k);

for

i:=1 to e do

if

matrix[i,k]=1 then
begin
for j:=1 to e do
if matrix[k,j]=1 then
matrix[i,j]:=1;

end

;

for

m:=1 to e do
begin
if m<>1 then
begin
writeln;
writeln;

end

;

for

n:=1 to e do
begin
write(' ',matrix[m,n],' ' );

end

;

end

;
writeln;
writeln;
readln;

end

;

End

.