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

Публикувано на 07 март, понеделник от Данаил

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

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

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

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

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

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

  1. Боряна каза:
    07 март, понеделник в 16:20 
    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 каза:
    07 март, понеделник в 16:40 
     
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.

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