синтаксис некоторого простого языка программирования описан с следующих металингвистических формул

#include <iostream>

using namespace std;

void main()

{

   setlocale(LC_ALL, "ru");

   int suit = 1;

   cout << "Укажите масть - ";

   cin >> suit;

   cout << endl;

   

   switch (suit)

   {

   case 1:

   {

       cout << "Пики";

   }

   break;

   case 2:

   {

       cout << "Трефы";

   }

   break;

   case 3:

   {

       cout << "Бубны";

   }

   break;

   case 4:

   {

       cout << "Червы";

   }

   break;

   default:

       cout << "Ошибка ввода";

       break;

   }

   

}

Объяснение:

var

E: real;

n: integer;

begin

Writeln('Расчёт параметров окружности по одному известному');

Writeln('  1) радиус окружности (R)');

Writeln('  2) диаметр окружности (D)');

Writeln('  3) длина окружности (L)');

Writeln('  4) площадь круга (S)');

Write('Введите номер известного параметра= ');

Read(n);

Write('Введите значение данного параметра= ');

Read(E);

case n of

1: // известен R

begin

Writeln('D= ', 2 * E);

Writeln('L= ', 2 * Pi * E);

Writeln('S= ', Pi * Sqr(E));

end;

2: // известен D

begin

Writeln('R= ', E / 2);

Writeln('L= ', Pi * E);

Writeln('S= ', Pi * Sqr(E) / 4);

end;

3: // известна L

begin

Writeln('R= ', E / 2 / Pi);

Writeln('D= ', E / Pi);

Writeln('S= ', Sqr(E) / 4 / Pi);

end;

4: // известна S

begin

Writeln('R= ', Sqrt(E / Pi));

Writeln('D= ', 2 * Sqrt(E / Pi));

Writeln('L= ', Sqrt(4 * Pi * E));

end;

end;

end.