1 2 3 4 5 6 7 8 9 10 11 12 | ' 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) |