SHARE
TWEET

Untitled

a guest Oct 21st, 2019 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program CMD;
  2. Var a,b,b1,b2:Integer;
  3. Begin
  4. WriteLn('CMD created by Miron27khv.');
  5. WriteLn('!Введи 0 для просмотра списка команд!');
  6. WriteLn('"Но нсли ты такой умный, введи');
  7. WriteLn(' команду которая тебе нужна."');
  8.   While not(a=9)
  9.   Do begin
  10.     Read(a);
  11.     Case a of
  12.       0:begin
  13.         WriteLn('[![СПИСОК КОМАНД]!]');
  14.         WriteLn(' 0-Я напишу этот же список.');
  15.         WriteLn(' 1-Калькулятор.');
  16.         WriteLn(' 2-секрет.');
  17.         WriteLn('"Я жду твоих действий..."');
  18.         End;
  19.       1:begin
  20.         WriteLn('[КАЛЬКУЛЯТОР]');
  21.         WriteLn('Выбери нужное действие.');
  22.         WriteLn(' 1-Сложение.');
  23.         WriteLn(' 2-Вычитание.');
  24.         WriteLn(' 3-Умножение.');
  25.         WriteLn(' 4-Деление.');
  26.         WriteLn(' 5-Выход.');
  27.         WriteLn('"Я жду твоих действий..."');
  28.           While not(b=5)
  29.           Do begin
  30.             Read(b);
  31.             Case b of
  32.               1:begin
  33.                 WriteLn('Введите слогаемые числа через пробел.');
  34.                 Read(b1,b2);
  35.                 WriteLn('=',b1+b2);
  36.                 End;
  37.               2:begin
  38.                 WriteLn('Введите вычитаемые числа через пробел.');
  39.                 Read(b1,b2);
  40.                 WriteLn('=',b1-b2);
  41.                 End;
  42.               3:begin
  43.                 WriteLn('Введите умножаемые числа через пробел.');
  44.                 Read(b1,b2);
  45.                 WriteLn('=',b1*b2);
  46.                 End;
  47.               4:begin
  48.                 WriteLn('Введите делимые числа через пробел.');
  49.                 Read(b1,b2);
  50.                 WriteLn('=',b1/b2);
  51.                 End;
  52.           End;
  53.       2:begin
  54.         WriteLn('Я еще тут ничего не сделал');
  55.         End;
  56.         End;
  57.   End;
  58. End;
  59. End;
  60. End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top