Майки для диджеев # Секс и любовь

TypeTTypeArray = array of byte;TTypeArray2 = array of TTypeArray;TTypeArray3=array of TTypeArray2;TTypeArray4=array of TTypeArray3;VarMas_Kolec: TTypeArray2;Mas_3mer:TTypeArray3;Кстати массив должен быть динамическийЭто к решению задачи о ханойских башнях.
Надо решить её НЕрекурсивно, с множеством колец и множеством стержней.
Алгоритм на бумаге готов, очень громоздкий и как лучше реализовать программно не могу придумать.

Как потом к массиву Mas_3me обращаться?К массиву Mas_Kolec[i,j]:=1.

Примерно так.
Тройные циклы лень вбивать, тут же самаprocedure TForm1.FormActivate(Sender: TObject);typeTTypeArray = array of byte;TTypeArray2 = array of TTypeArray;TTypeArray3 = array of TTypeArray2;TTypeArray4 = array of TTypeArray3 ;vartemp: TTypeArray;Mas_Kolec: TTypeArray2;Mas_3mer: TTypeArray3;i, j, k: integer;beginSetLength(temp, 6);SetLength(Mas_3mer, 6, 6);//Вводfor I := 0 to 5 dobegintemp[I] := 15;Mas_3mer[I, I] := temp;end;//Выводfor I := 0 to 5 dobegintemp := Mas_3mer[I, I];MessageDlg(IntToStr(temp[I]), mtInformation, [mbOK], 10);end;end.

---

Видео о майки для диджеев