Вычислить сумму ряда

@Елена90 · Регистрация: 16.04.2012

Студворк — интернет-сервис помощи студентам

помогите решить задачи! Задача1. Для произвольных a, b,c найти решение уравнения ax*x + bx +c =0. Задача2. Вычислить сумму ряда к=1 до n и сам ряд (-1)^(k-1)*(2n)^3. Срочно надо, плииз!!!

@Nameless One · 07.05.2012, 10:17

Елена90, почти правильно:

Lisp
1
2
3
4
5
6
(defun f (k)
  (let ((a 1)
        (s 0))
    (dotimes (n k s)
      (setq s (+ s (* a (expt (* 2 (+ n 1)) 3))))
      (setq a (- a)))))

@Елена90 · 07.05.2012, 10:28 **[ТС]**

Спасибулички большое!!!!!

@Catstail · 07.05.2012, 10:32

Аргумент функции должен быть не n, а k

@Елена90 · 07.05.2012, 10:35 **[ТС]**

т.е. n у нас от 1 до k

@Catstail · 07.05.2012, 10:38

Да (это я про скрин-шот).

Вот код:

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 sum (k)
 (let ((a 1) (s 0))
  (setq s 0)
  (setq a 1)
  (dotimes (n k s)
    (setq s (+ s (* a (^ (* 2 (+ n 1)) 3))))
    (setq a (- a))
  )))
 
==> sum
 
(sum 15)
 
==> 14848
 
(sum 16)
 
==> -17920
 
(sum 17)
 
==> 21384
 
(sum 19)
 
==> 29600

@Елена90 · 07.05.2012, 10:51 **[ТС]**

Добавлено через 13 секунд
Спасиб!

Добавлено через 10 минут
А зачем используется описание a и s 2 раза? (т.е. зачем let и setq)

@Catstail · 07.05.2012, 11:58

О! Вы совершенно правы! Забыл выкинуть. Оставьте только let!

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Елена90 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 24

	Вычислить сумму ряда 16.04.2012, 13:26. Показов 5356. Ответов 46 Метки нет (Все метки) помогите решить задачи! Задача1. Для произвольных a, b,c найти решение уравнения axx + bx +c =0. Задача2. Вычислить сумму ряда к=1 до n и сам ряд (-1)^(k-1)(2n)^3. Срочно надо, плииз!!! 0

@Елена90 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 24
	07.05.2012, 10:28 [ТС]
	Спасибулички большое!!!!! 0

@Catstail Супер-модератор 38228 / 21160 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	07.05.2012, 10:32
	Аргумент функции должен быть не n, а k 1

@Елена90 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 24
	07.05.2012, 10:35 [ТС]
	т.е. n у нас от 1 до k 0

@Елена90 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 24
	07.05.2012, 10:51 [ТС]
	Добавлено через 13 секунд Спасиб! Добавлено через 10 минут А зачем используется описание a и s 2 раза? (т.е. зачем let и setq) 0

@Catstail Супер-модератор 38228 / 21160 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	07.05.2012, 11:58
	О! Вы совершенно правы! Забыл выкинуть. Оставьте только let! 1