|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.04.2011, 04:02 | #1 |
Пользователь
Регистрация: 03.06.2009
Сообщений: 13
|
Произведение элементов массива в функции (передача массива в функцию) (Delphi)
Нужно сделать следующую вещь: пройтись по элементам массива, каждый возвести в квадрат, и перемножать их (элементы). Так делаю (на Паскале)
const C: array[1..4] of real = (1,2,3,4); function CountMass(arr: array of real): real; var n: integer; op: real; i: integer; begin op := 1; for i := 1 to 4 do op := arr[i] * arr[i] * op; CountMass:= op; end; begin WriteLn(CountMass(c)); readln; end. Выдается нулевой результат. В чем дело? |
23.04.2011, 04:42 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
> В чем дело?
в индексации. Открытые массивы индексируются с 0.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Произведение элементов массива [Паскаль] | Анна22 | Помощь студентам | 2 | 06.12.2010 23:57 |
Сумма и произведение элементов массива, удовлетворяющих условию (генерация float массива) | felodese | Помощь студентам | 1 | 11.11.2010 20:52 |
Сумма и произведение элементов массива | Zid@ne | Общие вопросы C/C++ | 5 | 23.12.2008 19:22 |
Произведение элементов массива | gamer123 | Помощь студентам | 5 | 19.01.2008 22:02 |