Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Preston
81 / 3 / 1
Регистрация: 09.09.2014
Сообщений: 17
1

Обучающая система

23.06.2016, 13:56. Просмотров 882. Ответов 2
Метки нет (Все метки)

Написать на алгоритмическом языке ЛИСП программу, реализующую автоматизированную обучающую систему (АОС) по дифференцированию функций от двух переменных для рациональных функций. Разработать не менее трех обучающих тем. Для каждой обучающей темы разработать тест, проверяющий степень усвоения. Тест должен содержать не менее пяти вопросов. На каждый вопрос должно быть не менее 5 ответов. Наряду с единственным правильным ответом допускаются множественные правильные ответы.
Очень нужно. Сдавать скоро, а мозгов не хватает. Выдали слишком резко. Да и задание само не понятно как реализовать.
Помогите.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2016, 13:56
Ответы с готовыми решениями:

обучающая система
привет всем)))оч над курсовой выполненный на си или паскале...либо легенькая игра, либо обучающая...

Интерактивная обучающая система
Здравствуйте. Я студент 5-го курса, программист, в этом году нужно защищать диплом. Мы...

Автоматизированная обучающая система. Администраторская часть
Пишу автоматизированную обучающую систему на C#. База в MySQL. Разработала уже пользовательскую...

Обучающая программа
Здравствуйте! Мне нужно написать обучающую программу по CorelDraw на Delphi. Если есть у кого-либо...

обучающая программа
друзья, подскажите, я сделал странички в html с теорией, оформил красивенько,, как добавить их как...

2
Dead_Pixel
2 / 2 / 2
Регистрация: 16.01.2016
Сообщений: 34
24.06.2016, 15:36 2
Лучший ответ Сообщение было отмечено Preston как решение

Решение

Держи может пригодится.
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
(defun Kr_11()
    (princ "Здравствуйте, вас приветствует автоматизированная обучающая система по дифференцированию функций от двух переменных для рациональных функций")(terpri)
    
    (princ "Для начала узнаем, знаете ли вы что такое Рациональная функция и что такое функция двух переменных? (y/n)")(terpri)
    (if (equal (read-line) "n")
        (progn
            (princ "Рациональная функция — это дробь, числителем и знаменателем которой являются многочлены. Например (x*x-2)/(16+x).")(terpri)
            (princ "Выражение 1 = Выражение 2 - тождество, если это равенство выполняется при любых значениях переменных (букв), входящих в выражения. 
    При этом говорят, что «Выражение 1» тождественно равно «Выражению 2». Например x + 5x + 6 = 6x + 6 верно при любых x - тождество.")(terpri)
            (princ "Тождественным преобразованием называется замена выражения тождественно равным ему выражением. Например 2*(a-b)-7*3*a = 2*a-2*b-21*a = -19*a-2*b")(terpri)
            (princ "При выполнении тождественных преобразований необходимо знать порядок выполнения математических действий, действия с дробями и степенными выражениями, 
            формулы сокращенного умножения.")(terpri)
            (princ "Порядок выполнения действий:
            1) действия с одночленами;
            2) действия в скобках;
            3) умножение или деление (в порядке появления);
            4) сложение или вычитание (в порядке появления).")(terpri)
            (princ "(a +- b)*(a +- b) = a*a +- 2*a*b + b*b
a*a - b*b = (a+b)*(a-b)
(a+b+c)*(a+b+c) = a*a + b*b + c*c + 2*a*b + 2*a*c + 2*b*c")(terpri)
            (princ "В основном тождественные преобразования в рациональных функциях ведутся с помощью тождественного преобразования числителя и/или знаменателя.
    Существует несколько методов тождественных преобразований (предполагается, что знаменатели дробей отличны от нуля):
        1) Перенос слагаемых из одной части уравнения в другую с изменением их знаков на противоположные.
        2)Умножение или деление обеих частей уравнения на одно и то же не нулевое число.
        3)Сложение,вычитание,умножение,деление дробей.
        4)Перестановка членов пропорции.")(terpri)
            (princ "Теперь же разберем на примере:
Выполним тождественные преобразования с такой дробью: (x*x*x - x)/(x*x - x).
(x*x*x - x)/(x*x - x) = (x*(x*x-1))/(x*(x-1)) = (x*(x-1)*(x-1))/(x*(x-1)) = x+1
т.е. (x*x*x - x)/(x*x - x) = х+1
Полученное тождество верно, при х <> 0 и х <> 1 (недопустимые значения), т.к. знаменатель левой части не может быть равен нулю.
x*х-x<>0 => x*(x-1)<>0 => х<>0 и х<>1
Как мы видим при выполнении тождественных преобразований таких выражений надо следить за областью определения выражения,
т.к. может происходить расширение области определения. Это может произойти, например, при сокращении дроби")(terpri)
        )
    )
    (princ "Нажмите Enter, чтобы приступить к тесту")(terpri)
    (read-line)
    
    (setq count1 0)
    (princ "№1. Какие функции относятся к Рациональным?")(terpri)
    (princ "1. Тригонометрические")(terpri)
    (princ "2. Трансцедентные")(terpri)
    (princ "3. Степенные")(terpri)
    (princ "4. Показательные")(terpri)
    (princ "5. Дробнные")(terpri)
    (setq answer (read-line))
    (if (or (equal answer "5") (equal answer "5") (equal answer "5") (equal answer "5"))
        (progn
            (princ "Правильно!")(terpri)
            (setq count1 (1+ count1))
        )
        (progn
            (princ "Неверно! Правильный ответ 5")(terpri)
        )
    )
    (princ "№2. Какая функция является Рациональной?")(terpri)
    (princ "1. log(x)")(terpri)
    (princ "2. e^x")(terpri)
    (princ "3. (x*x-2)/(16+x)")(terpri)
    (princ "4. cos(x)")(terpri)
    (princ "5. tg(x)")(terpri)
    (setq answer (read-line))
    (if (equal answer "3")
        (progn
            (princ "Правильно!")(terpri)
            (setq count1 (1+ count1))
        )
        (progn
            (princ "Неверно! Правильный ответ 3")(terpri)
        )
    )
    (princ "№3. Какая функция является Рациональной?")(terpri)
    (princ "1. 2e^x+x^2-6x-2e^x")(terpri)
    (princ "2. (x*x*x - x)/(x*x - x)")(terpri)
    (princ "3. x^5+x^3-2+e^x")(terpri)
    (princ "4. cos(x)*2x + 3")(terpri)
    (princ "5. x*ctg(x)")(terpri)
    (setq answer (read-line))
    (if (equal answer "2")
        (progn
            (princ "Правильно!")(terpri)
            (setq count1 (1+ count1))
        )
        (progn
            (princ "Неверно! Правильный ответ 2")(terpri)
        )
    )
(princ "№4. Найдите функции двух переменных")(terpri)
    (princ "1. x*cos(x) + 6xy")(terpri)
    (princ "2. x^2-x+5")(terpri)
    (princ "3. log(x)/e^x")(terpri)
    (princ "4. x^2*y^3-6x")(terpri)
    (princ "5. x^2*ln(x)")(terpri)
    (setq answer (read-line))
    (if (or (equal answer "14") (equal answer "41") (equal answer "1 4") (equal answer "4 1"))
        (progn
            (princ "Правильно!")(terpri)
            (setq count1 (1+ count1))
        )
        (progn
            (princ "Неверно! Правильный ответ 14")(terpri)
        )
    )
    (princ "№5. Найдите Рациональную функцию двух переменных")(terpri)
    (princ "1. x*cos(x) + 6xy")(terpri)
    (princ "2. x^2-x+5-y*tg(x)")(terpri)
    (princ "3. log(x)/e^y")(terpri)
    (princ "4. x^2*y^3-6x")(terpri)
    (princ "5. x^2*ln(x)")(terpri)
    (setq answer (read-line))
    (if (equal answer "3")
        (progn
            (princ "Правильно!")(terpri)
            (setq count1 (1+ count1))
        )
        (progn
            (princ "Неверно! Правильный ответ 3")(terpri)
        )
    )
    (princ "Вы ответили правильно на ")(princ count1)(princ " вопроса из 5")(terpri)
 
    (princ "Теперь узнаем, знаете ли вы общие правила дифференцирования? (y/n)")(terpri)
    (if (equal (read-line) "n")
        (progn
            (princ "Общие правила дифференцирования функций:")(terpri)
            (princ "Производная константы равна нулю: C' = 0")(terpri)
            (princ "Производная переменной равна единице: x' = 1")(terpri)
            (princ "Производная суммы равна сумме производных: (f + g)' = f' + g'")(terpri)
            (princ "Производная произведения: (fg)' = f'g + fg'")(terpri)
            (princ "Константа выносится за производную: (Cf)' = Cf'")(terpri)
            (princ "Производная частного: (f/g)' = (f'g - fg') / (g^2)")(terpri)
            (princ "Производная сложной функции: (f(g))' = f'(g) * g'")(terpri)
            (princ "Производная обратной функции: (1/x)' = -1/x^2")(terpri)
            (princ "Производная корня: (sqrt(x))' = 1/(2sqrt(x))")(terpri)
            (princ "Производная степенной функции: (x^k)' = kx^(k-1)")(terpri)
            (princ "Всё ли вам понятно? (y/n)")(terpri)
            (if (equal (read-line) "n")
                (progn
                    (princ "Тогда разберём на примерах:")(terpri)
                    (princ "(7sqrt(x))' = 7/(2sqrt(x))")(terpri)
                    (princ "(5/x)' = -5/x^2")(terpri)
                    (princ "(x^5)' = 5x^4")(terpri)
                    (princ "(5x + 3x^2)' = 5 + 6x")(terpri)
                    (princ "(6x*x^3)' = 6x^3 + 6x*3x^2")(terpri)
                    (princ "(x^2 / 5x^3)' = (2x*5x^3 - x^2*15x^2) / (25x^6)")(terpri)
                    (princ "((2x^2) ^ 4)' = 4*(2x^2)^3 * 4x = 128x^7")(terpri)
                )
            )
            (princ "Теперь мы можем приступить к тестированию")(terpri)
        )
        (progn
            (princ "Отлично, тогда пройдём тест")(terpri)
        )
    )
    (princ "Нажмите Enter, чтобы приступить к тесту")(terpri)
    (read-line)
    
    (setq count2 0)
    (princ "№1. Чему равна производная суммы? (u+v)'")(terpri)
    (princ "1. u'+v")(terpri)
    (princ "2. u'u+v'v")(terpri)
    (princ "3. u^2+v^2")(terpri)
    (princ "4. u'+v'")(terpri)
    (princ "5. u'v'")(terpri)
    (setq answer (read-line))
    (if (equal answer "4")
        (progn
            (princ "Правильно!")(terpri)
            (setq count2 (1+ count2))
        )
        (progn
            (princ "Неверно! Правильный ответ 4")(terpri)
        )
    )
    (princ "№2. Чему равна производная сложной функции? (u(v))'")(terpri)
    (princ "1. u'u+v'v")(terpri)
    (princ "2. u'v+uv")(terpri)
    (princ "3. u'(v)*v'")(terpri)
    (princ "4. u'(v)")(terpri)
    (princ "5. u'v'")(terpri)
    (setq answer (read-line))
    (if (equal answer "3")
        (progn
            (princ "Правильно!")(terpri)
            (setq count2 (1+ count2))
        )
        (progn
            (princ "Неверно! Правильный ответ 3")(terpri)
        )
    )
    (princ "№3. Чему равна производная корня?")(terpri)
    (princ "1. 1/(2*sqrt(x))")(terpri)
    (princ "2. x")(terpri)
    (princ "3. sqrt(x)")(terpri)
    (princ "4. x^2")(terpri)
    (princ "5. 0.5sqrt(x)")(terpri)
    (setq answer (read-line))
    (if (equal answer "1")
        (progn
            (princ "Правильно!")(terpri)
            (setq count2 (1+ count2))
        )
        (progn
            (princ "Неверно! Правильный ответ 1")(terpri)
        )
    )
    (princ "№4. Производная обратной функции равна:")(terpri)
    (princ "1. 0.5x")(terpri)
    (princ "2. -x")(terpri)
    (princ "3. -1/x^2")(terpri)
    (princ "4. x^2")(terpri)
    (princ "5. -x^3")(terpri)
    (setq answer (read-line))
    (if (equal answer "3")
        (progn
            (princ "Правильно!")(terpri)
            (setq count2 (1+ count2))
        )
        (progn
            (princ "Неверно! Правильный ответ 3")(terpri)
        )
    )
    (princ "№5. Выберите правильные утверждения:")(terpri)
    (princ "1. Производная константы равна нулю")(terpri)
    (princ "2. Производная произведения равна произведению производных")(terpri)
    (princ "3. Производная суммы равна сумме производных")(terpri)
    (princ "4. Константу нельзя выносить из производной")(terpri)
    (princ "5. Производная сложной функции равна произведению производной первой функции на вторую")(terpri)
    (setq answer (read-line))
    (if (or (equal answer "13") (equal answer "31") (equal answer "1 3") (equal answer "3 1"))
        (progn
            (princ "Правильно!")(terpri)
            (setq count2 (1+ count2))
        )
        (progn
            (princ "Неверно! Правильный ответ 13")(terpri)
        )
    )
    (princ "Вы ответили правильно на ")(princ count2)(princ " вопроса из 5")(terpri)
    
    (princ "Теперь приступим непосредственно к изучению дифференцирования функций двух переменных")(terpri)
    (princ "При вычислении производной мы должны указать по какой переменной мы дифференцируем функцию")(terpri)
    (princ "Производная функции двух переменных по переменной x записывается в следующем виде:")(terpri)
    (princ "d(функция)/dx")(terpri)
    (princ "Для переменной y:")(terpri)
    (princ "d(функция)/dy")(terpri)
    (princ "Пример:")(terpri)
    (princ "d(x^2 + y^2 + xy)/dy")(terpri)
    (princ "При вычислении производной функции двух переменных используются те же правила дифференцирования")(terpri)
    (princ "Для вычисления производной по одной переменной, другая переменная принимается за константу")(terpri)
    (princ "d(x^2 + y^2 + xy)/dy = d(x^2)/dy + d(y^2)/dy + d(xy)/dy = 0 + 2y + x = 2y + x")(terpri)
    
    (princ "Нажмите Enter, чтобы приступить к тесту")(terpri)
    (read-line)
 
    (setq count3 0)
    (princ "№1. Как записывается производная функции двух переменных?")(terpri)
    (princ "1. df/dx, df/dy")(terpri)
    (princ "2. f'")(terpri)
    (princ "3. f()")(terpri)
    (princ "4. f/x")(terpri)
    (princ "5. xdx")(terpri)
    (setq answer (read-line))
    (if (equal answer "1")
        (progn
            (princ "Правильно!")(terpri)
            (setq count3 (1+ count3))
        )
        (progn
            (princ "Неверно! Правильный ответ 1")(terpri)
        )
    )
    (princ "№2. Чему равно d(x^2 + xy^3 + y*sqrt(x))/dx")(terpri)
    (princ "1. 3y^2")(terpri)
    (princ "2. 2x + 3")(terpri)
    (princ "3. 2x + y^3 + y/(2*sqrt(x))")(terpri)
    (princ "4. 2x + 3y^2 + sqrt(x)")(terpri)
    (princ "5. y^3 + y")(terpri)
    (setq answer (read-line))
    (if (equal answer "3")
        (progn
            (princ "Правильно!")(terpri)
            (setq count3 (1+ count3))
        )
        (progn
            (princ "Неверно! Правильный ответ 3")(terpri)
        )
    )
    (princ "№3. Чему равно d(x^2/y)/dy")(terpri)
    (princ "1. x^2")(terpri)
    (princ "2. -x^2/y^2")(terpri)
    (princ "3. -y^2")(terpri)
    (princ "4. x^2/y^2")(terpri)
    (princ "5. 1/y^2")(terpri)
    (setq answer (read-line))
    (if (equal answer "2")
        (progn
            (princ "Правильно!")(terpri)
            (setq count3 (1+ count3))
        )
        (progn
            (princ "Неверно! Правильный ответ 2")(terpri)
        )
    )
    (princ "№4. Чему равно d(x^3+y^4)/dy")(terpri)
    (princ "1. x^3")(terpri)
    (princ "2. y^2")(terpri)
    (princ "3. -y^2")(terpri)
    (princ "4. 3x^2")(terpri)
    (princ "5. 4y^3")(terpri)
    (setq answer (read-line))
    (if (equal answer "5")
        (progn
            (princ "Правильно!")(terpri)
            (setq count3 (1+ count3))
        )
        (progn
            (princ "Неверно! Правильный ответ 5")(terpri)
        )
    )
    (princ "№5. Чему равно d(x^2/sqrt(y))/dy")(terpri)
    (princ "1. x^2")(terpri)
    (princ "2. x^2*0.5*y^(-3/2)")(terpri)
    (princ "3. 1/sqrt(y)")(terpri)
    (princ "4. x^2*(-0.5)/y^(3/2)")(terpri)
    (princ "5. 2x/sqrt(y)")(terpri)
    (setq answer (read-line))
    (if (equal answer "4")
        (progn
            (princ "Правильно!")(terpri)
            (setq count3 (1+ count3))
        )
        (progn
            (princ "Неверно! Правильный ответ 4")(terpri)
        )
    )
    (princ "Вы ответили правильно на ")(princ count3)(princ " вопроса из 5")(terpri)
    
    (princ "Общий результат тестирования ")(princ (round (float (* (/ 100 15) (+ count1 count2 count3)))))(princ "%")(terpri)
 
 
)
;   (load "D:/C1/Kr_11.lisp")
;   (Kr_11)
Возможно много недочётов в тексте, но уж сам исправь.
2
Preston
81 / 3 / 1
Регистрация: 09.09.2014
Сообщений: 17
24.06.2016, 15:40  [ТС] 3
Dead_Pixel, пасибо.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2016, 15:40

Обучающая литература
Всем привет. Я только новичок в Android разработке и Java:wall:, люди посоветуйте какую либо...

Обучающая выборка
Добрый вечер! Подскажите пожалуйста ресурс, где можно скачать базу печатных символов, для...

Обучающая программа
Здравствуйте! У меня такой вопро: Пишу обучающую пронграмму для студентов (лекции + тесты). На...


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

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

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