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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2009, 19:17   #1
Mr_Frost
Пользователь
 
Регистрация: 10.03.2009
Сообщений: 14
По умолчанию матрицы Delphi

Доброго времени суток.
дана рандомная матрица А(nxm), нужно подсчитать кол-во и номера строк, элементы которых образуют монотонную последовательность.

как записать проверку на монотонность?
Mr_Frost вне форума Ответить с цитированием
Старый 07.04.2009, 20:24   #2
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

Монотонная, это одинаковая?
Тогда за число x бери первое число строки.
Создай цикл с количеством элементов в строке и сравнивай каждый элемент с x. Если все до последнего равны, то запиши номер строки и к сумме строк прибавь 1
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.
-HunteR- вне форума Ответить с цитированием
Старый 07.04.2009, 20:25   #3
Mr_Frost
Пользователь
 
Регистрация: 10.03.2009
Сообщений: 14
По умолчанию

монотонная - это возрастающая либо убывающая последовательность элементов

Последний раз редактировалось Mr_Frost; 07.04.2009 в 20:28.
Mr_Frost вне форума Ответить с цитированием
Старый 07.04.2009, 22:42   #4
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Если никто не напишет,то утром напишу.Сейчас не могу ибо с телефона
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 07.04.2009, 23:37   #5
-HunteR-
Форумчанин
 
Аватар для -HunteR-
 
Регистрация: 04.11.2007
Сообщений: 117
По умолчанию

Значит х вычеркни и сравнивай элемет с предыдущем, если к концу цикла они увеличиваются или уменьшаются, то далее я писал.
Совет: Составь блок-схему, легче будет. Или налей чайку и расслабься и мысли сами придут.
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой.
-HunteR- вне форума Ответить с цитированием
Старый 08.04.2009, 05:42   #6
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

монотонно возрастающая:
Код:
for j:=1 to m-1 do
A[i,j]<=A[i,j+1]
Убывающая аналогично.
Жми на весы!!!
Chudo4258 вне форума Ответить с цитированием
Старый 08.04.2009, 08:17   #7
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

Код:
for i:= 1 to n do begin
k:=0;
k1:=0;
for j:=1 to m-1 do begin
if A[i,j]<=A[i,j+1] then inc(k);
A[i,j]>=A[i,j+1]  then inc(k1);
end;
if (k=m-1) or (k1=m-1) then writeln('monotonnaya');
k:=0;
k1:=0;
end;
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 08.04.2009, 16:25   #8
Митяй
Новичок
Джуниор
 
Регистрация: 08.04.2009
Сообщений: 2
По умолчанию

Люди помогите решить задачи,очень срочно надо сдать,а я незнаю как делать

1)Используя for..to..do при роботе с масивами.Элементы массива ввести с клав.Вивести на экран результат расчетов, и начальный массив в виде матрицы.Для двухмерного массива Р(4*4),что состоит с элементов целого типа:а)найти разницу элементов главной диагонали меньших чем число А(ввести с клав.).б)вивести на экран элементы главной диагонали.

2)Составить программу,которая состоит из подпрограммы-функции.Для одномерных массивов T,P,A,которые состоят из 10 элементов целого типа,найти произведение не парных элементов.

3)Составить програму которая состоит из 2 подпрограмм-процедуры.Для одномерных массивов V и G,что состоят из 10
действительных чисел,найти разницу первых 5 и суму последних 5 элементов.
Митяй вне форума Ответить с цитированием
Старый 08.04.2009, 20:10   #9
Mr_Frost
Пользователь
 
Регистрация: 10.03.2009
Сообщений: 14
По умолчанию

спасиб вам ребят за помощь... прога нормально работает..
вот я теперь задумал это оформить в виде подпрограммы, т.е что бы факт монотонности определялся в подпроге.. как получше записать функцию?

p.s.
митяй, тему отдельно создать не пробовал?!?
Mr_Frost вне форума Ответить с цитированием
Старый 08.04.2009, 20:14   #10
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

пишешь логическую функцию в которую передаешь имя матрицы номер строки а на выходе получаешь либо true либо false ! тело у тебя есть осталось шапку только написать!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»

Последний раз редактировалось IT-man; 08.04.2009 в 20:18.
IT-man вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрицы Delphi Skarabei Помощь студентам 3 07.04.2009 17:14
Матрицы в Delphi SlevinVik Помощь студентам 1 02.04.2009 22:19
Симетричность матрицы в delphi neomaximus Помощь студентам 9 30.03.2009 15:38
Матрицы (Delphi) Darkstar Помощь студентам 6 23.11.2008 19:29
[Delphi]Матрицы $TuDenT Помощь студентам 2 27.10.2008 08:28