IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Искуственный интелект, Хелп
Костян
сообщение 23.12.2005 22:10
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Родилась идея создать нечто "Искуственного интелекта" для начала написал что то типа приветствия- вы вводите приветствие и если оно есть в массиве то комп отвечает если нет- то "ругается". Казалось бы все просто, но компилятор выдает ошибку- проверьте плиз. И еще, если у кого есть идеи как упростить, то пишите...
Код
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.


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 17)
NorthAngel
сообщение 23.12.2005 22:29
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 25
Пол: Женский

Репутация: -  0  +


wacko.gif Сколько банальных ошибок: ))
Во-первых, массив privet должен быть константой, а блок const отсутствует.
Во-вторых, в описании privet отсутствуют ковычки.
В-третьих, что это за условие такое privet[2] в условном операторе? И еще две аналогичных ошибки.
В-четвертых, убери ; перед else.


--------------------
ошибки легче всего делаются и труднее всего находятся в самых простых местах программы =))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Костян
сообщение 23.12.2005 22:59
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Это все конечно круто, но все равно не пашет, кто нить напишите кодом, плиииз


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Gothic_Snake
сообщение 23.12.2005 23:11
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Код

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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Костян
сообщение 23.12.2005 23:20
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Большое спасибо, правда я нашел несколько ошибок- вот рабочий вариант:
Код
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.


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 23.12.2005 23:21
Сообщение #6


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


тему пора в юмор...
Цитата
Родилась идея создать нечто "Искуственного интелекта"

и далее...
Цитата
Это все конечно круто, но все равно не пашет, кто нить напишите кодом, плиииз

good.gif lol.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Костян
сообщение 23.12.2005 23:22
Сообщение #7


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Издеватся над новичками- не гуманно и подло !nono.gif


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 23.12.2005 23:29
Сообщение #8


Гость






Цитата
вот рабочий вариант:
Не был он никогда рабочим в таком виде... Ты запускать-то его пробовал? Он у тебя даже не откомпилится...

Прежде чем за ИИ браться, ты б хоть основы языка выучил...
 К началу страницы 
+ Ответить 
Костян
сообщение 23.12.2005 23:38
Сообщение #9


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской

Репутация: -  0  +


Пардон, не тот кусок кода yes2.gif
Код
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


--------------------
...И заключили ТЕМНЫЕ И СВЕТЛЫЕ програмисты договор...
...и было в том договоре сказано....
...что будет создан ночной дозор для контроля темных программистов...
...и будет создан дневной дозор для надзора за светлыми программистами...
..................ТАК НАЧИНАЛАСЬ ЖИЗНЬ ТУРБО ПАСКАЛЯ.............
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Gothic_Snake
сообщение 23.12.2005 23:44
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Ну опечаталси немного, с кем не бывает unsure.gif
2Костян А что ты подразумеваешь под ИИ? Если так подумать, по протокол Telnet в твоем понимании тоже ИИ? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 23.12.2005 23:50
Сообщение #11


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Издеватся над новичками- не гуманно и подло

а кто издивается и где ?smile.gif
Просто ИИ это даже не тема для докторской... это из разряда глобальных проблемм...


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 24.12.2005 10:33
Сообщение #12


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Вы меня конечно извините, но помоему вот так :

Код
Succ:Boolean;


делать неприлично nea.gif

зарезервированное слово как ни как ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
GoodWind
сообщение 25.12.2005 14:04
Сообщение #13


Автооответчик
*****

Группа: Модераторы
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
А что ты подразумеваешь под ИИ? Если так подумать, по протокол Telnet в твоем понимании тоже ИИ?

lol.gif lol.gif lol.gif


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Gothic_Snake
сообщение 25.12.2005 14:35
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Цитата(klem4 @ 24.12.2005 13:33) *

Вы меня конечно извините, но помоему вот так :

Код
Succ:Boolean;


делать неприлично nea.gif

зарезервированное слово как ни как ...

succ - это от слова Success, что в переводе - успех...
Это не зарезервированное слово, а функция, определенная, по моему, в System
всегда мона обратиться через system.succ
...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 25.12.2005 14:35
Сообщение #15


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
делать неприлично nea.gif

зарезервированное слово как ни как ...

нет, оно не зарезервированно ...
вот begin : boolean написать нельзя, а writeln: boolean можно smile.gif

Цитата
всегда мона обратиться через system.succ

good.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 25.12.2005 14:44
Сообщение #16


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Ну да .. жизнь вообще прекрасна, давайте вот так писать программы будем :

type
byte = integer;
var
crt : extended;
double : string;
inc,delete : array[1..6] of byte;



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Gothic_Snake
сообщение 25.12.2005 14:50
Сообщение #17


Новичок
*

Группа: Пользователи
Сообщений: 45
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


Цитата(klem4 @ 25.12.2005 17:44) *

Ну да .. жизнь вообще прекрасна, давайте вот так писать программы будем :

type
byte = integer;
var
crt : extended;
double : string;
inc,delete : array[1..6] of byte;


Даыайте! !zdarov.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 25.12.2005 21:58
Сообщение #18


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Ну да .. жизнь вообще прекрасна, давайте вот так писать программы будем :

хыы... можно нехилую прогу написать тогда )))


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.07.2025 2:54
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"