Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Преобразование треугольного массива в одномерный)
Суть задачи состоит в том, что б преобразовать треугольный массив в одномерный, естественно без нолей)
нашла формулу 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;
после запуска выдает ошибку)
1 | Автор: aly-lucenko | 2011-04-10, 11:41   |  Репутация: [ + 3 ]
  • Страница 1 из 1
  • 1
Поиск: