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

ВАРИАНТ 23

Найти минимальное значение радиуса шара r (изменяется от r1 до r2 с ша-
гом k) и соответствующее значение радиуса основания r3 и высоты h ша-
рового сектора, для которых объем шарового сектора, для которых объем
шарового сектора не меньше объема куба со стороной t (t изменяется от t1
до t2 с шагом m одновременно с r). Угол α, в вершине сектора остается
неизменным. Используя процедуру решить задачу для всех вариантов ус-
ловий.

           r1     r2      k        t1      t2      m          α
           3,9    0,1     -0,1     0,1    3,2      0,1     97
           1,1    0,1    -0,01     0,2    3,1     0,01    177
          15,8    3,5     -0,1     1,8    13,5    0,1     155
           8,3    0,8     -0,1     1,5    8,2     0,1     179
           9,6    1,8     -0,1     0,5    7,9     0,1     133


ВАРИАНТ 24

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


    l     k      m      a1       a2       a       b       c        r     h1
   1,3   26,1    0,1    31,2     14,3    -0,1     2,6    2,0      1,6    2,4
   0,2    3,9    0,1    10,1     0,2     -0,1     1,7     0,9      0,5   0,2
   4,1   16,2    0,1    22,9     4,6     -0,1    21,1    15,0     12,7   3,4
   2,0    8,1    0,1    17,3     5,2     -0,1     2,5     8,1      3,7   1,1
   4,1   15,8    0,1    33,6     13,2    -0,1     9,9    6,4      7,9    5,1