Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = 2*pi*R, S = pi*R^2

Категория: Delphi/Pascal
2011-11-13 18:29:13

В качестве значения pi использовать 3.14.

code: #pascal
Program Begin15;
Var
S,L,R,D:Real;
Begin
{После тупых преобразований S = pi*R^2 -> R = sqrt(S/pi), D = 2*R}
ReadLn(S);
R:=Sqrt(S/pi);
D:=2*R;
L:=2*pi*R;
WriteLn('D = ',D:6:3);
WriteLn('L = ',L:6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, окружность, диаметр, площадь, круг