3 программы: программа на Prolog, программа на AutoLisp, программа на PCLisp
Программа
в среде программирования Prolog, AutoLisp, PCLisp
Среда программирования: 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-и часов, если оценка нужна срочно, просим Вас оставить пометку об этом - напишите в тексте задания фразу "СРОЧНЫЙ ЗАКАЗ".
Viber:
+79374242235
Telegram: kursovikcom ВКонтакте: kursovikcom WhatsApp +79374242235 E-mail: info@kursovik.com Skype: kursovik.com |