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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2011, 20:31   #1
semenova1304
Новичок
Джуниор
 
Регистрация: 18.12.2011
Сообщений: 2
Восклицание Подпрограммы!)

как вот это решить с подпрограммами?

вычислить суммы и количества элементов, находящихся в интервале от a до b для матриц X(10,8), Y(10,12)

никак не понимаю как это можно решить с подпрограммами. помогите пожалуйста
semenova1304 вне форума Ответить с цитированием
Старый 23.12.2011, 21:06   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Код:
function GetSum (mas: array of integer; const rows, cols: integer; const lowInt, highInt: integer): integer;
var
    i, j, sum: integer;
begin
    for i := 1 to rows do
        for j := 1 to cols do
            if mas[i,j] in [lowInt..highInt] then
                Inc(sum, mas[i,j])
    GetSum := sum
end;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подпрограммы!? nolx Помощь студентам 0 31.05.2010 18:53
Подпрограммы-процедуры, подпрограммы-функции в Pascal rishikesh Помощь студентам 19 18.05.2010 23:05
Подпрограммы в C# Doublefaced Помощь студентам 3 18.06.2009 21:19
подпрограммы Nightt Помощь студентам 0 18.06.2009 19:22