Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 RSS
←   Май 2005   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.942 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 58
от 21.05.2005, 22:10

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 2

Вопрос № 20954: Уважаемые эксперты, помогите решить следующую задачку: Дан массив А[1..n,1..m] Найти седловую точку массива, либо установить ее отсутствие (Седловая точка - элемент, максимальный в своем столбце и минимальный в своей строке)...

Вопрос № 20954
Уважаемые эксперты, помогите решить следующую задачку:
Дан массив А[1..n,1..m] Найти седловую точку массива, либо установить ее отсутствие (Седловая точка - элемент, максимальный в своем столбце и минимальный в своей строке)
Отправлен: 16.05.2005, 22:04
Вопрос задал: Lonelywolf (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: Malish
Здравствуйте, Lonelywolf!
Я рассуждаю что точка одна. Если надо по другому, напиши исправим. И если что-то не понятно тоже напиши.
uses crt;
const n=3;
m=2;
type
Sedlov = record
Stroka:integer;
Stolbec:integer;
end;
var
A : array [0..n,0..m] of integer;
i,j : integer;
min, max : integer;
S:Sedlov;
flag:boolean;
begin
clrscr;
A[0][0]:=3;
A[0][1]:=2;
A[0][2]:=4;
A[1][0]:=7;
A[1][1]:=10;
A[1][2]:=11;
A[2][0]:=12;
A[2][1]:=14;
A[2][2]:=14;
A[3][0]:=16;
A[3][1]:=17;
A[3][2]:=18;
for i:=0 to n do
begin
for j:=0 to m do
write(A[i][j],' ');
writeln;
end;
{//////////////////////////////////////////////////}
flag:=true;
max:=0;
for j:=0 to m do
begin
for i:=0 to n do
begin
if A[i][j]>max then
begin
max:=A[i][j];
S.Stroka:=i;
S.Stolbec:=j;
end;
end;
for i:=0 to m do
begin
if A[S.Stroka][i] begin
flag:=false;
end;
end;
if flag=true then
writeln('Sedlovaya tochka : = ',max,' ', S.Stroka,'/',S.Stolbec);
end;
readln;
end.
Ответ отправил: Malish (статус: Студент)
Отправлен: 17.05.2005, 00:08
Отвечает: sir henry
Здравствуйте, Lonelywolf!
А нет ли здесь некоего логического противоречия? Если Вы нашли точку, то как она может отсутствовать? :)
Вы не знаете как искать максимальный или минимальный элемент? Поверьте, это не имеет отношение к Паскалю, это чистая алгоритмика. Поэтому пожалуйста, уточните вопрос:
- Вам нужен алгоритм поиска или
- Вам нужена реализация алгоритма поиска на Паскале, а сам алгоритм Вы уже знаете.
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 17.05.2005, 05:49

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Другие рассылки этой тематики 		Отписаться
Вспомнить пароль
В избранное