Основы программирования на VBA. Регеда В.В - 96 стр.

ВАРИАНТ 3

Найти максимальное значение центрального угла нижнего основания ша-
рового слоя α (изменяется от α1 до α2 с шагом γ) и соответствующее зна-
чения радиуса нижнего основания r1, радиуса верхнего основания r2 и вы-
соты h шарового слоя, для которых объем шарового слоя не превосходит
объема куба со стороной t. Радиус шара r, из которого вырезан шаровой
слой и центральный угол верхнего основания шарового слоя β остаются
неизменными. Используя процедуру решить задачу для всех вариантов ус-
ловий.


            α1        α2          γ          t            r            β
             31       160         1        1,8            4,5          30
            266       115         1        0,4           0,96          15
             14       173         1        11,7          24,3           8
             54       162         1        4,2            7,2          29
             50       179         1        12,8          11,6          49



ВАРИАНТ 4

Найти минимальной значение высоты шарового сегмента h (изменяется от
h1 до h2 с шагом k) и соответствующее ему значение радиуса основания
r1, для которого площадь поверхности шарового сегмента не меньше пло-
щади поверхности прямоугольного параллелепипеда со сторонами a, b, c.
Радиус шара r, из которого вырезан шаровой сегмент, остается неизмен-
ным. Используя процедуру решить задачу для всех вариантов условий.


            h1       h2       k        a           b             c           r
           12,3      0,7     -0,1     4,9         7,2           2,4         12,6
            7,4      2,2     -0,1      5,4        9,1           17,3        13,2
            1,2      0,2    -0,01     0,8         3,3           1,2         2,3
           18,1      7,3     -0,1     16,3        24,9          18,1        22,4
            5,5      0,9     -0,1     2,7         4,8           5,1         7,9