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

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

Войти
Регистрация
Восстановить пароль
 
Vatalik
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
#1

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

31.05.2015, 10:02. Просмотров 273. Ответов 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;
как сделать так чтобы вместо нулей ничего не было
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2015, 10:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Удалить нули из матрицы (Delphi):

Удалить из отсортированного по возрастанию массива все нули - Delphi
Дан отсортированный по возрастанию массив а1,a2,...ai,...an. n&lt;=100. Удалить из него все нули. Составить схему алгоритма и написать...

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

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

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

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

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

7
planetoxod
248 / 159 / 24
Регистрация: 22.08.2014
Сообщений: 1,573
Записей в блоге: 1
31.05.2015, 10:48 #2
Проверяешь на нули и присваиваешь ''
0
Vatalik
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
31.05.2015, 11:19  [ТС] #3
planetoxod, вместо b[i,j]:=0;
написать b[i,j]:="; ????
0
planetoxod
248 / 159 / 24
Регистрация: 22.08.2014
Сообщений: 1,573
Записей в блоге: 1
31.05.2015, 13:25 #4
Цитата Сообщение от Vatalik Посмотреть сообщение
StringGrid2.Cells[j,i]:=''
вот
0
Puporev
Модератор
52387 / 40234 / 13572
Регистрация: 18.05.2008
Сообщений: 92,983
31.05.2015, 13:34 #5
Цитата Сообщение от Vatalik Посмотреть сообщение
как сделать так чтобы вместо нулей ничего не было
В матрице не может быть ничего, при выводе ее в таблицу вместо 0 вывести пустую строку.
0
Vatalik
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
31.05.2015, 13:44  [ТС] #6
planetoxod, у меня выводит тругольную матрицу, а все что выше главной диагонали равняется 0 а должно быть там пусто
0
Puporev
Модератор
52387 / 40234 / 13572
Регистрация: 18.05.2008
Сообщений: 92,983
31.05.2015, 14:28 #7
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Удалить из матрицы столбцы содержащие одинаковые элементы - Delphi
Матрица размерностью NxM заполняется генератором случайных чисел.Удалить столбцы, содержащие одинаковые элементы.Вывести исходную и...

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


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

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

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