Найти min и max в тех строках и столбцах матрицы, которые упорядочены

@FRAY777 · Регистрация: 15.07.2010

Студворк — интернет-сервис помощи студентам

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

програаму написал и модуль исползовал, но где то ошибка не могу найти: максимальный выводит вроде норм, а вот минимальный....помогите пожалуйста...
ПРОГРАММА

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program nj;
uses modul20;
var y:integer;
begin
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
read (a[i,j]);
readln;
end;
 maxx(a,h,o);
y:=o;
 minn(a,e,o);
o:=y+o;
if o=2 then write('uporadochenix ctrok i ctolbsov = 0')
else write('max=',h,'   ','min=',e);
readln;
end.

МОДУЛЬ

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
unit modul20;
interface
type oo=array[1..20] of integer;
pp=array [1..20,1..20] of integer;
var i,j,n,m,r,o,p,k,s,h,e:integer;
max,min:oo;
a:pp;
procedure maxx(aa:pp; var h,o:integer);
procedure minn(aa:pp; var e,o:integer);
implementation
procedure maxx;
var g:integer;
begin
j:=1;
k:=0;
p:=0;
s:=0;
g:=1;
for i:=1 to n do
begin
while j<=m-1 do
begin
if aa[i,j]>=aa[i,j+1]
then p:=p+1
else k:=k+1;
j:=j+1;
end;
if k=m-1 then
begin
max[g]:=aa[i,m];
g:=g+1;
r:=g;
end
else if p=m-1 then
begin
max[g]:=aa[i,1];
g:=g+1;
r:=g;
end
else s:=s+1;
k:=0;
p:=0;
j:=1;
end;
if s=n then o:=1;
h:=max[1];
for g:=1 to r-1 do
if h<max[g] then h:=max[g];
end;
procedure minn;
var c:integer;
begin
s:=0;
k:=0;
p:=0;
i:=1;
c:=1;
r:=o;
for j:=1 to m do
begin
while i<=n-1 do
begin
if aa[i,j]>=aa[i+1,j]
then p:=p+1
else k:=k+1;
i:=i+1;
end;
if k=n-1 then
begin
min[c]:=aa[1,j];
c:=c+1;
r:=c;
end
else if p=n-1 then
begin
min[c]:=aa[n,j];
c:=c+1;
r:=c;
end
else s:=s+1;
k:=0;
p:=0;
i:=1;
end;
if s=m then o:=1;
e:=min[1];
for c:=1 to r-1 do
if e>min[c] then e:=min[c];
end;
end.

Добавлено через 12 часов 53 минуты
кто нибудь поможет???

Добавлено через 7 часов 7 минут
ну кто нибудь поможет?мне завтра её сдаввать,а ошибку найти не могу...

@Puporev · 21.07.2010, 05:49

Текст модуля

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
unit modul20;
interface
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure maxx(a:matr;n,m:byte;var mx:integer);
procedure minx(a:matr;n,m:byte;var mn:integer);
implementation
procedure maxx;
var i,j,k,u:byte;
begin
mx:=-maxint;
k:=0;
for i:=1 to n do
 begin
  u:=0;
  for j:=2 to m-1 do
  if ((a[i,j]<a[i,j-1])and(a[i,j]<a[i,j+1]))
  or((a[i,j]>a[i,j-1])and(a[i,j]>a[i,j+1]))then
   begin
    u:=1;{не упорядочена строка}
    break;
   end;
  if u=0 then
   begin
    k:=1;{есть упорядоченная строка}
    for j:=1 to m do
    if a[i,j]>mx then mx:=a[i,j];
   end;
 end;
write('Максимальный элемент в упорядоченных строках: ');
if k=0 then writeln('0')
else writeln(mx);
end;
procedure minx;
var i,j,k,u:byte;
begin
mn:=maxint;
k:=0;
for j:=1 to m do
 begin
  u:=0;
  for i:=2 to n-1 do
  if ((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then
   begin
    u:=1;{не упорядочен столбец}
    break;
   end;
  if u=0 then
   begin
    k:=1;{есть упорядоченный столбец}
    for i:=1 to n do
    if a[i,j]<mn then mn:=a[i,j];
   end;
 end;
write('Минимальный элемент в упорядоченных столбцах: ');
if k=0 then writeln('0')
else writeln(mn);
end;
end.

Текст программы

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
uses crt,modul20;
var a:matr;
    m,n,i,j:byte;
    max,min:integer;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите ',n*m,' целых чисел, не равных 0:');
for i:=1 to n do
for j:=1 to m do
repeat
read(a[i,j]);
until a[i,j]<>0;{вводим пока не ноль, чтобы не было нолей в матирице}
readln;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
maxx(a,n,m,max);
minx(a,n,m,min);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем