Как организовать посимвольное считывание данных из файла (TurboPascal)? - Turbo Pascal

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

Надо считать файл посимвольно и занести в двумерный массив (матрицу).

Код к задаче: «Как организовать посимвольное считывание данных из файла (TurboPascal)? - Turbo Pascal»

textual
s:='';
i:=1;
j:=1;
While not eof(f1) do
begin
  read(f1,c);
  while c<>' ' do
   begin
    if c<>'.' then
    s:=s+c;
    else begin m[i,j]:=s;
    i:=i+1;
    j:=1;
    end;
    read(f1,c);
   end;
   m[i,j]:=s;
  s:='';
  j:=j+1;
end.

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ