Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вычисление площади поверхности и длины экватора оформите отдельными функциями — QBasic(Бейсик)

  ' LAB 4_3
  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)

Leave a Comment