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

UptoLike

ВУЗ: 

МИРЭА | Москва

Составители: 

Рубрика: 

42
;шаг интегрирования
(define h)
(if (= kod 1) (set! h (/ (- b a) h1)) (set! h h1))
(newline)
(princ "-------------------------------------")
(newline)
;функция
(define (f1 x) (/(* (log x) (log x)) 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))
(newline)
;выход или нет
(begin (newline)
(display "Задать новые исходные данные [Y/N]: ")
)
(set! kod (read))
(if (eq? kod 'Y) (load "integ4.lsp"))
(if (eq? kod 'N) (print '_)) 
                                                  42

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


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

;функция
(define (f1 x) (/(* (log x) (log x)) 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))
(newline)

;выход или нет
(begin (newline)
      (display "Задать новые исходные данные [Y/N]: ")
)
(set! kod (read))
(if (eq? kod 'Y) (load "integ4.lsp"))
(if (eq? kod 'N) (print '_))

Страницы