Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2009, 20:12   #1
chemistrick
 
Регистрация: 09.11.2009
Сообщений: 3
По умолчанию Pascal задача с матрицей

найти в каждой строке матрицы максимальный правый элемент и поменять его местами с последним элементом строки вывести на печать последний столбец. В общем и целом не получается найти максимальный правый элемент, просто максимальный пожалуйста а правый никак плиз Хелп заранее спасибо!!!!!

Последний раз редактировалось chemistrick; 10.12.2009 в 20:14.
chemistrick вне форума Ответить с цитированием
Старый 10.12.2009, 20:31   #2
ManU
Пользователь Подтвердите свой е-майл
 
Аватар для ManU
 
Регистрация: 30.04.2008
Сообщений: 78
По умолчанию

А что значит максимальный правый элемент строки?
Пример:
Матрица 5х5
Если правый относительно центрального элемента строки, то просто сравниваешь 4 и 5 элементы.
В этом смысле максимальный правый?
ManU вне форума Ответить с цитированием
Старый 10.12.2009, 21:17   #3
chemistrick
 
Регистрация: 09.11.2009
Сообщений: 3
По умолчанию

нет предположим у нас матрица 5*3 :
1 8 5 8 6---------------------------------1 8 5 6 8
2 59 7 -2 8 должно получиться вот так : 2 8 7 -2 59
7 8 13 9 6--------------------------------7 8 6 9 13
надо в каждой строке матрицы максимальный правый Элемент поменять с последним элементом этой строки ! как на примере в 1 строке 2 мах я поменял самый правый вот
chemistrick вне форума Ответить с цитированием
Старый 11.12.2009, 09:29   #4
ManU
Пользователь Подтвердите свой е-майл
 
Аватар для ManU
 
Регистрация: 30.04.2008
Сообщений: 78
По умолчанию

Код:
i:=0;
repeat
max:=mas[i,0];
k:=0;
for j:=1 to m do
begin
if mas[i,j]>max then
begin
max:=mas[i,j];
end;
k:=k+1;
end;
mas[i,k]:=mas[i,j];
mas[i,j]:=max;
i:=i+1;
until i>n;
ManU вне форума Ответить с цитированием
Старый 12.12.2009, 17:08   #5
chemistrick
 
Регистрация: 09.11.2009
Сообщений: 3
По умолчанию

большое спасибо очень помог теперь все работает !!!)))
chemistrick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача с матрицей bonys91 Помощь студентам 1 02.04.2009 20:02
Задача с матрицей Kawun Помощь студентам 9 26.03.2009 00:29
Помогите с матрицей PASCAL ANARHIST Помощь студентам 6 03.07.2008 18:12
Задача с матрицей H[o][o]K Помощь студентам 1 15.12.2007 16:51