"Алгебраическое выражение СуммаСумма"


Страницы: 1
Пользователь: slivka
Сообщений: 4
Статус: Незримый
Зарегистрирован:
27 ноября 2008, 4:56
Был:30 ноября 2008, 18:02
slivka
smsup 		Дата: 27 ноября 2008, 5:27 Сообщение № 1
Алгебраическое выражение Сумма(i=1 до n)Сумма(j=1 до n) (i+j)
Пользователь: slivka
Сообщений: 4
Статус: Незримый
Зарегистрирован:
27 ноября 2008, 4:56
Был:30 ноября 2008, 18:02
slivka
smsup 		Дата: 27 ноября 2008, 5:28 Сообщение № 2
(defun summa (n)
(setq result 0)
(Do ((i 1 (+ 1 i)))
((= i n) result)
(Do ((j 1 (+ 1 j)))
((= j n) result)
(setq result (+ result i j))
)))

Страницы: 1