Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
MehantroniK
6 / 6 / 2
Регистрация: 03.04.2011
Сообщений: 55
#1

Удаление столбцов из матрицы - Delphi

26.06.2011, 16:50. Просмотров 415. Ответов 0
Метки нет (Все метки)

Доброго времени суток true'шные прогеры) Нужна помощь:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
r:=0;
 for i:=0 to StringGrid1.RowCount-1 do
 begin
  for j:=0 to StringGrid1.ColCount-1 do
   begin
    s:=StrToInt(StringGrid1.Cells[i,j]);
     if s<>0 then
      r:=r+1;
   end;
    if r mod 2 = 0 then
     StringGrid1.Rows[j].Clear;
   end;
end;
вот, эта программа должна удалить из матрицы(StringGrid)столбцы с четным количеством ненулевых элементов. Это уже третий вариант кода и все не работает. Может я где дырку не вижу из-за которой все это дело не робит. Помогите, буду признателен.

Добавлено через 15 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
r:=0;
 for i:=0 to StringGrid1.RowCount-1 do
 begin
 for j:=0 to StringGrid1.ColCount-1 do
  begin
   StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
   s:=StrToInt(StringGrid2.Cells[i,j]);
    if s<>0 then
     r:=r+1;
    end;
   if (r mod 2)=0 then
    StringGrid2.Cols[i].Clear;
end;
end;
попробовал так, но удаляет совсем не те столбцы...даже медитация не помогает

Добавлено через 12 минут
Все, разобрался Перебор на листочке бумаги помог)
вот так получилось:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s:integer;
        r:integer;
begin
 for i:=0 to StringGrid1.RowCount-1 do
  begin
   r:=0;
  for j:=0 to StringGrid1.ColCount-1 do
   begin
    StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
    s:=StrToInt(StringGrid2.Cells[i,j]);
     if s<>0 then
      r:=r+1;
   end;
    if (r mod 2)=0 then
     StringGrid2.Cols[i].Clear;
  end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2011, 16:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Удаление столбцов из матрицы (Delphi):

Удаление строк и столбцов из матрицы. Тестирование программы - Delphi
Здравствуйте. Имеется следующее условие задачи: Ввести матрицу m*n. Удалить из нее все строки и столбцы, содержащие хотя бы один нулевой...

Удаление строк/столбцов, содержащих максимальный элемент матрицы - Delphi
помогите пожалуйста, выскакивает ошибка &quot;is not a valid integer value&quot;. перепроверила, не могу понять в чем дело( procedure...

Удаление столбцов матрицы, где есть хоть одно число Фибоначчи - Delphi
please, очень нужно процедуру удаления столбцов матрицы(матрица произвольной размерности M*N) , где есть хотя бы одно число Фибоначчи

StringGrid и матрица. Удаление столбцов. - Delphi
Здравствуйте, форумчане. Мне нужно сделать, чтобы из матрицы удалились столбцы без нуля ( нулевого элемента ). Вот мой код, почему-то...

Удаление столбцов из эксель файла - Delphi
Нужен хелп. :)Никак не получается удалить столбцы из эксель файла. Использую для удаления xl.columns.Select; xl.Selection.Delete; ...

Поставить ограничение на удаление названий столбцов - Delphi
Здравствуйте! Скажите как в этой процедуре поставить ограничение что бы не удалялись названия столбцов procedure...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2011, 16:50
Привет! Вот еще темы с ответами:

Добавление\удаление строк и столбцов в SringGrid Delphi - Delphi
Необходимо, что бы строки и столбцы удалялись с конца, сохраняя содержимое остальных ячеек, тоже самое с добавлением. Получается, что...

есть программа надо некоторыю нюансы исправить . типа удаление столбцов и наладки сохранения открытия файлов - Delphi
Срочно нужна помощ . курсач горит . есть программа надо некоторыю нюансы исправить . типа удаление столбцов и наладки сохранения открытия...

Перестановка столбцов матрицы - Delphi
Заполнить элементы массива В(8,12) случайными числами. Поменять местами столбцы массива, расположенные симметрично относительно середины...

Циклический сдвиг столбцов матрицы - Delphi
Задана цілочислова матриця A(n,n), n&gt;20 . Розробити програму, яка здійснює циклічний зсув стовпців так, щоб першим став стовпчик, у якому...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.