Текстовый файл, Запись матрицы Опции

[Dima]

Помогите пожалуйста записать матрицу nхn в текстовый файл. Я пробовал, но у меня получается почемуто постоянно числа или по горизонтали или по вертикали. В нормальном виде не получ. Помогите плз...

[mamont001]

Тут в разделе задачи есть ещё подраздел FAQ. Смотрел туда?
Если да ,то выкладывай код,посмотрим где ошибка

Сообщение отредактировано: mamont001 - 5.03.2007 22:50

[Гость]

 
Program name;
uses crt;
const n=5;
var f:text;
    i,j:integer;
    m:array [1..n,1..n] of integer;
    k:array [1..n] of integer;
    fname:string;
begin
clrscr;
randomize;
writeln('Vvedite nazvanie fayla:');
readln(fname);
              assign(f,fname);
              rewrite(f);
    for i:=1 to n do
        begin
        for j:=1 to n do
            begin
            m[i,j]:=random(10);
            write(m[i,j]:4);
            end;
        writeln;
        end;
    for i:=1 to n do
        begin
        for j:=1 to n do
            begin
            k[j]:=m[i,j];
            write(f,k[j]);
            end;
        writeln;
        end;
close(f);
writeln('File sozdan');
readkey;
end.

[volvo]

    for i:=1 to n do begin
      for j:=1 to n do begin
            k[j]:=m[i,j];
            write(f,k[j]);
      end;
      writeln(f); { <--- Чувствуешь разницу? }
    end;