{* Задача415 *}

REM basic

' Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора


  Const Pi = 3.141592653589793#
CLS
  Dim Radius As Double, Ssphere As Double
  Dim DlinEkvator As Double
 
  DEF FnSPow (R As Double) = 4 * Pi * SQR(R)
  DEF FnEkvator (R As Double) = 2 * Pi * R
 
  INPUT "Vvedite radius planeti:", Radius
  PRINT "Ploshad povrhnosti planeti:"; FnSPow(Radius)
  PRINT "Dlina ekvatora:"; FnEkvator(Radius)
End