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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2018, 17:49   #1
OnEDooM
 
Регистрация: 18.12.2018
Сообщений: 5
Печаль

Помогите Создать программу, использующую подпрограмму-функцию. Функция должна возвращать сумму элементов каждого столбца матрицы X(m,n), имеющих значения в интервале Min…Max

У меня есть решение, но ответ он выводит один и тот же . В чем проблема, помогите
Вложения
Тип файла: rar pro.rar (193.2 Кб, 22 просмотров)

Последний раз редактировалось Аватар; 18.12.2018 в 17:55.
OnEDooM вне форума Ответить с цитированием
Старый 18.12.2018, 17:59   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Проблема в том, что функция считает сумму по все матрице. Нет никаких "каждого столбца". Вы сами не видите два цикла в функции?
p51x вне форума Ответить с цитированием
Старый 19.12.2018, 20:19   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

А ежели так:
Код:
Function sumcol(nstr,ncol: integer ; VMin,Vmax: Extended; var Sum: Extended) : Boolean ;
var i: integer ; tmp: Extended ;
Begin
  Sum :=0 ; Result := True ;
  for i := 1 to nstr do
     begin
        tmp := My_array[i,ncol] ;
        if (tmp < Mmin) or (tmp > Vmax) then
          begin Result := False ; Break end
          else Sum := Sum + tmp
     end ;
end ;

Последний раз редактировалось digitalis; 19.12.2018 в 21:03.
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа использующая функцию.(Паскаль) Aniss Помощь студентам 1 24.11.2012 19:34
Написать подпрограмму функцию qtinux Фриланс 13 15.02.2010 23:25
Программа, использующая хуки anGeee Win Api 1 11.12.2009 20:59
(Паскаль) Составить программу, использующую подпрограмму-функцию Викуська_ Помощь студентам 6 21.04.2009 23:32
Программа использующая записи (тип данных) GN_ Общие вопросы Delphi 6 13.01.2007 19:16