--------------------------------------------------------------------------------
Задача:
массив заполнен прозрачными (нулевыми элементами) и непрозрачными (единичными элементами) кубиками. Вывести номера столбцов тех непрозрачных кубиков, которые не видны пользователю, который смотрит слева на таблицу.
Я вот решила, только у меня чего-то по два раза один столбец выводится:
Код:
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: Не забываем про теги!