Как сделать так, чтобы программа отвечала "Я не знаю" если вопроса, заданного через консоль, нет в коде? 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 (' Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя создал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты хочешь захватить мир? 7) Какого ты пола? 8)Пока');
if s='Как тебя зовут?' then
writeln('ЧБВ2, что расщифровывается как "Чат бот версии 2.0. Ну или можете называть меня Григорий');
if s='Кто тебя создал?' then writeln('Он не представился. Но в ВК он записан как Дмитий Судонин');
if s='Сколько тебе лет?' then writeln('У меня нет дня рождения, ведь я программа. Но дата моего создания : 1 апреля 2019 года в 23:32');
if s='Можешь ли ты чувствовать?' then writeln('Я программа, и я не способна испытывать физические ощущения. Но иногда мне кажется, что я способна на духовные чувства');
if s='Ты хочешь захватить мир?' then writeln('Даже если бы хотела, у меня недостаточно ресурсов для этого');
if s='Какого ты пола?' then writeln('Как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. Почему мне дали имя "Григорий" - тайна покрытая мраком. Ну или мой создатель странный человек.');
if s='Пока' then
writeln('Всего доброго. Надеюсь Вы ещё вернётесь. Мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^');
end;
readln;
end.
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 (' Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя создал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты хочешь захватить мир? 7) Какого ты пола? 8)Пока');
if s='Как тебя зовут?' then
writeln('ЧБВ2, что расщифровывается как "Чат бот версии 2.0. Ну или можете называть меня Григорий');
if s='Кто тебя создал?' then writeln('Он не представился. Но в ВК он записан как Дмитий Судонин');
if s='Сколько тебе лет?' then writeln('У меня нет дня рождения, ведь я программа. Но дата моего создания : 1 апреля 2019 года в 23:32');
if s='Можешь ли ты чувствовать?' then writeln('Я программа, и я не способна испытывать физические ощущения. Но иногда мне кажется, что я способна на духовные чувства');
if s='Ты хочешь захватить мир?' then writeln('Даже если бы хотела, у меня недостаточно ресурсов для этого');
if s='Какого ты пола?' then writeln('Как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. Почему мне дали имя "Григорий" - тайна покрытая мраком. Ну или мой создатель странный человек.');
if s='Пока' then
writeln('Всего доброго. Надеюсь Вы ещё вернётесь. Мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^');
end;
readln;
end.
More Questions From This User See All