Написать программы. Программа-льстец. ** экране появляется вопрос "Кто ты: мальчик или...

Question

Написать программы.
Программа-льстец. На экране появляется вопрос "Кто ты: мальчик или девочка? Введите Д или М". В зависимости от ответа должен появиться текст " Мне нравятся девочки!" или " Мне нравятся мальчики!"

Comments

Паскаль?

---

да

---

Может помогу, минут через 50...

---

тебе файл .pas или откомпилированый?

---

Просто накалякай тут ответ,мы не соображаем 

---

uses GraphABC; procedure KeyDown(Key: integer); begin        case Key of         VK_Escape : Halt;  VK_L:  Writeln ('Мне нравятся девочки! ');         end;end;procedure KeyUp (Key: integer);begincase Key ofVK_V: Writeln ('Мне нравятся мальчики! ');VK_O: end;  end;begin begin writeln ('Кто ты: мальчик или девочка?'); end;  // Привязка обработчиков к событиям  OnKeyDown := KeyDown;  OnKeyUp := KeyUpend.

Answer 1

Вот вариант:   (смотри скрин)

Comments

вдруг там вирус

---

Какой?    Мне в больнице от гриппа уже поставили!!

---

Это уже по английски...   :))

Answer 2

Var
a:string;
begin
 writeln('Кто ты: мальчик или девочка?');
 readln(a);
  if (a='Д') or (a='д')  then
  writeln('Мне нравятся девочки!   ');
  if (a='М') or (a='м')  then
  writeln('  Мне нравятся мальчики!  ');
 end.

Comments

А если    д    или    м  ?    То есть я ввел строчные буквы??? 

---

Надо было указывать в задании)

---

Подправлю сейчас

---

uses GraphABC;

 
procedure KeyDown(Key: integer); 
begin

 
    

   case Key of
  
       VK_Escape : Halt;
  VK_L:  Writeln ('Мне нравятся девочки! ');
  
    
   end;
end;
procedure KeyUp (Key: integer);
begin
case Key of
VK_V: Writeln ('Мне нравятся мальчики! ');

VK_O: end;  
end;
begin
 begin
 writeln ('Кто ты: мальчик или девочка?');
 end;
  // Привязка обработчиков к событиям

  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp
end.