Ngày tải lên :
03/07/2013, 21:50
... program floyd_war; uses crt; var p,d:array[1 100,1 100] of integer; f:text; n ,m, w:integer; procedure input; var i,k,x,trongso:integer; begin assign(f,'floydwar.inp');reset(f); readln(f,n ,m) ; for ... var i,k,x,trongso:integer; begin assign(f,'floydwar.inp');reset(f); readln(f,n ,m) ; for i:=1 to m begin readln(f,k,x,trongso); d[k,x]:=trongso; end; close(f); end; procedure init; var i,j:integer; ... write(f,p[i,j]:10); writeln(f); end; close(f); end; BEGIN clrscr; input; init; floydwar; output; write('xem ket qua file:floydwar.out'); readln; END File vào ví dụ: (FLOYDWAR.INP) 1 2 4 3 4 7 11 File tương...