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

Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю

23.12.2015, 12:39. Показов 1282. Ответов 9

Дана матрица А(4,4).
Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю.

Программу написал, но почему-то иногда решает правильно, иногда нет.
В чем моя ошибка?

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
program mtrica;
uses crt;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
for i:=1 to n-1 do
for j:=1 to n-1 do
if (a[i,j]>min) and (a[i,j]<0) then min:=a[i,j];
writeln (min);
readkey;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2015, 12:39
Ответы с готовыми решениями:

Найти максимальный элемент среди отрицательных элементов матрицы , расположенных над побочной диагональю
14. Дана матрица А(4,4) 1. Найти максимальный элемент среди отрицательных элементов матрицы,...

Найти наибольшее значение из элементов, расположенных над и под побочной диагональю матрицы
Дана дейсвительная квадратная матрица порядка n*n. Найти наибольшее значение из элементов,...

Найти максимальный элемент среди элементов, находящихся над главной диагональю
Написать программу которая для массива А(6,6) находит максимал элемент среди элементов находящихся...

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

9
Хитрая блондиночка $)
1469 / 984 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
23.12.2015, 12:51 2
Цитата Сообщение от coratnik Посмотреть сообщение
for i:=1 to n-1 do
for j:=1 to n-1 do
А может лучше так?:
Pascal
1
2
3
for i:=1 to n-1 do
for j:=1 to n-i do
...
0
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 43
23.12.2015, 13:22  [ТС] 3
Цитата Сообщение от Hikari Посмотреть сообщение
А может лучше так?:
PascalВыделить код
1
2
3
for i:=1 to n-1 do
for j:=1 to n-i do
...
не помогло
0
Хитрая блондиночка $)
1469 / 984 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
23.12.2015, 14:05 4
Не знаю. Я проверила - все правильно. Проходит только по элементам верхнего левого треугольника.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
23.12.2015, 15:17 5
Цитата Сообщение от coratnik Посмотреть сообщение
min:=a[1,1];
Вы неверно предположили что элемент a[1,1] - отрицательный...
подправил...
Кликните здесь для просмотра всего текста
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
program mtrica;
uses crt;
const n=4;
var a:array [1..n,1..n] of integer;
    i,j,max:integer;
    f:boolean;
begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(51)-25;
     write(a[i,j]:4);
    end;
   writeln;
  end;
f:=false;
for i:=1 to n-1 do
 for j:=1 to n-i do
  begin
   if (a[i,j]<0) 
    then 
     begin
      if not f then begin max:=a[i,j];f:=true end
               else
                if a[i,j]>max then max:=a[i,j]
     end           
  end;  
if f then writeln(max)
     else writeln('нет отрицательных выше побочной диагонали');
readkey;
end.

зы поиск максимального, а переменную назвали min?
1
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 43
23.12.2015, 15:56  [ТС] 6
vint-81, Спасибо!

Добавлено через 27 минут
vint-81, а как в этой же программе подсчитать сумму для элементов 3-го столбца по формуле?

https://www.cyberforum.ru/cgi-bin/latex.cgi?S=Sin(\sum_{i=1}^{4}{a}_{i3}+3*{a}_{23})
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
23.12.2015, 16:21 7
Цитата Сообщение от coratnik Посмотреть сообщение
...как в этой же программе подсчитать сумму для элементов 3-го столбца по формуле?
по этой формуле сумму элементов 3 столбца не подсчитать...
Pascal
1
2
sum3:=0;
for i:=1 to n do sum3:=sum3+a[i,3];
ps и не только в этой программе

Добавлено через 8 минут
а по формуле:
Pascal
1
2
s:=sin(sum3+3*a[2,3]);
write(s:0:3);
0
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 43
23.12.2015, 16:55  [ТС] 8
Цитата Сообщение от vint-81 Посмотреть сообщение
по этой формуле сумму элементов 3 столбца не подсчитать...
а вот так не правильно?

for j:=1 to n do
begin
s1:=0;
for i:=1 to n do
s1:=s1+a[i,3];
end;
s:=sin(s1+3*a[2,3]);
write(s);
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
23.12.2015, 17:06 9
Цитата Сообщение от coratnik Посмотреть сообщение
а вот так не правильно?
правильно... 4 раза...
зы var s:real;
0
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 43
23.12.2015, 18:36  [ТС] 10
vint-81, выходит ошибка exitcode 1
program mtrica;
uses crt;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,s1,max:integer;
s:real;
f:boolean;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
end;
writeln;
end;
f:=false;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[i,j]<0) then
begin
if not f then
begin
max:=a[i,j];
f:=true end else
if a[i,j]>max then max:=a[i,j]
end;
end;
if f then writeln ('max element', max) else
writeln ('net otricatelbIx');
for j:=1 to n do
begin
s1:=0;
for i:=1 to n do
s1:=s1+a[i,3];
end;
s:=sin(s1+3*a[2,3]);
write(s);
readkey;
end.

Добавлено через 11 минут
Все, нормально решает. Антивирусник блокировал
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2015, 18:36
Помогаю со студенческими работами здесь

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

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

Найти максимальный элемент среди отрицательных элементов массива C
дан массив C(12). Найти максимальный элемент среди отрицательных элементов массива C . определить...

Найти максимальный элемент массива среди отрицательных элементов
в массиве Х(3,5; -7,4; -1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальный элемент...


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

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

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