Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
C/man
3 / 3 / 0
Регистрация: 29.05.2012
Сообщений: 44
1

Задача на подсчет произведения

22.10.2012, 21:44. Просмотров 671. Ответов 1
Метки нет (Все метки)

Необходимо разработать итерационный вариант программы в императивном стиле для решения предложенной задачи. 1) Подсчитывать произведение всех нечетных элементов списка (по месту нахождения). 2) Подсчитывать произведение всех четных элементов списка (по месту нахождения)


>(name ‘(1 2 3 4 5))
15
>(nameс ‘(1 2 3 4 5))
8

Кто сможет помогите сделать, т.к. у самого идей особо нет...
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2012, 21:44
Ответы с готовыми решениями:

Подсчет произведения в таблице
Есть таблица <table> <tr> <td><strong>Service</strong></td> ...

Подсчет произведения положительных чисел
Ребят кто может помочь ? Составить программу подсчета произведения положительных чисел, входящих в...

Подсчет произведения цифр числа, делящегося на 3
помогите пожалуйста с прогой вот условие:Написать программу подсчета произведения цифр числа,...

подсчет произведения элементов строки в матрице
Помогите сделать задание: Дана действительная матрица размера m*n. Вывести матрицу на экран....

Подсчет количества, суммы и произведения нечетных отрицательных чисел
помогите сделать подсчет количества, суммы и произведения нечетных отрицательных чисел

1
Catstail
Модератор
24610 / 12517 / 2285
Регистрация: 12.02.2012
Сообщений: 20,343
22.10.2012, 21:56 2
Вот:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(defun prod-odd (x)
 (let ((p 1) (q 1))
      (dolist (i x p)
         (when (> q 0) (setq p (* p i)))
         (setq q (- q))
      )))
 
==> prod-odd
 
(prod-odd '(1 2 3 4 5))
 
==> 15
 
(defun prod-even (x)
 (let ((p 1) (q 1))
      (dolist (i x p)
         (when (< q 0) (setq p (* p i)))
         (setq q (- q))
      )))
 
==> prod-even
 
(prod-even '(1 2 3 4 5))
 
==> 8
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2012, 21:56

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

Подсчет произведения всех элементов массива (цикл и рекурсия)
#include &lt;iostream&gt; #include &lt;conio.h&gt; #include &lt;cmath&gt; using namespace std; unsigned long long...

Подсчет произведения элементов матрицы, значения которых кратны 3
Составить программу для подсчета произведение ячеек двумерной целочисленной таблицы В, что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru