Форум «Всё о Паскале» > Искуственный интелект

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Костян

24.12.2005 2:10

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

Код

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

24.12.2005 2:29

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

Костян

24.12.2005 2:59

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

Gothic_Snake

24.12.2005 3:11

Код

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:20

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

Код

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

24.12.2005 3:21

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

Цитата

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

и далее...

Цитата

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

Костян

24.12.2005 3:22

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

volvo

24.12.2005 3:29

Цитата

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

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

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

Костян

24.12.2005 3:38

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

Код

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:44

Ну опечаталси немного, с кем не бывает

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

Altair

24.12.2005 3:50

Цитата

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

а кто издивается и где ?

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

klem4

24.12.2005 14:33

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

Код

Succ:Boolean;

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

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

GoodWind

25.12.2005 18:04

Цитата

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

Gothic_Snake

25.12.2005 18:35

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

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

Код

Succ:Boolean;

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

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

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

Altair

25.12.2005 18:35

Цитата

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

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

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

Цитата

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

klem4

25.12.2005 18:44

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

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

Gothic_Snake

25.12.2005 18:50

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

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

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

Даыайте!

Altair

26.12.2005 1:58

Цитата

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

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

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.