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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.11.2014, 22:39   #1
Morozik01
Новичок
Джуниор
 
Регистрация: 17.11.2014
Сообщений: 2
Восклицание

в данных действительных матрицах размера n*m и k*l поменять местами строку содержащую элемент с наибольшим значением, со строкой,содержащей элемент с наименьшим значением . Предпологается что эти элементы единственны.

в данных действительных матрицах размера n*m и k*l поменять местами строку содержащую элемент с наибольшим значением, со строкой,содержащей элемент с наименьшим значением . Предпологается что эти элементы единственны.

Последний раз редактировалось Stilet; 17.11.2014 в 23:11.
Morozik01 вне форума
Старый 17.11.2014, 23:05   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

и ?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума
Старый 17.11.2014, 23:17   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
в данных действительных матрицах размера n*m и k*l
Код:
var 
 a:array[1..n,1..m] of double;
 b:array[1..k,1..l] of double;
Где n,m,k,l - обьявишь в секции const
Цитата:
поменять местами строку
Чьерт побьери, без ввода? Ну ладно.
Цитата:
содержащую элемент с наибольшим значением
Его есчо нужно найти:
Код:
var i,j,im,jm,ie,j,:integer;
...
for i:=1 to n do for j:=1 to m do 
 if(a[i,j]>a[im,jm]) or ((i=1) and (j=1)) then begin im:=i;jm:=j; end else
  if(a[i,j]<a[ie,je]) or ((i=1) and (j=1)) then begin ie:=i;je:=j; end;
Теперь в a[im,jm] максимальный матрицы а в a[ie,je] минимальный Можно менять:
Код:
var v:double;

for j:=1 to m do begin
 v:=a[im,j]; a[im,j]:=a[jm,j]; a[jm,j]:=v;
end;
То же самое для матрицы "b"
Идея ясна?
I'm learning to live...
Stilet вне форума
Старый 18.11.2014, 19:10   #4
Morozik01
Новичок
Джуниор
 
Регистрация: 17.11.2014
Сообщений: 2
По умолчанию 111

Спасибо!!!!!!!!!!
Morozik01 вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44