Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Vatalik
1 / 1 / 2
Регистрация: 26.11.2012
Сообщений: 93
#1

Удалить нули из матрицы - Delphi

31.05.2015, 10:02. Просмотров 315. Ответов 7
Метки нет (Все метки)

я задаю статическую матрицу

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button3Click(Sender: TObject);
Var i,j: integer;
begin
 //Размерность матрицы
 n:=StrToInt(Edit1.Text);
 //Устанавливаем количество столбцов таблицы
 StringGrid2.ColCount:=n;
 //Устанавливаем количество строк таблицы
 StringGrid2.RowCount:=n;
 //Высота таблицы
 StringGrid2.Height:=StringGrid1.DefaultRowHeight*n + 10;
 //ширина таблицы
 StringGrid2.Width:=StringGrid1.DefaultRowHeight*n+10;
 //включаем генератор случайных чисел
 randomize;
 for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  begin
   if j<=i then
    b[i,j]:=random(100) + 5
   else
    b[i,j]:=0;
   StringGrid2.Cells[j,i]:=IntToStr(b[i,j]);
   end;
 end;
end;
как сделать так чтобы вместо нулей ничего не было
http://www.cyberforum.ru/delphi-beginners/thread1759088.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2015, 10:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удалить нули из матрицы (Delphi):

найти нули матрицы
В матрице найти количество нулевых элементов. А(2*3) . тип данных real

Найти номера строк матрицы, все элементы которых – нули
. Дана целочисленная квадратная матрица порядка n. Найти номера строк: все...

Заменить на нули все элементы матрицы, расположенные на главной диагонали и выше нее
Дана матрица z(3,3), заменить на нули все ее элементы расположенные на главной...

Дана матрица целых чисел размером 5x3. Заменить все отрицательные элементы матрицы на нули. Вывести содержим
Дана матрица целых чисел размером 5x3. Заменить все отрицательные элементы...

Записать на место отрицательных элементов матрицы нули, а на место положительных – единицы
Помогите, пожалуйста!.. и если можете, пришлите полный код, чтобы...

7
planetoxod
250 / 161 / 24
Регистрация: 22.08.2014
Сообщений: 1,581
Записей в блоге: 1
31.05.2015, 10:48 #2
Проверяешь на нули и присваиваешь ''
0
Vatalik
1 / 1 / 2
Регистрация: 26.11.2012
Сообщений: 93
31.05.2015, 11:19  [ТС] #3
planetoxod, вместо b[i,j]:=0;
написать b[i,j]:="; ????
0
planetoxod
250 / 161 / 24
Регистрация: 22.08.2014
Сообщений: 1,581
Записей в блоге: 1
31.05.2015, 13:25 #4
Цитата Сообщение от Vatalik Посмотреть сообщение
StringGrid2.Cells[j,i]:=''
вот
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
31.05.2015, 13:34 #5
Цитата Сообщение от Vatalik Посмотреть сообщение
как сделать так чтобы вместо нулей ничего не было
В матрице не может быть ничего, при выводе ее в таблицу вместо 0 вывести пустую строку.
0
Vatalik
1 / 1 / 2
Регистрация: 26.11.2012
Сообщений: 93
31.05.2015, 13:44  [ТС] #6
planetoxod, у меня выводит тругольную матрицу, а все что выше главной диагонали равняется 0 а должно быть там пусто
0
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
31.05.2015, 14:28 #7
Лучший ответ Сообщение было отмечено Vatalik как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
for i:=0 to n-1 do
for j:=0 to n-1 do
if j<=i then
 begin
  b[i,j]:=random(100) + 5;
  StringGrid2.Cells[j,i]:=IntToStr(b[i,j]);
 end
else
 begin
  b[i,j]:=0;
  StringGrid2.Cells[j,i]:=''; ;
 end;
1
Vatalik
1 / 1 / 2
Регистрация: 26.11.2012
Сообщений: 93
31.05.2015, 14:47  [ТС] #8
Puporev, спасибо
0
31.05.2015, 14:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2015, 14:47
Привет! Вот еще темы с решениями:

Записать на место отрицательных элементов матрицы нули, а на место положительных – единицы
Помогите решить задачу: Дана квадратная матрица A. Записать на место...

В матрице А записать на место отрицательных элементов матрицы нули, а на место положительных – единицы
В общем, нужно в Delphi: в матрице А записать на место отрицательных элементов...

Удалить столбец, содержащий максимальный элемент матрицы
Здравствуйте! Хотела бы попросить помощи в решении двух задач в программе...

Удалить столбец содержащий минимальный элемент матрицы
дана матрица размером 5 на 10. Удалить столбец содержащий минимальный элемент...


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

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

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