Вывод матрицы в файл, Матрица выводится в файл в виде строки или столбца Опции

[Vasya_linux]

Здравствуйте уважаемые форумчане!
Задача: Ввод матрицы из файла и вывод этой же матрицы под
другим именем в другой файл (файлы задаются пользователем).
В итоге на экран вывод нормальный, а в файл только в строку или в столбец.
Где ошибка не пойму. Помогите пожалуйста.
Вот код:

const
n=2;
m=3;
type
a=array [1..n,1..m] of real;
var
i,j: integer;
f:text;
name,name1: string;
NRM:a; new_matr:a;
begin
 writeln('WRITE   NAME  of DATA  FILE');
 readln(name); assign(f, name); reset(f);
for i:=1 to N do
for j:=1 to M do
read(f,NRM[i,j]);
readln(f);
close(f);
 writeln('WRITE  NAME  of  RESULT  FILE');
readln(name1);
 assign(f, name1);
 rewrite(f);

for i:=1 to n do
for j:=1 to m do
new_matr[i,j]:=NRM[i,j];


writeln (f,'matrisa A' );
for i:=1 to n do
begin
for j:=1 to m do
write(f,new_matr[i,j]:8:3);
writeln;
end;

writeln(f);
close(f);
end.

[TarasBer]

Ты только в настройках компилятора поройся хорошенько, там это есть.
Выставь 32-битный режим например.

[Vasya_linux]

Тарас, благодарю за помощь. Прошу еще немного терпения.
Тема еще не закрыта.
Я хочу сделать модификацию этой самой программы,
но так, чтобы она считывала данные с исходного файла по частям.
Скажем, в файле несколько матриц размером 3х4, но они без
разрывов находятся в файле (т.е. одна матрица под другой).
Программа считывает 1-ю и умножает на 2-ю и выводит в 3-ю.
Так как матрицы одной размерности, то все должно быть хорошо.
Одно удручает - мой код совсем плох.
Если у тебя будет время, подскажи, где ошибка.
Может я неправильно мыслю.
Вот код:

const
n=3;
m=4;
type
a=array [1..n,1..m] of real;
var
i,j: integer;
f:text;
name,name1: string;
NRM,new_matr,old_matr:a;
begin
 writeln('WRITE   NAME  of DATA  FILE');
 readln(name); assign(f, name); reset(f);
for i:=1 to 2 do {s4itivaem 1-y matrisy iz isxodnogo faila}
for j:=1 to M do
read(f,NRM[i,j]);

for i:=3 to N do {s4itivaem 2-y matrisy iz isxodnogo faila}
for j:=1 to M do
read(f,old_matr[i,j]);

 readln(f);
 close(f);
 writeln('WRITE  NAME  of  RESULT  FILE');
 readln(name1);
 assign(f, name1);
 rewrite(f);

for i:=1 to n do
for j:=1 to m do
new_matr[i,j]:=NRM[i,j]*old_matr[i,j];

writeln (f,'matrisa A' );
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(f,new_matr[i,j]:8:2);
writeln(f);
end;

writeln(f);
close(f);
end.

Может мне пораспихивать эти матрицы по файлам.
Но тогда как открыть 3-4 файла на чтение сразу?


Сообщение отредактировано: Vasya_linux - 12.01.2012 16:24