Массив: сделать так, чтобы выгружалось необходимое количество матриц - 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.