Форум программистов, компьютерный форум, киберфорум
CLIPS
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.02.2019
Сообщений: 1
1

Найти ошибку в функции CLIPS

10.11.2020, 13:41. Показов 355. Ответов 0
Метки нет (Все метки)

Здравствуйте, необходимо определить функцию на CLISP. Задание во вложении, код, который есть на данный момент, но в нем ошибка:
Код
(deffunction fun_new ()
    (printout s "parametr x: ")
    (bind ?x (read))
    (if (not (numberp ?x)) then (printout s "x is not a number" crlf)
        else 
            (bind ?y (if (< ?x 0) then (/ (* (cos (abs ?x)) (** ?x 2))
             else (if (> ?x 3.14159265358) then (/ ?x (** sin 2) ?x)) 
                 else (sin (** ?x 2))))
                 (printout s "y = " ?y crlf)
                 )))))
0
Миниатюры
Найти ошибку в функции CLIPS  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2020, 13:41
Ответы с готовыми решениями:

Задание функции CLIPS. Выдает ошибку
Нужно написать код для подсчета функции f(x)= lg(x+e^x). И результат обязательно вывести через bind...

Использование CLIPS функции GetFactSlot
Не могу получить значение переменной из CLIPS в builder с помощью GetFactSlot, кто-нибудь ее...

Найти ошибку в функции
Найти ошибку в функции function evenness(a:integer):real; begin if a mod 2=0 then...

функции!найти ошибку
program soln; var a,m,x,y,t,f,result:real; function gol(a,m,x,t:real):real; begin...

__________________
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2020, 13:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти ошибку в функции
Само задание: Дан массив из М целых чисел. Если в массиве есть хотя бы одно простое число,...

найти ошибку в функции
Функция вычисления уравнения методом вегстейна. не понимаю, где ошибка, помогите, пожалуйста...

Найти ошибку в функции
int&amp; f(){ int *a=new int; return *a; } скопилировал-ошибок нет...но тут ясно что не...

Найти ошибку. Табуляция функции
Доброго время суток))) Program lab3; var a,b,an,ak,ah,bn,bk,bh,x,c:real; begin...

Найти ошибку в описании функции
Функция 11.2cos(2x-1)+|(sin1.5x)|/1.7 program functia; uses crt; Var x:real;{} ...

Не могу найти ошибку в функции
Всем привет! ) Вот функция, она удаляет (вырезает) совпадения в строках Memo2 ну и в Столбце...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.