|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите, пожалуйста!
--------------------------------------------------------------------------------
Задача: массив заполнен прозрачными (нулевыми элементами) и непрозрачными (единичными элементами) кубиками. Вывести номера столбцов тех непрозрачных кубиков, которые не видны пользователю, который смотрит слева на таблицу. Я вот решила, только у меня чего-то по два раза один столбец выводится: Код:
var i,j,k:integer; begin Memo1.Clear; for i:=0 to m-1 do for j:=0 to n-1 do for k:=j+1 to n-1 do if (StringGrid1.Cells[j,i]='1')and(StringGrid1.Cells[k,i]='1') then Memo1.Lines.Add('в '+IntToStr(i+1)+' строке '+IntToStr(k+1)+' столбце'); end; Последний раз редактировалось Admin, 13.12.2009 в 17:26. |