|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.12.2011, 11:19 | #1 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
почему в данной программе по условию мы вводит отрицательные числа?
Условие задачи:
В данной квадратной целочисленной матрице, порядка 17 указать индексы всех элементов с наибольшим значением. Program Z2; uses CRT; Type matrix=array[1..100, 1..100] of real; mass=array[1..100] of real; Var matrica: matrix; row: mass; column: mass; i,j,M,N,row_index,column_index: integer; max_value:real; begin write('Матрица порядка 17'); writeln; N := 17; M := 17; for i:=1 to N do begin for j:=1 to M do begin matrica[i,j] := random(200) - 100; end; end; writeln('Введенная матрица:'); for i:=1 to N do begin for j:=1 to M do begin write(' ',matrica[i,j]); end; writeln; end; max_value := -100; row_index := 0; column_index := 0; for i:=1 to N do for j := 1 to M do if max_value < matrica[i,j] then max_value := matrica[i,j]; writeln('max_value:', max_value); for i:=1 to N do begin for j := 1 to M do begin if matrica[i,j] = max_value then begin inc(row_index); inc(column_index); row[row_index] := i; column[column_index] := j; end end end; writeln('Индексы элементов с наибольшим значением:'); for i := 1 to row_index do begin writeln('[', row[i], ',', column[i],']'); end end. max:=a[1,1]; for i:=1 to n do for j:=1 to n do if(a[i,j]>max) then max:=a[i,j]; max:=a[1,1]; for i:=1 to n do for j:=1 to n do if(a[i,j]>max) then max:=a[i,j]; // Нашли наибольшее значение for i:=1 to n do for j:=1 to n do if(a[i,j]=max) then writeln(i,' ',j); // Вывели индексы всех наибольших Спасибо большое за помощь! Последний раз редактировалось Настяyu; 28.12.2011 в 11:22. |
28.12.2011, 11:46 | #3 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
то есть их можно убрать?
просто мне дали задачу и сказали объяснить, почему в данной задаче нужны отрицательные числа? я предположила, что надо проверить и отрицательные.... |
28.12.2011, 11:49 | #4 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
зачем в данном массиве вводится отрицательные элементы?
точный вопрос.... |
28.12.2011, 11:51 | #5 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
Честно говоря я не понял, зачем отрицательные числа? Просто выводить индексы максимальных элементов и все!
Помог - жми на весы!
ByAlex89@mail.ru |
28.12.2011, 11:53 | #6 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
может надо сравнить числа отрицательные, и эти же числа но уже по модулю.. например, -1 > -3, а по модулю 3 будет больше 1.
|
28.12.2011, 13:12 | #7 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
Ну этого не может быть -3 меньше -1! Как я понял, нужно вывести индексы максимальных элементов из каждой строки, а не элементов, равных максимальному из всей матрицы.
Помог - жми на весы!
ByAlex89@mail.ru |
28.12.2011, 13:27 | #8 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
но от нас препод чего то требует я не пойму чего....
а какие числа вообще должны входить в данный массив? от 1 до 17????? |
28.12.2011, 13:36 | #9 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
Входить могут любые! У вас массив заполняется рандомно, т.е случайно!
Помог - жми на весы!
ByAlex89@mail.ru |
28.12.2011, 13:43 | #10 |
Новичок
Джуниор
Регистрация: 26.12.2011
Сообщений: 30
|
а по условию как это понять? не решая...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Random. отрицательные и положительные числа | Seran4ek | Общие вопросы Delphi | 10 | 18.03.2014 22:16 |
Ошибка 26..как её ипсправить в данной программе | Klik_1602 | Помощь студентам | 2 | 24.02.2011 21:53 |
как ввести с клавиатуры двузначные и отрицательные числа - Assembler | Варвара | Помощь студентам | 5 | 20.12.2009 14:29 |
Почему не вводит в поток??? | girkoff | Общие вопросы C/C++ | 1 | 07.11.2009 14:27 |
Почему не отбрасывает отрицательные ??? | pavel42 | Помощь студентам | 3 | 29.04.2009 17:48 |