درخواست الگوریتم وارشال

[hamed_a]

سلام به همه دوستان،
کد الگریتم وارشال رو می خواستم.
ترجیحا به زبان C باشه.
به هر زبانی باشه مهم نیست.

به پاسکال دارم.اما اشتباه خروجی میده :




1 Program warshall;
2 uses wincrt;
3 var
4 matris : array[1..40,1..40] of integer;
5 i,j,k,e,m,n: integer;
6 Begin
7 writeln('lotfan te`dade satrha(sotoonha) ra vared konid.');
8 readln(e);
9 for i:=1 to e do
10 begin
11 clrscr;
12 writeln('satre ', i, ' ra vared konid.');
13 for j:=1 to e do
14 readln(matris[i,j]);
15 end;
16 for k:=1 to e do
17 begin
18 for i:=1 to e do
19 if matris[i,k] = 1 then
20 begin
21 for j:=1 to e do
22 if matris[k,j] = 1 then
23 matris[i,j] := 1;
24 end;
25 clrscr;
26 for m:=1 to e do
27 begin
28 if m <> 1 then
29 begin
30 writeln;
31 writeln;
32 end;
33 for n:=1 to e do
34 write(matris[m,n], ' ');
35 end;
36 writeln;
37 writeln;
38 readln;
39 end;
40 End.
41