ЧАТ БОТ

[NexuS100]

Вот у меня есть чат-бот(вопрос - ответ)
У меня возникли 2 вопроса:

1. Что дописать что бы, когда я задаю вопрос боту, и он не знает на него ответа, он говорит "не знаю"
2. Что дописать, что бы, когда я говорю "пока", был конец программы(процедуры).

Код Pascal

Program chat;
uses crt;
var s:string;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
readln(s);
if s='привет' then
writeln('привет');
if s='как тебя зовут' then
writeln('Егор');
if s='Пока' then
writeln('Пока');
 end;
readln;
end.

[Sciv]

1. Что дописать что бы, когда я задаю вопрос боту, и он не знает на него ответа, он говорит "не знаю"

прописать все if...then через else и в конце дописать else WriteLn(''Не знаю');

2. Что дописать, что бы, когда я говорю "пока", был конец программы(процедуры).

if s='Пока' then begin
  writeln('Пока');
  break;
end;

[winhttp]

Правильней наверное не писать столько условий, а через case сделать:

case s of
 'привет' : writeln('привет');
 'как тебя зовут'  : writeln('Егор');
 'Пока' : 
begin
writeln('Пока');
break;
end;
end;

как то так

[Slym]

const
  Q:array[0..2,0..1] of string=(('привет','привет'),
                                ('как тебя зовут','Егор'),
                                ('Пока','Пока'));
var
  Online,Ans:boolean;
  s:string;
  i:integer;
begin
  Online:=true;
  while Online do
  begin
    readln(s);
    Ans:=false;
    for i:=low(Q) to High(Q) do
    begin
      if s=Q[i,0] then
      begin
        writeln(Q[i,1]);
        Ans:=true;
        if i=2 then
          Online:=false;
        break;
      end;
    end;
    if not Ans then
      writeln('не знаю');
  end;
  readln;
end.

[Serge_Bliznykov]

winhttp, кстати,

Сообщение от winhttp

case s of
'привет'

так в Паскале (Delphi) нельзя.
получите ошибку: "[Error] xxxxxxx: Ordinal type required" - оператор CASE допустим только для перечисляемых типов данных

[Кольша]

NexuS100, с называнием темы "ЧАТ БОТ" вы сильно погорячились..а так..если хотите что бы больше ответов было и вопросов...можно создать бд вопрос|ответ и делать к ней запрос..после анализа текста..)

[brunis]

for i:=low(Q) to High(Q) do

Как работает такой цикл?? Вернее процедуры которые в нём находятся. Разьясните пожалуйсто кто может

[Poma][a]

Разьясните пожалуйсто кто может

Вам великая справка поможет

[Stilet]

for i:=low(Q) to High(Q) do

Инструкции Low и High возвращают первый и последний индекс массива. Соответственно для Q:array[0..2,0..1] это будет ноль и двойка