Искуственный интелект, Хелп Опции

[Костян]

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

Код

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]

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

[Костян]

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

[Gothic_Snake]

Код

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 - 24.12.2005 3:41

[Костян]

Большое спасибо, правда я нашел несколько ошибок- вот рабочий вариант:

Код

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]

тему пора в юмор...

Родилась идея создать нечто "Искуственного интелекта"

и далее...

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

[Костян]

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

[volvo]

вот рабочий вариант:

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

Прежде чем за ИИ браться, ты б хоть основы языка выучил...

[Костян]

Пардон, не тот кусок кода

Код

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.

Сообщение отредактировано: Костян - 24.12.2005 3:39

[Gothic_Snake]

Ну опечаталси немного, с кем не бывает
2Костян А что ты подразумеваешь под ИИ? Если так подумать, по протокол Telnet в твоем понимании тоже ИИ?

[Altair]

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

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

[klem4]

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

Код

Succ:Boolean;

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

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

[GoodWind]

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

[Gothic_Snake]

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

Код

Succ:Boolean;

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

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

succ - это от слова Success, что в переводе - успех...
Это не зарезервированное слово, а функция, определенная, по моему, в System
всегда мона обратиться через system.succ
...

[Altair]

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

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

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

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

[klem4]

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

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

[Gothic_Snake]

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

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

Даыайте!

[Altair]

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

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