Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
xq
0 / 0 / 0
Регистрация: 14.09.2014
Сообщений: 321
#1

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

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

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

Задана матрица А размером 3х4 вектор В размером 4
Задана матрица А размером 3х4 и вектор В размером 4. Получитт из произведение в...

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

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

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

Задана матрица размером n*m. Получить массив В, присвоив его k -му элементу значение 1, если элементы k -й строки матрицы упорядочены по убыванию
Задана матрица размером n*m. Получить массив В, присвоив его 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
Модератор
54344 / 41939 / 28975
Регистрация: 18.05.2008
Сообщений: 98,778
31.05.2015, 08:38 #4
Лучший ответ Сообщение было отмечено xq как решение

Решение

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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2015, 08:38

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

Задана матрица M * N
Задана матрица M * N. Алгоритм должен выполнять ввод и вывод исходной матрицы...

Задана квадратная матрица порядка n. Получить транспонированную матрицу
Задана квадратная матрица порядка n. Получить транспонированную матрицу ...


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

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

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