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

UptoLike

ВУЗ: 

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

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

Рубрика: 

41
(newline)
;выход или нет
(begin (newline)
(display "Задать новые исходные данные [Y/N]: ")
)
(set! kod (read))
(if (eq? kod 'Y) (load "integ1.lsp"))
(if (eq? kod 'N) (print '_))
Вычислите значения интеграла:
x
x
2
ln
- подинтегральная функция
(begin (newline)
(display " ln
2
(x) ")
(newline)
(display "Подинтегральная функция f(x) = --------")
(newline)
(display " x ")
(newline))
(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)) 
                                                      41

    (newline)

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

Вычислите значения интеграла:

ln 2 x
       - подинтегральная функция
  x


    (begin (newline)
        (display "                              ln2(x) ")
        (newline)
        (display "Подинтегральная функция f(x) = --------")
        (newline)
        (display "                                  x ")
        (newline))

    (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))

Страницы