![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Костян |
![]() ![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Родилась идея создать нечто "Искуственного интелекта" для начала написал что то типа приветствия- вы вводите приветствие и если оно есть в массиве то комп отвечает если нет- то "ругается". Казалось бы все просто, но компилятор выдает ошибку- проверьте плиз. И еще, если у кого есть идеи как упростить, то пишите...
Код program ii; uses crt; var privet:array[1..4] of string=(Hellow, Hie, Good evening, Good morhihg); slovo: string; begin clrscr; readln(slovo); if slovo=privet[1]or privet[2] or privet[3] or privet[4] then writeln('Hellow to you to. What is you name'); else writeln('You didnt say hellow-YOU IS A BAD MAN'); readkey; end. -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
![]() ![]() |
NorthAngel |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 25 Пол: Женский Репутация: ![]() ![]() ![]() |
![]() Во-первых, массив privet должен быть константой, а блок const отсутствует. Во-вторых, в описании privet отсутствуют ковычки. В-третьих, что это за условие такое privet[2] в условном операторе? И еще две аналогичных ошибки. В-четвертых, убери ; перед else. -------------------- ошибки легче всего делаются и труднее всего находятся в самых простых местах программы =))
|
Костян |
![]() ![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Это все конечно круто, но все равно не пашет, кто нить напишите кодом, плиииз
-------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
Gothic_Snake |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 45 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Код program AI; uses crt; Const privet:array[0..3] of string=('Hellow', 'Hie', 'Good evening', 'Good morhihg'); var slovo: string; i:Integer; Succ:Boolean; begin clrscr; readln(slovo); succ:=false; for i:=0 to 3 do begin if privet[i]=slovo then begin succ:=true; break; end; end; if not succ then writeln('You didnt say hellow-YOU IS A BAD MAN'); else writeln('Hellow to you to. What is you name') readkey; end. Сообщение отредактировано: Gothic_Snake - 23.12.2005 23:41 |
Костян |
![]() ![]()
Сообщение
#5
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Большое спасибо, правда я нашел несколько ошибок- вот рабочий вариант:
Код program AI; uses crt; Const privet=array[0..3] of string=('Hellow', 'Hie', 'Good evening', 'Good morhihg'); var slovo: string; i:Integer; Succ:Boolean; begin clrscr; readln(slovo); succ:=false; for i:=0 to 3 do begin if privet[i]=slovo then begin succ:=true; break; end; end; if not succ then writeln('You didnt say hellow-YOU IS A BAD MAN'); else writeln('Hellow to you to. What is you name') readkey; end. -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
Altair |
![]()
Сообщение
#6
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
тему пора в юмор...
Цитата Родилась идея создать нечто "Искуственного интелекта" и далее... Цитата Это все конечно круто, но все равно не пашет, кто нить напишите кодом, плиииз ![]() ![]() -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Костян |
![]()
Сообщение
#7
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Издеватся над новичками- не гуманно и подло
![]() -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
volvo |
![]()
Сообщение
#8
|
Гость ![]() |
Цитата вот рабочий вариант: Не был он никогда рабочим в таком виде... Ты запускать-то его пробовал? Он у тебя даже не откомпилится...Прежде чем за ИИ браться, ты б хоть основы языка выучил... |
Костян |
![]()
Сообщение
#9
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Пардон, не тот кусок кода
![]() Код program AI; uses crt; Const privet:array[0..3] of string=('Hellow', 'Hie', 'Good evening', 'Good morhihg'); var slovo: string; i:Integer; Succ:Boolean; begin clrscr; readln(slovo); succ:=false; for i:=0 to 3 do begin if privet[i]=slovo then begin succ:=true; break; end; end; if not succ then writeln('You didnt say hellow-YOU IS A BAD MAN') else writeln('Hellow to you to. What is you name'); readkey; end. Сообщение отредактировано: Костян - 23.12.2005 23:39 -------------------- ...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор... ...и было в том договоре сказано.... ...что будет создан ночной дозор для контроля темных программистов... ...и будет создан дневной дозор для надзора за светлыми программистами... ..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ............. |
Gothic_Snake |
![]()
Сообщение
#10
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 45 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Ну опечаталси немного, с кем не бывает
![]() 2Костян А что ты подразумеваешь под ИИ? Если так подумать, по протокол Telnet в твоем понимании тоже ИИ? ![]() |
Altair |
![]()
Сообщение
#11
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата Издеватся над новичками- не гуманно и подло а кто издивается и где ? ![]() Просто ИИ это даже не тема для докторской... это из разряда глобальных проблемм... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
![]()
Сообщение
#12
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Вы меня конечно извините, но помоему вот так :
Код Succ:Boolean; делать неприлично ![]() зарезервированное слово как ни как ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
GoodWind |
![]()
Сообщение
#13
|
![]() Автооответчик ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
Цитата А что ты подразумеваешь под ИИ? Если так подумать, по протокол Telnet в твоем понимании тоже ИИ? ![]() ![]() ![]() -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
Gothic_Snake |
![]()
Сообщение
#14
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 45 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
Вы меня конечно извините, но помоему вот так : Код Succ:Boolean; делать неприлично ![]() зарезервированное слово как ни как ... succ - это от слова Success, что в переводе - успех... Это не зарезервированное слово, а функция, определенная, по моему, в System всегда мона обратиться через system.succ ... |
Altair |
![]()
Сообщение
#15
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата делать неприлично nea.gif зарезервированное слово как ни как ... нет, оно не зарезервированно ... вот begin : boolean написать нельзя, а writeln: boolean можно ![]() Цитата всегда мона обратиться через system.succ ![]() -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
![]()
Сообщение
#16
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Ну да .. жизнь вообще прекрасна, давайте вот так писать программы будем :
type -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Gothic_Snake |
![]()
Сообщение
#17
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 45 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
|
Altair |
![]()
Сообщение
#18
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата Ну да .. жизнь вообще прекрасна, давайте вот так писать программы будем : хыы... можно нехилую прогу написать тогда ))) -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 2:54 |