VPF::[Delphi]найти координаты всех седловых точек

HAS

Дата 14.6.2007, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Ing

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 1.3.2005
Где: Internet

Репутация: нет
Всего: 2

Задача :

Номер строки и столбцов всех седловых точек матрицы.
Примечание: Матрица А имеет седловую точку Аij, если Аij является минимальным элементом в i – той строке и максимальным в j – том столбце.

сделал так, но работает некорректно (((

Код


for j := 1 to High(arr) do
    begin
        max := arr[1,j];
        x := 0; y := j;
        for i := 1 to High(arr) do
            begin
                if max < arr[i,j] then max := arr[i,j]; x := i; y := j;
            end;
    min := arr[x,1];
    for k := 1 to High(arr) do
        if arr[x,k] < min then min := arr[x,k];
    if (min = max) then Label3.Caption := Label3.Caption + IntToStr(x) + '_' + IntToStr(y) + '_' + IntToStr(min);

Добавлено через 1 минуту и 18 секунд

Код


var    i,j :integer;
        min, max:integer;
        x, y : integer;
        arr : array[1..5,1..4] of integer;

Alexeis

Дата 14.6.2007, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

vlksm

Дата 19.6.2007, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 19.6.2007

Репутация: нет
Всего: нет

-----------------------
var    i,j :integer;
        min, max:integer;
        x, y : integer;
        arr : array[1..5,1..4] of integer;
        max_col:array[1..4] of integer;
        min_row:array[1..5] of integer;
s:string;
---------------------------------
begin

// найди max столбцов
for j := 1 to 4 do
    begin
        max := arr[1,j];x:=1;
        for i := 1 to 5 do
            begin
                if max <= arr[i,j] then
                begin
                max := arr[i,j];
                x := i;
                end;
            end;
   max_col[j]:=max;
   end;
// найди min строк

for i := 1 to 5 do
    begin
        min := arr[i,1];y:=1;
        for j := 1 to 4 do
            begin
                if min >= arr[i,j] then
                begin
                min := arr[i,j];
                y := j;
                end;
            end;
   min_row[i]:=min;
end;
// да и выводи себе... smile

for i := 1 to 5 do
for j := 1 to 4 do
if max_col[j]=min_row[i]
then
begin
s:='|('+intTostr(i)+','+IntToSTr(j)+')='+IntToStr(min_row[i]);
Label1.Caption := Label1.Caption +s;
end;
end;

vlksm

Дата 19.6.2007, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 19.6.2007

Репутация: нет
Всего: нет

// да и выводи себе...
for i := 1 to 5 do
for j := 1 to 4 do
if (max_col[j]=min_row[i]) and( arr[i,j]=min_row[i])
then
begin
s:='|('+intTostr(i)+','+IntToSTr(j)+')='+IntToStr(min_row[i]);
Label1.Caption := Label1.Caption +s;
end;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »