jaKrevedko Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 1)  y=(2/1)+(4/3)+(6/5)+..+(s/s-1) Код:   (defun func4(s)   (do ((sum 0))((s<= 2) sum)   (setq sum (+ sum (/ s (- s 1))) )   (setq s (+ s 2) )) (func4 10) ;//вызов   Куда лыжи не едут? Всего записей: 84 | Зарегистр. 23-10-2007 | Отправлено: 13:28 05-06-2013 | Исправлено: jaKrevedko, 13:30 05-06-2013

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Лисп

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование