Диалог с компьютером

@Lika2295 · Регистрация: 16.05.2016

Студворк — интернет-сервис помощи студентам

Срочно нужна помощь. В общем дело так, нужно создать диалог с компьютером, и все бы ничего, но нужно чтоб эта система хоть немного была интеллектуальной. Например, есть простой код

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.btn1Click(Sender: TObject);    
var 
 l,m:STRING;
begin
 l:=edt1.text;
 m:=lbl1.caption;
 edt1.clear;
if (l='где ты учишься') or (l='ты учишься')  then
 lbl1.Caption:='Я не учусь';

и все ответы выводятся в memo. Но если пользователь спросит "учишься ты где", то ответа он не получит. Есть ли какая нибудь функция, которая поможет решить эту проблему. Я в delphi разбираюсь, не скажу что очень плохо, но плохо, поэтому если не сложно, объясните что прописать в коде как можно подробнее. Просто уже не знаю что делать.
Заранее огромное спасибо.
p.s. ответов я ввела уже очень много, на все темы, о которых только может говорить человек.

@mss · 04.06.2016, 21:58

Не по теме:

ну заведи две таблицы - таблицу вопросов (В) и таблицу ответов на вопросы (О)

свяжи В с О в отношении "многие к одному"

наполни В группами различных вариантов одних и тех же по смыслу вопросов (в едином регистре символов), в записях в каждой группе проставь ссылку на единый ответ (запись в О) для всех вариантов в группе

при поступлении вопроса шаришься по таблице В, находишь запись, берешь ссылку на запись из О, берешь эту запись и выводишь в кач-ве ответа

при ненахождении вопроса выводишь "Моя твоя не понимать"

перед тем как шариться по таблице В текст исходного вопроса приводишь к тому же регистру, удаляешь "лишние" знаки препинания и пробельные символы

проще для примитивного "интеллекта" уже некуда)

@Lika2295 · 04.06.2016, 22:12 **[ТС]**

Не по теме:

mss,
Спасибо большое) Попробую что нибудь сделать, может не все потерянно)):thank_you:

@mss · 04.06.2016, 22:15

Не по теме:

Сообщение от Lika2295

может не все потерянно

Угу.. Надежда она умрет, но, как известно, последней)

@Qwetyui · 05.06.2016, 19:01

А правда что? давайте щас за вечерок сядем, и сотворим ИИ, я уже начинал, в нем 33 нейрончика, осталось 85 999 999 967

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@mss
	04.06.2016, 21:58
	Не по теме: ну заведи две таблицы - таблицу вопросов (В) и таблицу ответов на вопросы (О) свяжи В с О в отношении "многие к одному" наполни В группами различных вариантов одних и тех же по смыслу вопросов (в едином регистре символов), в записях в каждой группе проставь ссылку на единый ответ (запись в О) для всех вариантов в группе при поступлении вопроса шаришься по таблице В, находишь запись, берешь ссылку на запись из О, берешь эту запись и выводишь в кач-ве ответа при ненахождении вопроса выводишь "Моя твоя не понимать" перед тем как шариться по таблице В текст исходного вопроса приводишь к тому же регистру, удаляешь "лишние" знаки препинания и пробельные символы проще для примитивного "интеллекта" уже некуда) 0

@Lika2295
	04.06.2016, 22:12 [ТС]
	Не по теме: mss, Спасибо большое) Попробую что нибудь сделать, может не все потерянно)):thank_you: 0

@Qwetyui 30 / 31 / 20 Регистрация: 30.12.2015 Сообщений: 340
	05.06.2016, 19:01
	А правда что? давайте щас за вечерок сядем, и сотворим ИИ, я уже начинал, в нем 33 нейрончика, осталось 85 999 999 967 0

Опции темы