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

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

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

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

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

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

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

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

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

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
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