Массив: сделать так, чтобы выгружалось необходимое количество матриц - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, а может кто помочь с таким вот заданием которое мне дали, у меня есть код, матрица с выгрузкой из файла
суть в том что надо сделать так, чтобы когда в файле дано 16 чисел, выгружается одна матрица, если дано 32 числа, то две матрицы и т.д. но вот если дано к примеру 20 чисел то выгрузить надо только одну матрицу (ну с одной проблем нету, она и так грузит ток одну), так вот как сделать так чтоб выгружалось необходимое количество матриц?

Решение задачи: «Массив: сделать так, чтобы выгружалось необходимое количество матриц»

textual
Листинг программы
const n=4;
type
  TM4 = array [1..n,1..n] of Real;
var
  f: file of TM4;
  a: TM4;
  i, j, k: Integer;
begin
  Assign(f,'out.bin'); Reset(f);
  while not EOF(f) do begin
    Read(f,a); Inc(k); WriteLn; WriteLn('Матрица ',k);
    for i:=1 to n do begin
      for j:=1 to n do Write(a[i,j]:8); WriteLn;
    end;
  end;
  Close(f);
end.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы