Привет всем. помогите с прогой. надо правильно указать пути к входному и выходному файлу. Входной - In.txt, выходной - out.txt/ Оба лежат в корне на диске F.
program zad_1_10;
uses crt;
var
a,c:array[1..100,1..100]of integer;
v:array[1..100]of integer;
i,j,k,summa:integer;
f,f_out:text;
procedure readA;
begin
writeln('Matrica A:');
writeln(f_out,'Matrica A:');
for i:=1 to 5 do begin
for j:= 1 to 5 do begin
read(f,a[i,j]);
write(a[i,j]:3);
write(f_out,a[i,j]:3);
end;
writeln;
writeln(f_out);
end;
end;
procedure A_E;
begin
for i:=1 to 5 do begin
for j:= 1 to 5 do begin
if i=j then a[i,j]:=a[i,j]-1;
write(a[i,j]:3);
write(f_out,a[i,j]:3);
end;
writeln;
writeln(f_out);
end;
end;
procedure summ;
begin
writeln('summa po stolbcam:');
writeln(f_out,'summa po stolbcam:');
k:=0;
for j:=1 to 5 do begin
k:=k+1;
for i:= 1 to 5 do
v[k]:=v[k]+a[i,j];
write(v[k]:3);
write(f_out,v[k]:3);
end;
end;
procedure creatC;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if j=i then begin
c[i,j]:=v[i];
summa:=summa+c[i,j]; end else
c[i,j]:=0;
write(c[i,j]:3);
write(f_out,c[i,j]:3);
end;
writeln;
writeln(f_out);
end;
writeln('Sled=',summa);
writeln(f_out,'Sled=',summa);
end;
begin
clrscr;
randomize;
assign(f_out,'dat1.txt');
rewrite(f_out);
assign(f,'dat.txt');
reset(f);
readA;
writeln('Matrica A-E:');
writeln(f_out,'Matrica A-E:');
A_E;
summ;
writeln;
writeln('Matrica C:');
writeln(f_out);
writeln(f_out,'Matrica C:');
creatC;
close(f);
close(f_out);
readkey;
end.