Micro Lisp. Основные понятия, структуры и функции. Яшин Л.З. - 40 стр.

                                  40

(begin (newline)
       (display "Введите исходные данные:")
       (newline))

(princ "-------------------------------------")
(newline)
(princ "Начало интервала: ")
(define a)
(set! a (read))

(princ "Конец интервала : ")
(define b)
(set! b (read))

(begin (newline)
       (display "Что будем задавать для вычисления:")
       (newline)
       (display "1. Количество частей разбиения")
       (newline)
       (display "2. Шаг интегрирования")
       (newline)
       (display "Ваш выбор (1/2): "))

(define kod)
(set! kod (read))


;(cond   ((=   kod 1) (princ "Количество частей разбиения: "))
;        ((=   kod 2) (princ "Шаг интегрирования: ")))
(if (=   kod   1) (princ "Количество частей разбиения: "))
(if (=   kod   2) (princ "Шаг интегрирования: "))

(define h1)
(set! h1 (read))

;шаг интегрирования
(define h)
(if (= kod 1) (set! h (/ (- b a) h1)) (set! h h1))


(newline)
(princ "-------------------------------------")
(newline)

;функция
(define (f1 x)     (/
                        (log x)
                         (*
                           x
                            (sqrt (+ 1 (log x) ) )
                         )
                    )
)

;суммирование
(define (integ a b h)
        (cond ((< b a) 0)
                (t (+ (*(f1 b) h) (integ a (- b h) h) ))))

(display "Значение интеграла: ")
(writeln (integ a b h))