Определение седловых точек - Паскаль, Turbo Pascal, PascalABC.NET

orandzheviyman · 19.11.2013, 19:02

Дана целочисленная прямоугольная матрица, определить номера строк и столбцов всех её седловых точек.

Код:

uses crt;
const N=2; M=3;
type matA=array [1..N,1..M] of integer;
var max,min,i,j,K,L:integer;
    A,B,C:matA;

BEGIN
 for i:=1 to N do
 for j:=1 to M do
 read (A[i,j]);
 for L:=0 to (N-j) do
 for K:=0 to (M-j) do
   if A[i,j+K]<A[i,j] then
      B[i,j+K]:=A[i,j+K];
   if A[i+L,j]>A[i,j] then
      C[i+L,j]:=A[i+L,j];
   if (B[i,j]=C[i,j]) and (B[i,j]<>0) and (C[i,j]<>0) then
   writeln ('Znachenie sedlovoy tochki=', C[i,j], 'i=',i,'j=',j);
   end.

Помогите с кодом. Что нужно подправить, или совсем ужас?

ZX Spectrum-128 · 19.11.2013, 19:40

А в чем заключается помощь?
Вы и сами можете откомпилировать программу, запустить на выполнение, посмотреть результаты. Вручную решить задание и сравнить с результатом работы программы.

orandzheviyman · 19.11.2013, 19:59

Цитата:

Сообщение от ZX Spectrum-128

А в чем заключается помощь?
Вы и сами можете откомпилировать программу, запустить на выполнение, посмотреть результаты. Вручную решить задание и сравнить с результатом работы программы.

Компилировал - не выдало ничего. Прошу помощи в том, чтобы написать рабочий код.

ZX Spectrum-128 · 19.11.2013, 20:21

То есть при компиляции ошибок не было? Теперь запустите программу на выполнение. Данные желательно вводить те, которые были решены вручную.

orandzheviyman · 19.11.2013, 20:38

Цитата:

Сообщение от ZX Spectrum-128

То есть при компиляции ошибок не было? Теперь запустите программу на выполнение. Данные желательно вводить те, которые были решены вручную.

Ошибок небыло, просто программа ничего не выводит

ZX Spectrum-128 · 19.11.2013, 20:47

Ну так введите матрицу, в которой ТОЧНО ЕСТЬ седловая точка.

orandzheviyman · 19.11.2013, 21:24

Цитата:

Сообщение от ZX Spectrum-128

Ну так введите матрицу, в которой ТОЧНО ЕСТЬ седловая точка.

Всё равно ничего

ZX Spectrum-128 · 19.11.2013, 21:27

Какой компилятор паскаля?

orandzheviyman · 19.11.2013, 21:40

Цитата:

Сообщение от ZX Spectrum-128

Какой компилятор паскаля?

PascalABC, так код нормальный?

ZX Spectrum-128 · 19.11.2013, 21:44

Если вы правильно ввели правильные данные, то, боюсь, что код неверен. Прямо здесь, на форуме есть код нахождения седловой точки. Чуть ниже - похожие темы. Попробуйте другой код.

19.11.2013, 19:02	#1
orandzheviyman Пользователь Регистрация: 11.11.2013 Сообщений: 74	Определение седловых точек Дана целочисленная прямоугольная матрица, определить номера строк и столбцов всех её седловых точек. Код: `uses crt; const N=2; M=3; type matA=array [1..N,1..M] of integer; var max,min,i,j,K,L:integer; A,B,C:matA; BEGIN for i:=1 to N do for j:=1 to M do read (A[i,j]); for L:=0 to (N-j) do for K:=0 to (M-j) do if A[i,j+K]<A[i,j] then B[i,j+K]:=A[i,j+K]; if A[i+L,j]>A[i,j] then C[i+L,j]:=A[i+L,j]; if (B[i,j]=C[i,j]) and (B[i,j]<>0) and (C[i,j]<>0) then writeln ('Znachenie sedlovoy tochki=', C[i,j], 'i=',i,'j=',j); end.` Помогите с кодом. Что нужно подправить, или совсем ужас?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
С++ Поиск седловых точек	Tatyana64	Помощь студентам	5	08.12.2012 23:34
Поиск седловых точек в двумерном массиве	Артур_1993	Помощь студентам	4	28.11.2012 21:22
Определение координат точек на окружности	DDiKey	Помощь студентам	5	23.03.2012 21:11
матризы определить индексы всех ее седловых точек	Sylar9	Общие вопросы C/C++	2	06.01.2012 16:09
Нахождение седловых точек	ViNcHeStEr	Помощь студентам	4	08.04.2009 18:42

19.11.2013, 19:40	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	А в чем заключается помощь? Вы и сами можете откомпилировать программу, запустить на выполнение, посмотреть результаты. Вручную решить задание и сравнить с результатом работы программы.

19.11.2013, 20:21	#4
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	То есть при компиляции ошибок не было? Теперь запустите программу на выполнение. Данные желательно вводить те, которые были решены вручную.

19.11.2013, 20:47	#6
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Ну так введите матрицу, в которой ТОЧНО ЕСТЬ седловая точка.

19.11.2013, 21:27	#8
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Какой компилятор паскаля?

19.11.2013, 21:44	#10
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Если вы правильно ввели правильные данные, то, боюсь, что код неверен. Прямо здесь, на форуме есть код нахождения седловой точки. Чуть ниже - похожие темы. Попробуйте другой код.