Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
pirab
0 / 0 / 0
Регистрация: 08.10.2017
Сообщений: 58
1

Цикл с суммой

17.04.2019, 22:36. Просмотров 1534. Ответов 3
Метки нет (Все метки)

Подскажите, пожалуйста, каким образом можно ещё реализовать данный пример, кроме как цикла по DO
0
Изображения
 
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2019, 22:36
Ответы с готовыми решениями:

Цикл с суммой
Уважаемые программисты форумчане, мне опять нужна помощь.:wall: Помогите сделать цикл с суммой,...

Цикл с суммой на ассамблере
Написать программу создающую массив из 6 чисел и вычисляющую выражение :...

Цикл с суммой всех чисел
http://rghost.ru/9460321/image.png Составить 3 варианта программ циклической структуры типа for,...

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать...

В заданной матрице поменять строку с минимальной суммой со строкой с максимальной суммой
помогите с кодом

3
Catstail
Модератор
24402 / 12338 / 2244
Регистрация: 12.02.2012
Сообщений: 20,051
18.04.2019, 06:57 2
Лучший ответ Сообщение было отмечено pirab как решение

Решение

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
26
(defun task (x p)
   (if (zerop p) 0 (+ (/ (^ x 4) (* 2 p)) (task x (- p 1)))))
 
==> TASK
 
(task 1 7)
 
==> 363/280
 
(defun task  (x p)
   (iter (for q from 1 to p) (summing (/ (^ x 4) (* 2 q)))))
 
==> TASK
 
(task 1 7)
 
==> 363/280
 
(defun task (x p)
  (apply '+ (mapcar (lambda (y) (/ (^ x 4) (* 2 y))) (range 1 p))))
 
==> TASK
 
(task 1 7)
 
==> 363/280
2
pirab
0 / 0 / 0
Регистрация: 08.10.2017
Сообщений: 58
18.04.2019, 19:37  [ТС] 3
Цитата Сообщение от Catstail Посмотреть сообщение
(if (zerop p) 0 (+ (/ (^ x 4) (* 2 p)) (task x (- p 1)))))
подскажите, а чем можно заменить zerop на попроще?
0
Catstail
Модератор
24402 / 12338 / 2244
Регистрация: 12.02.2012
Сообщений: 20,051
18.04.2019, 19:41 4
Лучший ответ Сообщение было отмечено pirab как решение

Решение



Lisp
1
2
(defun task (x p)
   (if (= p 0) 0 (+ (/ (^ x 4) (* 2 p)) (task x (- p 1)))))
0
18.04.2019, 19:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2019, 19:41

Определить разность между суммой модулей отрицательных элементов и суммой положительных
Написать программу, определяющую разность между суммой модулей отрицательных элементов и суммой...

В двумерном массиве поменять местами строку с максимальной суммой с минимальной суммой
Нам задали написать 2 различные проги для такого задания В двумерном массиве поменять местами...

Си. Задача на вычисление разности между суммой ряда и частичной суммой
Что-то не так. Помогите с решением :) #include <stdio.h> #include <locale.h> #include...


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

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

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