Написал часть программы, которая должна вводить 2 массива из файла и выводить их в другой файл:
Код
Program Pasc;
Var B:Array[1..4,1..4] of real;
C:Array[1..5,1..5] of real;
I,J,NumBi,NumBj,NumCi,NumCj:integer;
fin,fout:text;
procedure Poz(Mas:Array[1..M,1..M] of real; M:integer; var C:mas);
var k:integer;
begin
For i:=1 to n do
For j:=1 to n do
begin
C[i,j]:=0;
For k:=1 to n do C[i,j]:=C[i,j]+A[i,k]*B[k,j];
end;
end;
Begin
assign(fin,'In.txt');
assign(fout,'Out.txt');
reset(fin);
rewrite(fout);
For i:=1 to 4 do
For j:=1 to 4 do
read(fin,B[i,j]);
For i:=1 to 4 do
begin
For j:=1 to 4 do Write(fOut,B[i,j]:7:2);
Writeln(fOut);
end;
Writeln(fOut);
For i:=1 to 5 do
For j:=1 to 5 do
read(fin,C[i,j]);
For i:=1 to 5 do
begin
For j:=1 to 5 do Write(fOut,C[i,j]:7:2);
Writeln(fOut);
end;
End.
Решил проверить, как оно работает и был сильно озадачен:
Это то, что было в файле:
1.00 2.00 1.00 1.00
2.00 2.00 1.00 1.00
1.00 1.00 3.00 1.00
1.00 1.00 1.00 4.00
2.00 2.00 2.00 2.00 2.00
2.00 2.00 2.00 2.00 2.00
1.00 1.00 3.00 1.00 1.00
1.00 1.00 1.00
И тут явно не хватает 7 элементов!
Попробовал вывести на экран, выводит нормально, со всеми элементами, но нужно-то в файл!.
В чем же проблема?