|
Программа - чат с телефоном,с исскуственным интилектом =)
|
|
|
06.02.2009 в 13:14
Сообщение #11
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
Quote (ADMIN) Шо не полушается? Ти как хош сделать?
Для начала что бы кокгда проге что то пишешь чтобы в следущий раз написать выходить из проги не приходилось
|
|
|
|
|
06.02.2009 в 14:04
Сообщение #12
|
|
admin
Admin
Администраторы
Сообщений: 244
Offline
|
Окей. Вот кое-что подредактрировал:(будут непонятки-справшивай.) Но Mixalbl4 прав, надо бы по другому такие вещи делать.
program Proga;
var forma,y : integer;
cmdNext,click,cmdExit : command;
user : string;
comp :string;
begin
comp := 'Я не понимаю =(';
ShowForm;
forma := FormAddTextField('говори =)', '', 20, TF_ANY);
y:=FormAddString('Жду');
cmdNext := CreateCommand('ага', CM_OK, 1);
cmdExit:=CreateCommand('Выход',CM_Exit,1);
addCommand(cmdExit);
AddCommand(cmdNext);
repeat
repeat
click:=GetClickedCommand;
until click<>EmptyCommand;
if click=cmdNext then begin // если нажали на выбор
user := FormGetText(forma);
if user = 'Привет!' then comp := 'Ну,привет!';
if user = 'Как тебя зовут?' then comp := 'J2ME болтун';
if user = 'Привет.' then comp := 'Ну,привет.';
if user = 'Как дела?' then comp := 'Нормально!А как у тебя?';
if user = 'Нормально.' then comp := 'Это радует =)';
if user = 'Плохо.' then comp := '=( А сильно плохо?';
if user = 'Сильно.' then comp := '=(';
if user = 'Сильно!' then comp := '=(((((';
if user = 'Блять.' then comp := 'Не матерись.';
if user = 'Блять!' then comp := 'Не матерись!';
if user = 'Пока.' then comp := 'введи exit';
if user = 'Сука.' then comp := 'Не матерись.';
if user = 'Я тебя люблю.' then comp := 'Ты совсем???';
if user = 'Что делаешь?' then comp := 'Смски твоей маме шлю.';
if user = 'Зачем?' then comp := 'Зашкафом!';
if user = 'Как?' then comp := 'Легко!';
if user = 'Легко!' then comp := 'Что легко?';
if user = 'Как тебя выключить?' then comp := 'Введи exit';
if user = 'exit' then halt;
if user = 'Что радует?' then comp := 'Не знаю';
if user = 'Как твои дела?' then comp := 'Хреново';
if user = 'Почему?' then comp := 'Покачану.';
if user = 'Как мои дела?' then comp := 'Не знаю';
if user = 'Говори!' then comp := 'Я устал';
if user = 'Говори.' then comp := 'Говорю =)';
if user = 'Да.' then comp := 'Точно да?';
if user = 'Да!' then comp := 'Ого!Как точно...';
if user = 'Нет.' then comp := 'Понятно...';
if user = 'Exit.' then comp := 'Без точки!';
if user = 'Exit' then comp := 'exit,a не Exit';
if user = 'exit.' then comp := 'Нафиг ты точку поставил?';
if user = 'Что ты делаешь?' then comp := 'Смски шлю.';
if user = 'Кому?' then comp := 'Всем!';
if user = 'Смешно.' then comp := 'Что?';
if user = 'Ничего.' then comp := 'Я рад.';
if user = 'Чему?' then comp := 'Ничему!';
if user = 'Кто тебя создал?' then comp := 'Это секретная информация!';
if user = '=)' then comp := 'Смейся,смейся...';
if user = 'Кто ты?' then comp := 'Я тебе уже говорил...';
if user = 'Чего?' then comp := 'Ничего!';
formRemove(y);
y:=FormAddString(comp);
end;
until click=cmdExit; // выходим из главного цикла если нажали Выход
end.
|
|
|
|
|
07.02.2009 в 10:51
Сообщение #13
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
Quote (ADMIN) Окей. Вот кое-что подредактрировал:(будут непонятки-справшивай.) Но Mixalbl4 прав, надо бы по другому такие вещи делать.
Спасибо все работает
|
|
|
|
|
07.02.2009 в 12:57
Сообщение #14
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
Quote (ADMIN) надо бы по другому такие вещи делать.
А как?
|
|
|
|
|
08.02.2009 в 19:23
Сообщение #15
|
|
admin
Admin
Администраторы
Сообщений: 244
Offline
|
Я не знаю, еще никто не пытался по другому. Делать. но надо бы вводить библиотеку слов, сравинивать первые и втооре слова того, что ввел пользователь. ТоЕСь, вместо например того чтоб писать:
if user = 'У меня синяя машина' then comp := 'Синяя';
if user = 'У меня красная машина' then comp := 'Красная';
if user = 'У меня зеленая машина' then comp := 'Зеленая';
можно например
for i:=1 do 20000 иупшт
если первое слово -зеленая, если второе- машина.
КОРОЧЕ вместо 50ifов можно заделать всего 25стро кода, но зато библиотеку слов. Тяжело это будет сделать.
Это уже создание AI-исскуственного интеллекта - Заствь телефон думать и мыслить.
А ты попробуй заделать - диалог с телефоном, это для начинающих на басике. Телефон запрашивает вопросы, а пользователь отвечает. Например
как тебя зовут? - тел.
Саша. - польз.
'привет' + то, что ввел польз.
Откуда ты? - тел
И ТД,
|
|
|
|
|
09.02.2009 в 11:50
Сообщение #16
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
Quote (ADMIN) А ты попробуй заделать - диалог с телефоном, это для начинающих на басике. Телефон запрашивает вопросы, а пользователь отвечает. Например как тебя зовут? - тел. Саша. - польз
попробую это наверное.
|
|
|
|
|
31.10.2010 в 06:17
Сообщение #17
|
IvanNes
Середняк
Проверенные
Сообщений: 105
Offline
|
programmer, внеси в прогу UpCase для полной работоспособности)))
|
|
|
|
