Чтение матрицы из файла. Размерность матрицы. Количество компонент, ХЗ Опции

[Артем]

Значит есть файл, в нем записана квадратная матрица, ее нужно вывести на экран и транспонировать.
Вопрос как?

Через filesize узнаю количество компонент, потом нужно сделать sqrt, но integer его не поддерживает.
А real не поддерживает for.
Как узнать количесво столбов\строк?

[volvo]

Пользуйся поиском... Задача решалась - с использованием Eoln / Eof

P.S. Вот тут:
запись и чтение фаила + матрица

[klem4]

Если файл тпизированный, то можешь сделать вот так :

сначала читаешь размер, потом матрицу

var
   x : array[1..20,1..20] of real;

   f : file of real;

   n : real; 

   nn,i,j : byte;

// ...

 reset(f);

   read(f,n);

   nn := round(n);

   i := 1; j := 0;

   while(not(eof(f))) do begin
      if j = nn then begin
         inc(i);
         j := 0;
         writeln;
      end;
      inc(j);
      read(f,x[i,j]);
      write(x[i,j]:3:1,' ');
   end;
// ...

Сообщение отредактировано: volvo - 6.11.2006 22:14