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

UptoLike

Составители: 

ВАРИАНТ 19
Найти минимальное значение радиуса шара
r (изменяется от r1 до r2 с ша-
гом
k) и соответствующее значение радиуса нижнего основания r4 и вы-
соты
h шарового слоя, для которых объем шарового слоя не меньше объ-
ема прямоугольного параллелепипеда со сторонами
t, b и c (сторона c из-
меняется от
c1 до c2 с шагом m одновременно с r). Центральный угол
нижнего основания шарового слоя α
и центральный угол верхнего основа-
ния шарового слоя
β остаются неизменными. Используя процедуру ре-
шить задачу для всех вариантов условий.
r1 r2 k t b c1 c2 m
α β
0,6 11,6 0,1 1,5 2,4 7,7 1,3 -0,1 177 105
2,7 16,2 0,1 4,1 14,8 16,8 0,7 -0,1 169 22
0,1 0,9 0,01 1,1 0,02 5,2 1,1 -0,1 162 25
16,6 29,8 0,1 19,3 16,2 40,4 15,1 -0,1 155 5
14,2 22,4 0,1 15,1 27,2 55,5 22,6 -0,1 179 33
ВАРИАНТ 20
Найти максимальное значение радиуса верхнего основания усеченного
прямого конуса
r1 (изменяется от l до n с шагом m) и соответствующее
значение высоты
h2 и образующей ob прямого конуса, для которых объем
усеченного прямого конуса не превышает объема шара радиуса
r3 ( изме-
няется от
r4 до r5 с шагом k одновременно с r1). Радиус нижнего основа-
ния
r2 и высота h1 усеченного прямого конуса остаются неизменными.
Используя процедуру решить задачу для всех вариантов условий.
l n m r4 r5 k r2 h1
0,3 4,4 0,1 15,5 5,1 -0,1 4,6 3,6
0,13 0,99 0,01 3,2 0,3 -0,01 1,02 0,66
1,8 4,4 0,1 12,2 1,9 -0,1 5,5 20,2
2,1 13,9 0,1 16,8 4,6 -0,1 16,0 6,3
0,8 2,5 0,1 4,4 1,1 -0,1 2,6 1,6
ВАРИАНТ 19

Найти минимальное значение радиуса шара r (изменяется от r1 до r2 с ша-
гом k) и соответствующее значение радиуса нижнего основания r4 и вы-
соты h шарового слоя, для которых объем шарового слоя не меньше объ-
ема прямоугольного параллелепипеда со сторонами t, b и c (сторона c из-
меняется от c1 до c2 с шагом m одновременно с r). Центральный угол
нижнего основания шарового слоя α и центральный угол верхнего основа-
ния шарового слоя β остаются неизменными. Используя процедуру ре-
шить задачу для всех вариантов условий.

   r1         r2        k        t        b     c1         c2      m          α   β
   0,6    11,6       0,1     1,5        2,4    7,7       1,3      -0,1     177    105
   2,7    16,2       0,1      4,1      14,8    16,8      0,7      -0,1     169     22
   0,1     0,9       0,01    1,1       0,02    5,2       1,1      -0,1     162    25
  16,6    29,8       0,1     19,3      16,2    40,4     15,1      -0,1     155     5
  14,2    22,4       0,1     15,1      27,2    55,5     22,6      -0,1     179     33


ВАРИАНТ 20

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


          l         n        m       r4       r5       k        r2       h1
         0,3       4,4      0,1      15,5     5,1      -0,1     4,6      3,6
         0,13      0,99     0,01      3,2     0,3     -0,01     1,02     0,66
         1,8        4,4     0,1      12,2     1,9      -0,1     5,5      20,2
         2,1       13,9     0,1      16,8     4,6      -0,1     16,0      6,3
         0,8       2,5      0,1       4,4     1,1      -0,1     2,6      1,6