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

Поиск подходящей по условию строки/столбца в матрице

18.01.2014, 21:31. Показов 625. Ответов 3
Метки нет (Все метки)

Задача - "Проверить, все ли столбцы матрицы содержат хотя бы один положительный элемент, если не все,
сообщить номер последнего такого столбца.". Решите, пожалуйста, с функциями.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2014, 21:31
Ответы с готовыми решениями:

В заданной матрице суммировать элементы указанного столбца согласно условию
Помогите разобраться в решении задачи. Нужно чтобы я ввёл кол-во строк в массиве, затем заполнил...

Поиск столбца по условию
Проверить, есть ли в целочисленном массиве c(N1xN2) хотя бы один столбец, кратный 13. Найти его...

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

Удаление строки по условию столбца датой
Добрый день нужна помощь умных людей. есть код с запросом вроде все работает нормально...

3
0 / 0 / 0
Регистрация: 18.01.2014
Сообщений: 5
19.01.2014, 15:36  [ТС] 2
ну так как написать программу то?

Добавлено через 17 часов 20 минут
ну сделайте! пожалуйста! очень срочно надо!!
0
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
19.01.2014, 21:33 3
ок сделаю

Добавлено через 21 минуту
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
type arr = array [1..100,1..100] of Integer;
var mas:arr;
    i,j,m,n:Integer;
 
function qwe(var a:arr; n,m:Integer):Integer;
var q:Integer;
begin
 q:=0;
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if (a[i,j]>0) then
            begin
              Inc(q);
              Break;
            end;
        end;
    end;
 qwe:=q;
end;
 
begin
  Write('Enter - = ');Readln(n);
  Write('Enter | = ');Readln(m);
  writeln(' === Array in ===');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write('Array[',i,',',j,'] = ');Readln(mas[i,j]);
        end;
    end;
  Writeln(' === Array out === ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write(mas[i,j],' ');
        end;
      Writeln;
    end;
  if (qwe(mas,n,m)=n) then Writeln('TRUE')
  else Writeln('False');
Readln;
end.
наверное правельно сделано в телефоне проверить немогу
1
0 / 0 / 0
Регистрация: 18.01.2014
Сообщений: 5
19.01.2014, 21:37  [ТС] 4
спасибо!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2014, 21:37

Помощь в написании контрольных, курсовых и дипломных работ здесь.

В матрице размером N*M поменять местами строки по условию
Задание такое "В матрице размером N*M поменять местами строку, содержащую элемент с наибольшим...

Поиск столбца, сумма элементов которого наибольшая в матрице
Немоглибы бы вы мне помочь,задание состояло в поиске столбца сумма элементов которого наибольшая в...

Сортировка строки и столбца в матрице
Добрый день. Подскажите, пожалуйста, как отсортировать матрицу по заданным столбцу и строке....

Удаление столбца и строки в матрице
Доброго времени суток всем. У меня возникла следующая проблема при программировании на с++, а...


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

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

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