3 программы: программа на Prolog, программа на AutoLisp, программа на PCLisp

Программа
в среде программирования Prolog, AutoLisp, PCLisp

Если Вы считаете, что данная страница каким-либо образом нарушает Ваши авторские права, то Вам следует обратиться в администрацию нашего сайта по адресу info@kursovik.com либо через форму обратной связи

Среда программирования: Prolog, AutoLisp, PCLisp

Название работы: 3 программы: программа на Prolog, программа на AutoLisp, программа на PCLisp

Вид работы: Программа

Описание: Цель работы
Целью данной лабораторной работы является приобретение навыков программирования разветвляющихся вычислительных процессов, ввода-вывода данных и практическое освоения приемов ввода и отладки программ на языках искусственного интеллекта.
Варианты заданий
Разработать программу вычисления значений функции y(x) при различных значениях аргумента х, где y(x) соответствует варианту задания.

№ п/п Функция Условие Тесты
X Y
1 2 3 4 5

0

-1
0
0.5
2
2.1
3
N0
N0
0.959517
1.570796
N0
1.098612
1

-2
0
1
2
2.5
4 -1.000000
N0
-0.416147
N0
N0
1.000000
2

-2
0
0.3
1.5
2
3.5 3.464102
N0
0.648361
-0.301030
N0
N0
3

-4
-2
0
0.1
1
2 -0.333333
N0
N0
0.364287
N0
0.000000
4

-4
-2
-0.5
0
0.7
3 N0
1.000000
-2.042013
N0
N0
1.000000
5

-1
-1.1
0.25
0.2
4
5 3.141593
N0
0.342053
N0
-1.000000
N0

6

-3
-1
1
3
4
5 N0
0.125000
N0
0.630930
-0.841447
N0

7

-6.5
-6
0
2
3.5
4 N0
0.000000
N0
2.718282
-14.00000
N0

8

-3.8
-2.5
-1
1
3
5 N0
-0.523599
N0
0.910239
N0
1.741101

9

-2.1
-2
-0.75
-0.5
0
2
N0
0.000000
1.000000
N0
N0
8.250000
10

-3
-2.5
0
0.5
2
4 N0
-0.630930
N0
9.000000
0.285398
N0

11

-3
-2.5
-0.5
0
4
5 0.000000
N0
-0.416141
N0
N0
0.666667
12

-5
-4
-0.8
-0.5
100
1002 N0
25.000000
N0
3.141593
1.00000
N0

13

-14
-12
1
1.2
4
14 0.477121
N0
0.000000
N0
N0
0.014000
14

-6
-4
0
0.5
8
10 N0
1.251033
N0
-0.756802
N0
0.500000
15

-1
-0.5
0.75
1
2
3 0.977997
N0
-8.003923
N0
N0
0.052632
16

-6
-2
3
5
12
65 0.950139
N0
5.500000
N0
1.023851
N0

17

-1.5
-0.5
0
1
4
6 1.047198
N0
-0.500000
N0
N0
2.449490

18

-5
-1
2
3
4
18 N0
0.312500
36.000000
N0
1.189207
N0
19

-3
-1
0
0,25
1
3 -0,500000
N0
N0
3,916317
0,774597
N0

20

-7
-0,5
0,5
2
3
4 0,059726
0,360217
N0
N0
-1,500000
N0

21

-19
0
0,1
0,7
1,25
7 2,000000
N0
90,00000
N0
1,047198
N0

22

-2
0
1
2
4
5 N0
2,236070
N0
-4,000000
0,000000
N0

23

-9
-1
0,5
2
2,5
3,5 1,098612
N0
0,523699
N0
N0
0,953498
25

-2.5
-2
3
7.4
7.6
8 0.985385
N0
N0
N0
0.000000
0.477121
26

-6
-5
-4
-2.9
0
1 -0.909297
N0
N0
0.971488
N0
0.000000
27

-11
-2
0.2
0.5
2
4 1.000000
N0
-0.523599
N0
N0
2.449490
28

-1
0
0.5
1
1.6
3 N0
-0.200000
0.000000
N0
N0
0.996485
29

0
0.1
3
6
7
8 N0
0.930318
N0
1.729716
N0
0.000000
30

-8
1
2
5
7
8.5 0.693147
N0
1.772454
N0
1.500000
N0

31

-3
0
1
2
3
5 N0
0.477121
N0
-0.909297
1.383088
N0

32

-3
-4
0
0.5
1
2 -2.185040
N0
N0
49.000000
N0
0.181819
33

-3
-2
0.2
2
4
5 0.321751
N0
0.766784
N0
N0
0.000000
34

-4
-2
-1
0.5
2
3 N0
N0
0.642093
1.646059
N0
0.999708
35

-5
-4
-2
0
1
2 N0
169.00000
N0
0.000000
N0
0.023810
36

-8
-4
0
0.1
2
3.5 N0
2.484907
N0
14.711277
0.989301
N0

37

-16
-5
-2.5
2.1
4
5 N0
1.322219
N0
0.968227
N0
0.200000
38

-4
-3.5
-2
-1
4
5 N0
-0.301030
0.000000
N0
0.500000
N0

39

-5
-2
-0.2
0
2
5 0.100000
0.836044
N0
N0
0.155944
N0

40

-2
-1
-0.7
0
2
3 2.584963
N0
N0
1.200937
N0
0.142857
41

-3
-2
0
1
2
3 N0
7.000000
N0
0.642093
-0.191642
N0

42

0
0.5
4
5
13
14 N0
25.000000
0.000000
N0
N0
0.000000
43

-3
-2.5
-1.5
0
1
2 N0
0.958924
N0
-0.262512
N0
0.266667
44

-5
-4
-2
-1
0.6
2 0.327195
N0
N0
0.614788
N0
0.000000
45

-3
-2
-0.5
0.75
2
5 -2.000000
N0
0.604328
N0
0.000000
N0

46

-5
-2
-1.5
0
3.5
5 N0
N0
0.976716
0.644234
N0
1.000000
47

-6
-5
0.5
2
6
10 N0
3.141592
N0
2.718282
1.000000
N0
48

-5
-4
-3
4
6
9 N0
0.696726
N0
0.707107
N0
6.704992
49

-3
-1
6
7.5
10
11 -0.029412
N0
0.389876
N0
1.570796
N0

50

иначе

51

иначе

52

Пример оформления лабораторной работы
1. Титульный лист.

2. Условие задачи для варианта 0.

0

-1
0
0.5
2
2.1
3
N0
N0
0.959517
1.570796
N0
1.098612

3. Нахождение области допустимых значений функции.
Обозначим через f1, f2, f3 функции , , и найдем их области допустимых значений на указанных промежутках.
I. ,
ОДЗ: .
Эта точка принадлежит интервалу, на котором определена функция f1(x).
II. ,
ОДЗ:
Следовательно, на интервале функция не определена.

III.
ОДЗ: х>0.
Это означает, что на интервале функция не определена.

4. Листинг программы.
Программа на Prolog
Predicates
y(real)
w

goal
w, write(“X=”), readreal(X), y(X).

clauses
w:-makewindow(25, 26, 203,”programmirovanie uslovij”, 0,0,25,80).
y(X):-X>2, X<2.5, write (“y=no”);
X=0, write (“y=no”);
X<-0.5, write (“y=no”);
X=2,Y=3.1415926/2, write(Y);
abs(X)<=0.5, Y=1/(exp(X)-exp(-X)), write (“y=”, Y);
X>0.5, X<2.5,Z1=X/2, Z2=1-Z1*Z1, Z3=sqrt(Z2), Z4=Z1/Z2, Y=arctan(Z4), write (“y=”, Y);
Y=ln(X), write (“y=”, Y).

Программа на AutoLisp
(defun y(x)
(cond
((and(> x 2)(< x 2.5))”No”)
((= x 0)”No”)
((< x -0.5)”N0”)
((= x 2)(/ pi 2.0))
((<=(abs x)0.5)(/ 1.0 (- (exp x)(/ 1.0 (exp x)))))
((and(> x 0.5)(< x 2.5))(atan (/ (/ x 2.0)(sqrt (- 1.0 (/ (* x x)4.0) )))))
(t (log x))
))

Программа на PCLisp
(defun y(x)
(cond
((and(> x 2)(< x 2.5))”No”)
((= x 0) ”No”)
((< x -0.5)”N0”)
((= x 2)(quotient (times 4 (atan 1)) 2.0))
((<=(abs x)0.5)( quotient 1.0 (diff (exp x)( 1.0 (exp x)))))
((and(> x 0.5)(< x 2.5))(asin(quotient x 2)))
(t (log x))
))

5. Тесты, примеры.

Х Y
-1
0
0.5
2
2.1
3 N0
N0
0.959517
1.570796
N0
1.098612

Год: 2018

<<< Назад к списку

Данный заказ (программа) выполнялся нашим сайтом в 2018-м году, в рамках этого заказа была разработана программа в среде программирования Prolog, AutoLisp, PCLisp. Если у Вас похожее задание на программу, которую нужно написать на Prolog, AutoLisp, PCLisp, либо на другом языке программирования, пожалуйста заполните форму, приведённую ниже, после чего Ваше задание в первую очередь рассмотрит наш программист, выполнявший в 2018-м году этот заказ, если он откажется, то Ваше задание оценят другие наши программисты в течение 48-и часов, если оценка нужна срочно, просим Вас оставить пометку об этом - напишите в тексте задания фразу "СРОЧНЫЙ ЗАКАЗ".