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

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

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

Задана матрица размером N´M - Delphi

24.05.2015, 03:06. Просмотров 389. Ответов 3
Метки нет (Все метки)

Задана матрица размером N´M. Определить количество различных значений матрицы, т. е. повторяющиеся элементы считать один раз.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2015, 03:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задана матрица размером N´M (Delphi):

Задана матрица А размером 3х4 вектор В размером 4 - Delphi
Задана матрица А размером 3х4 и вектор В размером 4. Получитт из произведение в массиве С размером 4. {C}_{i}=\sum_{j=1}^{4}{a}_{ij}{b}_{i}...

Задана матрица размером . Получить массив B - Delphi
Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если k-ая строка матрицы симметрична, и значение 0 в...

Задана символьная матрица размером NxM. Определить k - количество различных - Delphi
Это вторая чать задания,для его решение нужно использовать программу из первой. В процедуре клика второй клавиши попытался сделать творую...

Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если элементы k-ой строки - Delphi
Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если элементы k-ой строки матрицы упорядочены по...

Задана матрица размером n*m. Получить массив В, присвоив его k -му элементу значение 1, если элементы k -й строки матрицы упорядочены по убыванию - Delphi
Задана матрица размером n*m. Получить массив В, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по...

Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один раз) - Delphi
Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один ра ...

3
xq
0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 321
26.05.2015, 21:05  [ТС] #2
Поможет кто?
0
xq
0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 321
30.05.2015, 21:22  [ТС] #3
пожалуйста
0
Puporev
Модератор
52389 / 40236 / 13575
Регистрация: 18.05.2008
Сообщений: 92,996
31.05.2015, 08:38 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
28
29
30
31
32
33
34
35
36
37
procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of integer;
    m,n,i,j,k,f,p:integer;
begin
randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit2.Text);
Stringgrid1.Rowcount:=n;
Stringgrid1.Colcount:=m;
setlength(a,n,m);
for i:=0 to n-1 do //нет фиксированных строк и столбцов
for j:=0 to m-1 do
 begin
  a[i,j]:=random(20);
  Stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
k:=1;
setlength(b,k);
b[0]:=a[0,0];
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  f:=0;
  p:=0;
  while(p<k)and(f=0)do
  if b[p]=a[i,j] then f:=1
  else p:=p+1;
  if f=0 then
   begin
    k:=k+1;
    setlength(b,k);
    b[k-1]:=a[i,j];
   end;
  end;
Edit3.Text:='Количество разных элементов='+inttostr(k);
end;
1
31.05.2015, 08:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2015, 08:38
Привет! Вот еще темы с ответами:

Задана квадратная матрица порядка n. Получить транспонированную матрицу - Delphi
Задана квадратная матрица порядка n. Получить транспонированную матрицу Заранее большое спасибо!

Матрица размером NxM - Delphi
Ребят, очень нужно :) : Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k-й строки...

Задана матрица a(n*m). Отсортировать элементы каждой ее строки по возрастанию и переписать их в матрицу b(n*m) - Delphi
Задана матрица a(n x m) . Отсортировать элементы каждой ее строки по возрастанию и переписать их в матрицу b(n x m) . Сортировку...

Квадратная матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерно - Delphi
Квадратная матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерного массива. Восстановить...


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

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

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