Преобразование треугольного массива в одномерный)

[aly-lucenko]

Суть задачи состоит в том, что б преобразовать треугольный массив в одномерный, естественно без нолей)
нашла формулу X = I * (I - 1) / 2 + J, работает она для i>j
Немогу реализовать код:

for i:=0 to 3  do begin
  for j:=0 to 3  do  begin
     if i>j then begin
        B[round(((i*(i-1))/2)+j)]:=strtoint(StringGrid1.Cells[i,j]);
        StringGrid2.Cells[i,j]:=inttostr(B[round((i*(i-1))/2)+j]); 
     end;
  end; 
end;

после запуска выдает ошибку)


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) какую ошибку выдаёт?
вероятно "Not valid integer value" ?

2) скорее всего ошибка в заполненном StringGrid1
где-то в ячейке не целое число, поэтому
strtoint(StringGrid1.Cells[i,j]) и будет давать ошибку...


p.s. смысл задания я не понял, поэтому возможно, что проблема и в другом..

[aly-lucenko]

Ошибка "Invalid pointer operation":

есть массив вида

0 0 0 0
10 0 0 0
20 21 0 0
30 31 32 0

нужно записать в виде
10 20 21 30 31 32

[Serge_Bliznykov]

работает она для i>j

сразу могу сказать - Вы явно забываете, что в StringGrid[i,j] индексы указываются "наоборот" - первым указывается столбец, вторым индексом - строка.

Это раз.

второе. Дайте исходники проекта. (банально лень рисовать всё с нуля, да и у Вас ошибка может быть в другом месте). Исходники проекта (это файлы с расширениями .PAS, .DFM, .DPR) лучше запаковать в архив, архив прикрепить к сообщению...

[aly-lucenko]

Вот проект)

[Serge_Bliznykov]

главная ошибка.
StringGrid2 - одна строчка.
Так почему Вы туда пытаетесь залить по координатам [i,j]?!
StringGrid2.Cells[i,j]

и размерность массива B неправильно задавали - там не 4 - а 6 элементов должно быть.

И с массивом A (начальное присвоение) - косячок-с.. Массив A не иницилизирован.. так почему Вы его содержимое присваиваете в StringGrid ? Это же мусор получается!

вот, попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  for i:=0 to 3  do
   for j:=0 to 3  do  begin
      if i<=j then
        StringGrid1.Cells[j,i]:= '0'
      else
        StringGrid1.Cells[j,i]:= IntToStr((i+1)*10+j);
      end ;
   end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j : integer;
begin
  SetLength(B, 6);
  for i:=0 to 3  do begin
    for j:=0 to 3  do  begin
       if i>j then begin
          B[round(((i*(i-1))/2)+j)]:= strtoint(StringGrid1.Cells[j, i]);
       end;
    end;
  end;
  // выведем массив B
  for I := 0 to 5  do
     StringGrid2.Cells[i, 0] := IntToStr(B[i]);
end;

[aly-lucenko]

Спасибо огромное) вы мне очень помогли)
как вас можна отблагодарить:

[Stilet]

Либо деньжат подкинь, либо репутацию (жмак по весам) подними

[aly-lucenko]

куда денег перекинуть?

подскажите, как теперь из этого массива(одномерного) получить двумерный???
обратного преобразования B(X) в A(I,J) выглядит так:

I = Int((1 + Sqr(1 + 8 * X)) / 2)
J = X - I * (I - 1) / 2

for i:=0 to 3  do begin
 for j:=0 to 3  do  begin
   A[(round((1 + Sqr(1 + 8 * X)) / 2)), (round(X - I * (I - 1) / 2))]:=strtoint(StringGrid2.Cells[0, i]);
end;  end;
for i:=0 to 3  do
    for j:=0 to 3  do  begin
   StringGrid1.Cells[j, i]:=IntToStr(A[i,j]);end;

пишу код, опять не получается

[Serge_Bliznykov]

procedure TForm1.Button3Click(Sender: TObject);
var x, i, j : integer;
begin
  {выделим память под массив A}
  SetLength(A,4);
  for I := 0 to 3 do
     SetLength(A[i], 4);

  //обнулим массив A
  for i:=0 to 3  do
    for j:=0 to 3  do
      A[i, j] := 0;

  // собственно код переноса одномерного массива в двухмерный
  for x:=Low(B) to High(B)  do begin
    i := trunc(((1 + Sqrt(1 + 8 * X)) / 2));
    j := trunc((X - i * (i - 1) / 2));
    // Memo1.Lines.Append('x = '+IntToStr(x)+' i= '+IntToStr(i) + ' j= '+IntToStr(j));
    A[i, j]  := strtoint(StringGrid2.Cells[x, 0]);
  end;

  for i:=0 to 3  do
    for j:=0 to 3  do  begin
      StringGrid1.Cells[j, i]:=IntToStr(A[i,j]);
    end;

end;

куда денег перекинуть?

У Вас их много? Тогда договоримся, куда перекидывать!!!
А если не много - тогда не будем ничего никуда перекидывать!
Пользуйтесь моей добротой!...