1 / 1 / 0
Регистрация: 05.06.2012
Сообщений: 7
1

Определить количество строк матрицы, не содержащих ни одного нулевого элемента

10.01.2013, 16:55. Показов 2273. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана целочисленная прямоугольная матрица. Определить:
1. Количество строк, не содержащих ни одного нулевого элемента (оформить в виде функции)
2. Максимальное из чисел, встречающихся в заданной матрице более одного раза (оформить в виде процедуры)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2013, 16:55
Ответы с готовыми решениями:

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
дана целочисленная прямоугольная матрица. определить количество строк не содержащих ни одного...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить количество строк, не содержащих ни одного...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
вопрос относительно вот этой темы -"Дана целочисленная прямоугольная матрица. Определить количество...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
2.Определить количество строк, не содержащих ни одного нулевого элемента. Матрица прямоугольная,...

2
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.01.2013, 17:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
uses crt;
const nmax=15;
type mtr=array[1..nmax,1..nmax] of integer;
function kolstr(a:mtr;m,n:integer):integer;
var i,j,k,p:integer;
begin
k:=0;
for i:=1 to m do
 begin
  p:=0;
  j:=1;
  while (j<=n)and(p=0) do
  if a[i,j]=0 then p:=1
  else j:=j+1;
  if p=0 then k:=k+1;
 end;
kolstr:=k
end;
procedure Max2(a:mtr;m,n:integer;var mx:integer);
var mn:integer;
    i,j,imx,jmx,k,p,f:integer;
begin
{находим минимум в матрице}
mn:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]<mn then  mn:=a[i,j];
{цикл поиска первого макс > 1 раза}
k:=0;
f:=0;p:=0;
repeat
{находим максимальный}
mx:=a[1,1];imx:=1;jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
{ищем равный ему}
for i:=1 to m do
for j:=1 to n do
if (a[i,j]=mx)and((i<>imx)or(j<>jmx))and(a[i,j]<>mn-1) then
 begin
  k:=1;
  f:=1;
 end;
if k=0 then{если не нашли}
  begin
   a[imx,jmx]:=mn-1;{меняем макс элемент на число меньше минимума}
   p:=p+1;{считаем число попыток}
  end;
until (k=1)or(p=m*n-1);{если нашли, или остался
только 1 непроверенный элемент, заканчиваем}
if f=0 then write('В матрице нет двух одинаковых элементов!')
else write('Наибольший, встреченный более 1 раза=',mx)
end;
var a:mtr;
    m,n,i,j,mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Количество строк без нолей=',kolstr(a,m,n));
max2(a,m,n,mx);
readln
end.
3
1 / 1 / 0
Регистрация: 05.06.2012
Сообщений: 7
10.01.2013, 19:39  [ТС] 3
Спасибо-спасибо Вам большое ^^
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
1
10.01.2013, 19:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2013, 19:39
Помогаю со студенческими работами здесь

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного...

Определить количество строк, не содержащих ни одного нулевого элемента
Данная целочисленная прямоугольная матрица . Определить количество строк , не содержащих ни одного...

Найти количество строк матрицы, не содержащих ни одного нулевого элемента
повторил тему извиняюсь

Массив: Определить количество строк, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru