12 / 2 / 2
Регистрация: 16.06.2017
Сообщений: 532
1

Хочу создать обучаймую программу(сайт). Есть подобный код на паскаль

22.09.2017, 20:22. Показов 676. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет! Хочу создать сайт, который можно обучить, наподобие сайта akinator. И чтобы можно было обучить через post-запросы, также и получать ответы. Ну и желательно чтобы и с самого сайта можно было бы "общаться".
В интернете нашёл код для Паскаль, который переводит слова и обучается если не знает(ну если правильно обучить)
Вот сам код:
Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const max=200000;
var mas:array[0..200000,0..1] of string; str:string; i,slova:integer;
begin
repeat
inc(slova);
write('Слово: ');
readln(str);
for i:=0 to max do begin
if str = mas[i,0] then begin
writeln('Перевод: ',mas[i,1]);
exit;
end;
if (i = max) then begin
write('Это слово мне не знакомо, пожалуйста, напишите его перевод: ');
readln(mas[slova,1]); // будем учитывать, что количество слов в массиве нам известно, я записал в рандом-значение
mas[slova,0]:=str;
writeln('Спасибо! ');
end;
end;
until (slova > max); // чтобы цикл был вечен
end.


Также есть код на lisp:
Кликните здесь для просмотра всего текста
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
(setq *base* '("Большое" ("Слон" NIL NIL) ("Мышь" NIL NIL)))  ;; База знаний
 
(defun ask-q (curr &optional prev)  ;; основная программа диалога 
 (if (eq (ask (strLcase (strCat (car curr) "?"))) "y")
     (if (null (cadr curr)) (say "Я выйграла!") (ask-q (cadr curr) curr))  
     (if (null (caddr curr)) (progn  (add-animal curr prev) ) (ask-q (caddr curr) curr))))
     
(defun add-animal (curr prev) ;; добавить животное
  (let* ((anam (ask "Как называется ваше животное?"))
         (diff (ask (strCat "Чем ваше животное отличается от животного [ " (car curr) " ]")))
         (new  (list diff  (list anam nil nil) curr)))
         (if (equal (cadr prev) curr)
             (rplaca (cdr prev) new)
             (rplaca (cddr prev) new))
         ))
 
(defun num-anim (base) ;; служебная программа - сколько животных в БЗ
  (cond ((null base) 0)
        ((null (cadr base)) (printsline (car base)) 1)
        (t (+ (num-anim (cadr base)) (num-anim (caddr base))))))
 
(defun search-anim (anim base) ;; служебная программа - найти животное
   (cond ((null base) nil)
         (t (or (eq (strLcase anim) (strLcase (car base))) (search-anim anim (cadr base)) (search-anim anim (caddr base))))))
 
(defun unload_base (base fname)  ;; выгрузить БЗ в файл
 (let ((fo (gensym 'fo)))
   (filOpen fo fname _OUTPUT)
   (filPutLine fo (output base))
   (filClose fo)))
   
(defun load_base (base fname) ;; Загрузить БЗ из файла
  (let ((fi (gensym 'fi)))
     (filOpen fi fname _INPUT)
     (set base (input (filGetLine fi)))
     (filClose fi)))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2017, 20:22
Ответы с готовыми решениями:

Хочу создать сайт (есть очень глобальная идея)
Вопросы: На чем создать лучше сайт? Движок или чистый язык, думаю что мне хватит для создания...

Как создать подобный сайт? Из чего он состоит?
Есть онлайн справочник лекарств и аптек Там можно ввести название препарата и сайт выдаст в каких...

У меня есть файл и внутри этого файла есть код, я хочу его открыть в IDLE питон так, чтобы внутри код вывести
У меня есть файл и внутри этого файла есть код, я хочу его открыть в IDLE питоне так, чтобы код...

Есть исходный код, но не могу создать проект и запустить программу
здравствуйте, помогите мне пожалуйста. Нашел исходный код программы, но никак не могу запустить ее,...

3
1992 / 1216 / 440
Регистрация: 13.06.2013
Сообщений: 4,115
22.09.2017, 21:01 2
Ну... мы рады за ваш энтузиазм . Вопрос то в чем?
0
12 / 2 / 2
Регистрация: 16.06.2017
Сообщений: 532
23.09.2017, 05:32  [ТС] 3
Я в php не так силён.
0
0 / 1 / 0
Регистрация: 27.03.2017
Сообщений: 12
24.09.2017, 10:38 4
Чтобы реализовать это на php, недостаточно знать только сам php. Нужно также иметь базу данных, где все слова будут храниться
0
24.09.2017, 10:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2017, 10:38
Помогаю со студенческими работами здесь

Хочу создать сайт
Нужна Ваша помощь как знатоков, как лучше поступить? Хочу создать сайт на своем домашнем компе,...

Хочу создать сайт
Что то сердцу снова хочется написать сайт..но про что,где,как расскрутить,какая диза,сам не...

Хочу создать сайт
Всем добрый день. Я частный предприниматель. Не так давно увлекся web - программированием (мое...

хочу создать сайт
хочу создать сайт в сети,можете помочь.Плиз.

Хочу Создать сайт
Всем здравствуйте! Хочу создать сайт. И не могу определиться с движком для него. На своем сайте...

Хочу создать сайт
Очень хочу создать свой интернет-магазин по продаже косметики из Израиля , но чтобы вложения были...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru