Создание двумерного массива из строки..., создание вумерного массива из строки состоящей из последовательности д Опции

[CapFlint]

Зрасти всем!)
Не буду выклаывать всю задачу целиком, тк кое что знаю как делать... а вот что не знаю... Думаю вы мне в этом поможете, надеюсь очень
В текстовом файле содержится последовательность действительных чисел. ...зделать это, зделать то и так далее...
Хочу представить ету последовательность в виде массива (и вывести его на экран), но не простого, а двумерного, дабы в дальнейшем накручивать на него то что требует задача. Как это зделать? Я не понимаю((.
(нашел решенную заачу в инету, похожую). Но там применена сверх логика, не моего уровня(( Ни че не понял кроме того что крюто все там завернуто
Каким образом превратить задуманное в действительлность? буду рад, если хотябы покажите как это будет выглядеть с ономерным массивом.
Спасибо за внимание.

ЗЫ яндех юзал если чо. ни чего более привлекатеьного как задать вопрос тут не нашел

Сообщение отредактировано: CapFlint - 24.09.2007 22:41

[volvo]

А модуль Russian мы должны сами написать?

Добавлено через 8 мин.

Старался делать как тут

Ты бы написал наконец, ЧТО ты получить-то хочешь? А то пишешь что

и первая и вторая строка будут одинаковы и буут содержать числа из заданной последовательности

, а выделить память пытаешься как минимум для N строк? Если тебе надо двумерный массив из N столбцов и 2-х строк, то вот так:

  Assign(TextFile, TextName);
  Reset(TextFile);
  GetMem(mxArr, 2 * SizeOf(PVector)); // выделяешь память под указатели 2 строки

  for i := 1 to 2 do
    GetMem(mxArr^[i], N * SizeOf(TType)); // это - собственно выделение памяти под 2 строки

  i := 1;
  while not Eof (TextFile) do begin
    Read(TextFile, Number);
    mxArr^[1]^[i] := Number; // пишешь одно и то же и в первую 
    mxArr^[2]^[i] := Number; // .. и во вторую строку
    inc(i);
  end;

  for i := 1 to 2 do
  begin
    Writeln;
    for j := 1 to N do
      Write(mxArr^[i]^[j]:3);
  end;

  for i := 1 to 2 do
    FreeMem(mxArr^[i], N * SizeOf(TType));
  FreeMem(mxArr, 2 * SizeOf(PVector));