Делфи.Файлы.

[pif]

Дан файл квадратных матриц порядка n (n – const). Преобразовать его, заменив каждую матрицу, не являющуюся симметричной, транспонированной.
помогите плис

[Stilet]

Дык... наработками похвастайся, ато мало ли как тебя учат и чего тебе нужно.

[sir.andrey]

Вот!!!!
Только это на паскале!!!

program lab;
 var f:file of integer;  s,a,m,n,i,k,j,buf:integer; g:file;
 begin
 Assign (f,'matr.dat');
 rewrite (f);
 writeln ('vvedite n i m');
 read (n,m);
 randomize;
 seek(f,0);
 for i:=0 to (m*n-1) do begin
                    a:=random(9);
                    write (f,a);
                    end;
 seek(f,0);
 while not eof(f) do begin
                     read (f,a);
                     write (a,' ');
                     end;

 k:=0;
 seek(f,0);
 writeln;
 for j:=1 to n do
     for i:=1 to m do begin
                      seek(f,filesize(f)-m*n+k);
                      read (f,a);
                      write (a,' ');
                      k:=k+1;
                      if k=m*j then writeln;
                      end;
 seek(f,0);
 k:=0;
 writeln;
 for j:=1 to m do begin
   for i:=1 to n do begin
                      seek (f,k);
                      read (f,a);
                      write (a,' ');
                      k:=k+m;
                      end;
                  writeln;
                  k:=k+1;
                  k:=k-filesize(f);
                  end;
 close (f);

end.

end.

[RUSt88]

пиши на мыло, договоримся, есть опыт работы с матрицами: решение слау методами гаусса, крамера, итерациями, нахождение детерминанта, умножение и тп. матриц

сделаю в кратчайшие сроки