1. Як виконується фрагмент алгоритму наведений на малюнку 3.42? 2. Як виконується фрагмент алгоритму наведений на малюнку 3.44?

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.