Меню от възможности

Да се изведе меню от няколко възможности, да се позволи на човек да избере някоя от тях (като въведе поредния и номер) и да се съобщи какво е избрал или да се извърши съответното действие.

Например: Лесна ли е тази задача?

  1. Много е лесна
  2. Не е лесна, но аз съм спец
  3. Олеле майчице!
  4. Моля не ме будете, още спя

Въведете вашият избор (1-4):

Публикувано в с етикети . Постоянна връзка.

4 коментара по Меню от възможности

  1. Боряна каза:
    program matematika;
    var
      reshenie, ocenka: integer;
    begin
      WriteLn('Reshete zadachata 2+7*3-1.');
      WriteLn('Vazmognite otgovori sa:');
      WriteLn('1. 18');
      WriteLn('2. 16');
      WriteLn('3. 22');
      Write('Izberete viarnoto reshenie:');
      ReadLn(reshenie);
      case (reshenie) of
      1, 2: begin
        WriteLn('Kakva e ocenkata vi po matematika? Vavedi:');
        ReadLn(ocenka);
        case (ocenka) of
        2..4: WriteLn('Taka i predpolagah...');
        5,6: WriteLn('Razocharovanie!');
        end;
        end;
      3: begin
        WriteLn('Kakva e ocenkata vi po matematika? Vavedi:');
        ReadLn(ocenka);
        case (ocenka) of
        2..4: WriteLn('Ne zaslugavash tazi ocenka!');
        5,6: WriteLn('Taka i predpolagah. :)');
        end;
        end;
      end;
      ReadLn;
    end.
    
  2. Alya каза:
     
    program Project1;
    var
      anime: integer;
    begin
      WriteLn('Koe ti e lubimoto anime?');
      WriteLn('1: Kaichou wa maid-sama');
      WriteLn('2: Kimi ni todoke');
      WriteLn('3: Noragami');
      WriteLn('4: Ne gledam ili ne haresvam animeta');
      Write('Vavedi lubimoto si anime: ');
      ReadLn(anime);
      case (anime) of
      1: WriteLn('I na meen! <3');
      2: WriteLn('Mnogo e sladko, nalii! <3');
      3: WriteLn('Adski e qkoo! <3');
      4: WriteLn('Gadno...');
      end;
      ReadLn;
    end.    
    

Вашият коментар