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

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

12.04.2016, 20:39. Показов 5005. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан двумерный массив. Найти номера последних
отрицательных элементов каждого столбца.
Это чуть другая программа но они похожи
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
Program Massiv2;
        
const 
  MaxN = 5; MaxM = 5; 
type 
  MyArray = array[1..MaxN, 1..MaxM] of Integer;  
var 
  A: MyArray;
//----------------------------------------
procedure Init2Mas(n, m: Integer; var A: MyArray);
const ot = -10; ido = 10; 
  //границы диапазона случайных чисел
var 
  i, j: Integer;
begin
  Randomize;
  Writeln('Заполнение двумерного массива случайными числами'); 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      A[i, j] := Random(ot, ido);
      Write(A[i, j] : 4);
    end;
    Writeln();
  end;
end;
//----------------------------------------
procedure Write2Mas(n, m: Integer; A: MyArray);
var 
  i, j : Integer;
begin
  Writeln('Результат работы программы'); 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      Write(A[i, j] : 4);
    end;
    Writeln();
  end;
end;
//----------------------------------------
procedure hh(n, m: Integer;  A: MyArray);
var
 i , j :integer; 
begin
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if A[i, j] < 0 then
      begin
        write(i, '.',j,' ');
        break;
      end;
    end;
  end;
end;
begin
  Init2Mas(MaxN, MaxM, A); 
 
  hh(MaxN, MaxM, A); 
 
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.04.2016, 20:39
Ответы с готовыми решениями:

Дан двумерный массив. Найти номера первых отрицательных элементов каждой строки
Дан двумерный массив. Найти номера первых отрицательных элементов каждой строки. Помогите решить.

Найти номера первых отрицательных элементов каждой строки.
1) Даны два текстовых файла. Записать в третий файл только те строки, которые есть и в первом, и во втором файлах. (текстовые фалы) 2)...

Найти номера первых отрицательных элементов каждой строки матрицы
В прямоугольной матрице, размерностью n*m, найти номера первых отрицательных элементов каждой строки (столбца).

4
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
13.04.2016, 05:19 2
а зачем ты нам чужой код даешь, к тому-же "похожий"?
Измени его сам "под себя", протестируй с десяток раз, пойми как он работает, а потом вопросы задавай...

Добавлено через 3 минуты
п.с. Небольшая подсказка: чтобы сразу найти "последние" отрицательные элементы каждого столбца, начинай циклы с конечных индексов элементов столбца
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
13.04.2016, 14:01 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
Program Massiv2_2;
const N = 5; M = 5;
type MyArray = array[1..N, 1..M] of Integer;
var A: MyArray; i,j,p:Integer;
begin
  Randomize;
  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;
  for i := 1 to n do
   begin
    p:=0;
    for j := 1 to m do
     if A[i, j]<=0
      then p:=j;
    if p<>0
      then writeln('В строке ',i,' элемент номер ',p)
      else writeln('В строке ',i,' нет отрицательных элементов');
   end;
end.
0
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
13.04.2016, 21:59 4
schoolteacher, перебирать каждый столбец матрицы, начиная с начала и до конца, чтобы найти последний отрицательный элемент - это очень "интересно".
А если строк и столбцов несколько миллионов?
По-моему "Downto" для данной задачи подойдёт больше. Тогда поиск по столбцу продлится до первого элемента, подходящего по условию задачи.

Добавлено через 11 минут
п.с. К тому-же у топикстартера была задача найти " номера последних
отрицательных элементов каждого столбца ", а не каждой строки, как у Вас в коде.
Но думаю это не страшно - он(ТС) под себя сможет ваш код переделать. :-)

Добавлено через 2 минуты
п.с.2. И еще вопрос - с каких это пор ноль стал отрицательным элементом, что Вы с ним сраниваете каждый элемент на равенство?(строка № 21)
Pascal
1
   if A[i, j]<=0
Может правильнее всё-таки будет так:
Pascal
1
   if A[i, j] < 0
Добавлено через 8 минут
А учитывая "правильное" условие задачи было бы так:
Pascal
1
     if A[j, i] < 0
Добавлено через 3 минуты
Плюс:
Pascal
1
2
3
4
    if p<>0
      then writeln('В столбце ',i,' последн.отрицат.элемент - номер ',p)
      else writeln('В столбце ',i,' нет отрицательных элементов');
   end;
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
13.04.2016, 23:17 5
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
Program Massiv2_3;
const N=5; M=5;
type MyArray = array[1..N, 1..M] of Integer;
var A: MyArray; i,j,p:Integer;
begin
 cls;
 Randomize;
 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;
  for j:=1 to m do
   begin
    p:=0;
    for i:=1 to n do
     if A[i,j]<0
      then p:=i;
    if p<>0
      then writeln('В столбце ',j,' последний отрицательный элемент имеет номер',p)
      else writeln('В столбце ',j,' отрицательных элементов нет')
   end
end.
0
13.04.2016, 23:17
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.04.2016, 23:17
Помогаю со студенческими работами здесь

Найти номера первых отрицательных элементов каждой строки матрицы
Задание 1 В прямоугольной матрице, размерностью n*m, найти номера первых отрицательных элементов каждой строки (столбца). Задание 2 ...

Сформировать одномерный массив В, элементами которого являются номера первых отрицательных элементов каждой строки матрицы
Помогите пожалуйста задали написать, а я толком не могу понять как это делать. 6Дана матрица А размерностью nхm. Сформировать одномерный...

дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных элементов массива
дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных элементов массива

Дан двумерный массив. Найти наименьший положительный элемент каждой строки данного массива
Дан двумерный массив. Найти наименьший положительный элемент каждой строки данного массива. Из полученных значений сформировать одномерный...

Дан двумерный массив, как найти сумму всех элементов 3-й строки массива?
Дан двумерный массив, как найти сумму всех элементов 3-й строки массива? Сижу и бьюсь, как рыба об лёд. Вроде просто, а знаний не...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Язык программировани­я C++: сравнение с другими языками
Programming 06.02.2025
Современная разработка программного обеспечения предлагает множество языков программирования, каждый из которых обладает уникальными характеристиками и областями применения. C++ занимает особое место. . .
Язык программировани­­я C++: достоинства и недостатки
Programming 06.02.2025
C++ считается одним из самых влиятельных языков программирования, продолжающим занимать ведущие позиции в мире разработки программного обеспечения. Этот язык появился как расширение языка C с. . .
Регулярные выражения в Python
BasicMan 06.02.2025
Регулярные выражения - это последовательности символов, определяющие правила поиска и сопоставления текстовых данных. В Python они используются для поиска подстрок, проверки соответствия текста. . .
Как создать свой мод для Майнкрафт с нуля на Java
IT_Exp 06.02.2025
Разработка мода для Minecraft начинается с правильной настройки среды разработки. Для создания мода потребуется Java Development Kit (JDK), интегрированная среда разработки и Minecraft Forge. JDK. . .
Async/await и асинхронное программировани­е в Java
IT_Exp 06.02.2025
Асинхронное программирование - это подход к организации вычислительных процессов, позволяющий приложениям эффективно использовать доступные ресурсы системы. В контексте Java этот метод приобретает. . .
Как исправить android.os.Netw­orkOnMain­Thread­Exception
hw_wired 06.02.2025
Исключение NetworkOnMainThreadException возникает при попытке выполнить сетевые операции в главном потоке Android-приложения. Главный поток отвечает за обработку пользовательского интерфейса и должен. . .
Как в Java определить, что массив содержит определенное значение
hw_wired 06.02.2025
В Java класс Arrays предлагает несколько способов для проверки наличия значений в массивах. Наиболее широко применяемый метод заключается в использовании комбинации Arrays. asList() и contains(). . . .
Как использовать virtualenv в Python. Виртуальные среды/окружения
hw_wired 06.02.2025
В Python виртуальные окружения решают одну из ключевых задач разработки - изоляцию зависимостей между проектами. Virtualenv создает отдельное пространство для каждого проекта, где устанавливаются. . .
Кнопка в HTML, которая работает как ссылка
hw_wired 06.02.2025
В HTML существует несколько подходов к созданию кнопки, которая функционирует как ссылка. Базовым элементом выступает тег button, который можно преобразовать в ссылку с помощью JavaScript. Для этого. . .
Как обновить страницу с помощью JavaScript
bytestream 06.02.2025
JavaScript предоставляет несколько базовых методов для обновления веб-страницы, которые встроены непосредственно в язык и доступны через объектную модель браузера. Основной метод обновления страницы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru