Untill, repeat не использовать , с помощью else через CASEЭлементы...

Question

Untill, repeat не использовать , с помощью else через CASEЭлементы окружностипронумерованы следующимобразом: 1- радиус (R), 2 –диаметр (D), 3- длина (L), 4 -площадь круга (S). Данномер одного из этихэлементов и его значение.Вывести значения осталь-ных элементов даннойОкружности (в том жепорядке). В качествезначения лиспользоватьстандартную константу Рі.программа Pascalрешите пожалуйста​

Answer 1

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.

Comments

Спасибочки большое

---

Пожалуйста )