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

                                                    ПРИЛОЖЕНИЕ 4.
                             Варианты заданий к лабораторным работам

                       по курсу "Информатика" на тему
                 ОСНОВЫ ПРОГРАММИРОВАНИЯ НА VBA
      Разработать алгоритм решения задачи и реализовать этот алгоритм в
среде VBA.

ВАРИАНТ 1
Найти минимальное значение радиуса шара R (изменяется от r1 до r2 с
шагом k) и соответствующее значение радиуса основания r4, вырезанного
из этого шара шарового сегмента, для которых объем шарового сегмента
не меньше объема шара радиуса r3. Высота шарового сегмента h остается
неизменной. Используя процедуру решить задачу для всех вариантов усло-
вий.

            r1        R2          k        r3        h
            19,3       0,7        -0,1    0,9       0,3
            33,6      20,5        -0,1    13,7     12,6
            11,1       3,3        -0,1    3,3       2,4
            15,9       8,2        -0,1    7,2       7,6
            2,54      1,09       -0,01    0,6      0,37

ВАРИАНТ 2
Найти минимальное значение высоты усеченного прямого конуса h1 (из-
меняется от l до n с шагом m) и соответствующее значения высоты h2 и
образующей прямого конуса s, для которых объем усеченного прямого ко-
нуса не меньше объема куба со стороной a. Радиус верхнего основания r1
и радиус нижнего основания r2 усеченного прямого конуса остаются не-
изменными. Используя процедуру решить задачу для всех вариантов усло-
вий.

             l         n          m        a        r1        r2
            12,6      0,3         -0,1    2,7       1,2      3,9
            16,9      4,1         -0,1    22,3     12,8      18,5
             1,9      0,3        -0,01    1,1      0,36      0,98
             7,2      3,9         -0,1    9,9       5,2      11,3
             3,2      0,4         -0,1    3,3       2,4       6,2