Ответы 2
Еще вопросы
-
1 Решите уравнение x^2-2x+y^2+2y+2=0
[tex]x^{2}-2x+y^{2} +2y+2=0[/tex] -
Как сделать так, чтобы программа отвечала "Я не знаю" если вопроса, заданного через консоль, нет в коде?
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.-
Предмет:
Информатика -
Автор:
fraulinef02u - 6 лет назад
-
Ответов:
2 -
Смотреть
-
- Площадь каждой пластины плоского конденсатора 200 см^2, расстояние между пластинами 1 мм, а напряжение 600 В. Найти заряд конденсатора.
-
Угол B прямоугольного треугольника ABC равен 30 градусам.Найдите катет CA,если гипотенуза AB равна 28см
-
Предмет:
Геометрия -
Автор:
chiquitalawson - 6 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years