Вывод матрицы из файла

@REC0N · Регистрация: 11.10.2009

Вот столкнулса с проблемой как считать матрицу из файла незная заранее ее размерности,но пошарил на форуме и нашел

Pascal

uses crt;
var
  strok,stolb,ch:integer;
  f:text;
begin
  clrscr;
  strok:=0;
  stolb:=0;
  assign(f,'ch.txt');
  reset(f);
  {ñ÷èòûâàåì êîëè÷åñòâî ñòðîê}
  while not EOF(f) do
  begin
    readln(f,ch);
    inc(strok)
  end;
  close(f);
  reset(f);
  {ñ÷èòûâàåì êîëè÷åñòâî ñòîëáöîâ}
  while not EOLn(f) do
  begin
    read(f,ch);
    inc(stolb)
  end;
  close(f)
end.

Тепер проблема в том как ее вивести.Help PLEASE

@Puporev · 08.05.2010, 19:35

Pascal

reset(f);
for i:=1 to srtrok do
 begin
  for j:=1 to stolb do
   begin
    read(f,a[i,j]);
    write(a[i,j]:5);
   end;
  writeln;
 end;
close(f);

@REC0N · 08.05.2010, 22:21 **[ТС]**

Спасибо

@REC0N 0 / 0 / 0 Регистрация: 11.10.2009 Сообщений: 17
	08.05.2010, 22:21 [ТС]	3
	Спасибо 0

Опции темы