IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на поиск значений в матрице
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Добрый вечер. Вот тут подкинули задачку:

Написать программу, которая в прямоугольной матрице NxM действительных чисел находит максимальное значение из минимальных значений столбцов и минимальное значение из максимальных значений строк (max(j)(min(i)(Aij)) и min(i)(max(j)(Aij)))

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

Но это еще не все, самое непонятное то, что нужно чтобы данные этой программы читались из файла%/ что это такое я не понимаю, но такое вот было требование. Объясните, пожалуйста, что это и с чем едят.


function poisk_max(ma:integer):integer;
var
mb,max:integer;
begin
mb:=0; {poisk max v stroke "ma"}
max:=dmas[0,ma];
while not(mb=n) do
begin
if (dmas[mb,ma]>=max) then
max:=dmas[mb,ma];
mb:=mb+1;
end;
poisk_max:=max;
end;

function poisk_min:integer;
var
mina,min:integer;
begin
mina:=0;
min:=results[mina];
while not(mina=n) do {ischet min v massive "results"}
begin
if (results[mina]<=min) then
min:=results[mina];
mina:=mina+1;
end;
poisk_min:=min;
end;

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 11.08.2022 22:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name