Обработка прямоугольных матриц Опции

[ProtasSoft]

Задана большая матрица вещественных чисел размером 1000 на 2000 в текстовом файле.

Необходимо произвести попарную обработку обработку ее строк, т.е.
для каждой пары СТРОКАi и СТРОКАj строк необходимо вычислить функцию от элементов этих строк, например, Ain - элементы СТРОКИi и Bjn - элементы СТРОКИj.
Из результатов вычисления функции F(Ai1,...,Ai1000;Bj1,...,Bj2000) сформировать новую матрицу и записать в новый файл.

Подскажите как мне действовать.
Насколько я понимаю с большими массивами Borland Pascal не работает.

[kent]

Насколько я понимаю с большими массивами Borland Pascal не работает.

Используй динамическую матрицу.

[volvo]

Насколько я понимаю с большими массивами Borland Pascal не работает.

Borland Pascal - нет. Зато Free Pascal прекрасно работает... Вот это только что откомпилировалось у меня в FPC:

var
  a: array[1 .. 1000, 1 .. 2000] of real;
begin
  a[1, 1] := 0;
end.

И никаких ошибок не возникло. Будем изобретать велосипед, или перенести тему в 32-битные компиляторы, и будем решать задачу?

P.S.

Используй динамическую матрицу.

Дело все в том, что

Array[1 .. 1000, 1 .. 2000] Of Real

это почти 12Мб. Сможешь получить столько памяти в "куче"?

[ProtasSoft]

У меня нет Free Pascal. Если поделитесь дистрибутивом, то буду благодарен и готов решать задачу на этом компиляторе.

[volvo]

Последнюю версию (2.0.0) можно взять на официальном сайте (российское зеркало): http://www.freepascal.org/down-i386-win32-russia.html (21 Мб)

Ссылка на 1.0.10 - здесь: FPC

[Malice]

Насколько я понимаю с большими массивами Borland Pascal не работает.

Совсем не обязательно считывать сразу весь массив. Достаточно считать две строки, записать результат и продолжить в том же духе
Есть и другие варианты.

[volvo]

Есть и другие варианты.

... изобретения велосипеда. А зачем? Если на 32-битном компилере задача решается "влет", и нет ограничения на использование этих компиляторов?

Тем более, что придется как минимум 2000 раз проходить по файлу (и значительная часть проходов будет "холостыми"), потому как

т.е. для каждой пары СТРОКАi и СТРОКАj строк необходимо вычислить функцию от элементов этих строк

. Я бы не заморачивался с построчным чтением...

[Malice]

Согласен, не подумай, что я против FP, но вдруг это нужно по условию. Если нет, то нет, конечно же.

[klem4]

А вот мое мнение что FPC тут не выход, так как наверняка задание пишется не "для себя" , а для препода в универе А в универах наших FPC пока не ставят, так что сдать такой код не получится...надо думать.

[volvo]

klem4,

Если поделитесь дистрибутивом, то буду ... готов решать задачу на этом компиляторе.

Если бы тебе предложили тот компилятор, которого нет в институте, ты бы такое написал? Давайте все-таки будем исходить не из своих мнений, а из решений автора...

А поэтому - вопрос к автору топика, скачал ли он FPC и будет решать задачу с его помощью или все-таки нужно извращаться с TP?

[ProtasSoft]

FPC я скачал и установил.

Вопрос следующий: подскажите как считывать матрицы из текстового файла, когда ее элементы расположены в строке и разделены пробелами.
К примеру,
файл может быть таким
================
12,3 23,4 34,6 34,98
23,34 34,5 45,78 56,78
1,06 34,08 34,67 34,67
================
:fire: :fire:

[klem4]

Не очень ясен вопрос... могу предположить что тебе нужно следующее :

Считываешь из файла строку, разбиваешь её на числа (наборы символов между пробелами) если надо, сохраняешь в массиве с элементами типа string, и после сохранения или непосредственно после выделения очередного числа переводишь его в числовое представление и работаешь с ним.

[volvo]

ProtasSoft,
не путай такое (Паскаль не использует "," в вещественных числах, используется точка: ".")

12,3 23,4 34,6 34,98
23,34 34,5 45,78 56,78
1,06 34,08 34,67 34,67

и правильный вариант:

12.3 23.4 34.6 34.98
23.34 34.5 45.78 56.78
1.06 34.08 34.67 34.67

При использовании второго варианта - делать так:

j := 1;
while not eof(f) do begin
  for i := 1 to {количество чисел в строке} do begin
    read(f, a[j]); inc(j);
  end;
  readln(f);
end;

[ProtasSoft]

procedure EnterMatrixFromFile (var Matr: Matrix);

const
n=5;
m=6;
var
  i,j: integer;
  f:text;
  TextElem:string;

 begin
 assign(f,'matrixdat.txt');
 reset(f);
 i := 1;
  while not eof(f) do
        begin
         while not eoln(f)do
            begin
               j:=1;
               read(f, Matr[i,j]);
               inc(j);
            end;
           readln(f);
           inc(i);
        end;

Что здесь не так?

Сообщение отредактировано: volvo - 15.08.2005 20:37

[klem4]

у тебя файл текстовый и информация в нем записана в виде строк, а ты пытаешься прочитать число, да и вообще странно как-то твоя процедура выглядит ... тебе нужно либо менять файл на file of single (другой вещественный тип), либо делать то что я тебе писал выше, если хочешь оставить файл текстовым

Сообщение отредактировано: klem4 - 15.08.2005 20:57

[Malice]

Что здесь не так?

j всегда равен 1 ? Поставь j=1 до цикла While.

[klem4]

примерно это должно выглядеть вот так :

{$N+}
uses crt;

const n=3;

type

   TArr  = array[1..n,1..n] of Extended;
   TFile = Text;

var
   f_: TFile;
   x_: TArr;

procedure ReadFromFile(var x: TArr; var f: TFile);
var

  e,i,j,t,back  : integer;
          tempE : extended;
        s,tempS : string;

begin

   i:=1; j:=0;

   while not(eof(f)) do begin
      readln(f, s);
      t:=1;
      while(t<=length(s)) do begin
          while(s[t]=#32) do
           inc(t);

          if t<=length(s) then begin
              back:=t;
              while(t<=length(s))and(s[t]<>#32) do
               inc(t);

              tempS:=copy(s, back, t-back);

              Val(tempS,tempE,e);

              if j=n then begin
                  j:=1;
                  inc(i);
              end
               else
                inc(j);

              x[i,j]:=tempE;

          end;

      end;

   end;

end;

[volvo]

klem4, смысл читать содержимое, как строку? Внимательно читаем условие задачи:

Задана большая матрица вещественных чисел размером 1000 на 2000 в текстовом файле.

И, если читать 2000 чисел строкой, то в какую строку это должно помещаться? Строка в FPC также ограничена 256 символами...
Так не проще:

ix := 1; iy := 1;
while not eof(f) do begin
  for i := 1 to {количество чисел в строке} do begin
    read(f, a[ix, iy]); inc(iy);
  end;
  readln(f); inc(ix)
end;

?

ProtasSoft, в следующий раз, если ты приводишь фрагмент программы с введенными тобой типами, приводи и описания типов тоже. Как, например, я из поста №15 должен знать, что из себя представляет Matrix?
И пользуйся тегами [CОDE][/CОDE]

P.S. Если хочется воспользоваться EoLn(f), то вот так:

ix := 1; iy := 1;
while not eof(f) do begin
  while not eoln(f) do begin
    read(f, a[ix, iy]); inc(iy);
  end;
  readln(f); inc(ix)
end;

[Malice]

ix := 1; iy := 1;
while not eof(f) do begin
  while not eoln(f) do begin
    read(f, a[ix, iy]); inc(iy);
  end;
  readln(f); inc(ix)
end;

iy тоже, имхо, сбрасывать надо..

[volvo]

Да, тогда iy := 1 между первым и вторым While-ом