Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Shtirlicrus
0 / 0 / 0
Регистрация: 30.11.2014
Сообщений: 7
#1

В матрице определить количество строк, содержащих нули, и столбец с максимальной серией отрицательных чисел

29.05.2015, 00:01. Просмотров 640. Ответов 2
Метки нет (Все метки)

2. Дана целочисленная прямоугольная матрица. Определить:
A. количество строк, содержащих хотя бы один нулевой элемент (оформить в виде функции);
B. номер столбца, в котором находится самая длинная серия отрицательных элементов (оформить в виде процедуры).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2015, 00:01
Ответы с готовыми решениями:

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

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

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

В матрице найти количество отрицательных элементов столбцов содержащих максимальный и минимальный элементы
В матрице nxm, найти количество отрицательных элементов столбцов содержащих максимальный и...

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,962
29.05.2015, 09:02 #2
Лучший ответ Сообщение было отмечено Shtirlicrus как решение

Решение

(С) rocknrolla

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
const
  n_max=100;
type
  matr = array [1..n_max,1..n_max] of integer;
var
  i,j,n,m: integer;
  z,x: integer;
  b: matr;
 
function zero (a:matr) : integer;
var i,j,sum: integer;
begin
  sum:=0;
  for i:=1 to n do
  for j:=1 to m do
   if a[i,j]=0 then
   begin
    inc(sum);
    break;
   end;
 zero:=sum;
end;
Procedure seria (var a: matr);
var
 i,j,number,maxlen,slen: integer;
begin
 maxlen:=1; number:=1;
 for i:=1 to n do
 begin
  slen:=1;
  for j:=1 to m-1 do
   if (a[i,j]<0) then
   inc(slen)
   else
   begin
    if slen>maxlen then
    begin
     number:=i;
     maxlen:=slen;
    end;
    slen:=1;
   end;
  if slen>maxlen then number:=i;
 end;
 writeln('Номер строки:', number);
end;
 
begin
  writeln ('Введите размерность:');
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          b[i,j]:=random(100)-50;
          write(b[i,j]:4);
        end;
      writeln;
    end;
 writeln('Кол. строк с 0:', zero(b));
 seria(b);
 readln;
end.
Добавлено через 8 минут
Исправил ошибки:
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
const
  n_max=100;
type
  matr = array [1..n_max,1..n_max] of integer;
var
  i,j,n,m: integer;
  z,x: integer;
  b: matr;
 
function zero (a:matr) : integer;
var
  i,j,sum: integer;
begin
  sum:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=0 then
        begin
          inc(sum);
          break;
        end;
  zero:=sum;
end;
 
Procedure seria (var a: matr);
var
  i,j,number,maxlen,slen: integer;
begin
  maxlen:=1; number:=1;
  for j:=1 to m do
  begin
    slen:=1;
    for i:=1 to n do
      if (a[i,j]<0) then
        inc(slen)
      else
        begin
          if slen>maxlen then
            begin
              number:=j;
              maxlen:=slen;
            end;
      slen:=1;
  end;
  if slen>maxlen then number:=j;
  end;
  writeln('Номер столбца с наибольшей серией элементов <0: ', number);
end;
 
begin
  writeln ('Введите размерность:');
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          b[i,j]:=random(10)-5;
          write(b[i,j]:4);
        end;
      writeln;
    end;
 writeln('Количество строк, содержащих хотя бы один нулевой элемент: ', zero(b));
 seria(b);
 readln;
end.
1
Shtirlicrus
0 / 0 / 0
Регистрация: 30.11.2014
Сообщений: 7
29.05.2015, 21:47  [ТС] #3
Спасибо!) Оч выручил)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2015, 21:47

В матрице найти столбец с максимальной суммой элементов
найти столбец с максимальной суммой элементов

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

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


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

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

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