Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
4 / 3 / 0
Регистрация: 08.12.2009
Сообщений: 63
1

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

05.03.2010, 01:12. Показов 1538. Ответов 3
Метки нет (Все метки)

Задание: Целочисленная прямоугольная матрица заполняется с помощью генератора случайных чисел значениями из промежутка [-10, 10]. Определить количество столбцов, не содержащих ни одного нулевого элемента.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2010, 01:12
Ответы с готовыми решениями:

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

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

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

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

3
Retired
7724 / 2556 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
05.03.2010, 01:34 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
uses
  Crt;
const
  N = 3;
var
  a: array [1..N, 1..N] of integer;
  m: set of byte;
  i,j,c: integer;
begin
  ClrScr;
  m := [1..N];
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      a[i,j] := Random(21) - 10;
      if (a[i,j] = 0) and (j in m) then
        Exclude(m, j);
      Write(a[i,j]:3, ' ')
    end;
    WriteLn
  end;
  c := 0;
  for i := 1 to N do
    if i in m then
      Inc(c);
  WriteLn('Result: ', c);
  ReadLn
end.
Правда при таком подходе Nmax = 255
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.03.2010, 06:44 3
Не понял зачем множества и ограничения, если можно просто посчитать.
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,s:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(21)-10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
s:=0;//количество столбцов с нолями
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]=0 then//если в столбце есть ноль
   begin
    k:=1;//фиксируем
    break;
   end;
  if k=1 then s:=s+1;//считаем столбец
 end;
write('Количество столбцов с нолями=',s);
readln
end.
0
Retired
7724 / 2556 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
05.03.2010, 11:01 4
Puporev, можно просто посчитать тут я с тобой согласен, но если делать как я, код получится и меньше и быстрее. Так как я если честно не представляю куда он будет выводить матрицу в паскале даже при N = 255, то для нас это ограничение не особо важно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2010, 11:01

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

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

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

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


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

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

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