Вычислить среднее арифметическое чисел - Lisp

Формулировка задачи:

Используя управляющую конструкцию DO, вычислить среднее арифметическое чисел 0.1+0.25+...+15.1. Листинг:

                    Листинг программы
                
(defun avsum()
  (do ((i 0 (1+ i))
     (cur 0.1 (+ 0.25 cur)))   
    ((> cur 15.1) (/ cur i))    
  )
)

как вывести последовательность всех чисел вплоть до 15.1, примерно 0.1+0.25+0.40+0.55 и тд, до 15.1

Решение задачи: «Вычислить среднее арифметическое чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
(defun avsum()
  (do ((i 0 (1+ i))
       (cur 0.1 (+ 0.25 cur)))   
      ((> cur 15.1) (/ cur i)) (princ cur) (princ '+)))
AVSUM
 
CL-USER 4 > (avsum)
0.1+0.35+0.6+0.85+1.1+1.35+1.6+1.85+2.1+2.35+2.6+2.85+3.1+3.35+3.6+3.85+4.1+4.35+4.6+4.85+5.1+5.35+5.6+5.85+6.1+6.35+6.6+6.85+7.1+7.35+7.6+7.85+8.1+8.35+8.6+8.85+9.1+9.35+9.6+9.85+10.1+10.35+10.6+10.85+11.1+11.35+11.6+11.85+12.1+12.35+12.6+12.85+13.1+13.35+13.6+13.85+14.1+14.35+14.6+14.85+15.1+
0.25163934

Оцени полезность:

8 голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы