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