Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » Преобразование треугольного массива в одномерный)
Преобразование треугольного массива в одномерный)
Суть задачи состоит в том, что б преобразовать треугольный массив в одномерный, естественно без нолей)
нашла формулу 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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » Преобразование треугольного массива в одномерный)
Страница 1 из 11
Поиск: