Работа с файлами. Сформировать одномерный массив из ненулевых элементов строк матрицы

VoltZZZ

Нужна помощь. Проблема в том, что я не знаю, что должно быть записано в текстовом файле и как. Надо составить алгоритм и программу обработки матрицы произвольного размера. Исходные данные (элементы исходной матрицы) подготовить в текстовом файле. Результат работы вместе с исходными данными вывести в текстовый файл. Задание: Сформировать одномерный массив из количества ненулевых элементов строк матрицы. Сама программа уже готова
2 ответа

VoltZZZ

VoltZZZ, как я понимаю, что-то вроде...
12 34 0 -12
34 67 0 12
32 78  -58 5
11 0 7 4
хотя зависит от того, как в вашей программе организовано считывание из файла =)


VoltZZZ

По условию задачи нам неважно какого размера матрица, ведь нам нужны только ненулевые элементы. Так что мы сразу читаем числа в результативный массив.
procedure readf(var res: array [1..100] of real; var n: integer{сколько элементов будет в результате});
var s: string;
     f: text;
     tmp: real;
begin n:=0;
write('Имя файла: '); readln(s);
assign(f,s); reset(f);
 
while not eof(f) do
 begin
 while not eoln(f) do
  begin
  read(f,tmp);
  if tmp <> 0 then 
   begin
   inc(n);
   res[n]:=tmp;
   end;
  end;
 readln(f);
 end; 
close(f); end;