|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2012, 18:39 | #1 |
Регистрация: 08.04.2012
Сообщений: 5
|
Одномерный массив (среднегеометрическая сумма каждого третьего элемента промежутка массива)
Помогите пожалуйста не могу написать условие ,чтобы он находил каждый третий элемент в промежутке второй четверти массива
(в целом массиве каждый третий элемент находится так if i mod 3=0 ) p:=1; k:=0; k1:=trunc(n/4); k2:=trunc(n/2); for i:=(k1+1) to k2 do begin k:=k+1; p:=p*x[i] end; If k>0 then If P>0 then Sg:=exp(1/k*ln(P)) else If p<0 then Sg:=-exp(1/k*ln(abs(P))) else Sg:=0; Write('Среднегеометрическое значение = ',Sg); writeln; Последний раз редактировалось Monry; 08.04.2012 в 19:25. |
08.04.2012, 19:39 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Чтобы проверить на каждый третий элемент отрезка:
if (i-k1) mod 3=0 then ...
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
08.04.2012, 19:57 | #3 |
Регистрация: 08.04.2012
Сообщений: 5
|
Спасибо большое)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
функция для обмена строк двумерного массива. Используя её, отсортировать массив по элементам третьего столбика ( С# ) | MaSTeD | C# (си шарп) | 0 | 13.12.2011 12:33 |
Одномерный массив(поиск элемента) | BLackJackxxx | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 29.04.2011 16:16 |
Одномерный массив. Вставка элемента. | Stwl3 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 09.01.2011 22:52 |
подсчет каждого элемента массива | счастливая | Помощь студентам | 1 | 26.05.2010 00:25 |
Сумма до мax положительного элемента массива | Отчаявшаяся | Помощь студентам | 2 | 16.11.2009 19:42 |