Основы программирования в среде Visual Basic for Application VBA (стр. 15 из 21)
19.
20. 
21.
22. 
23.
24. 
25.
26. 
27.
28. 
29.
30. 
. 12.2 Линейный алгоритм: вычисление по математическим и физическим формулам
Даны действительные числа А, В, С. По трем сторонам с длинами А, В, С можно построить треугольник. Найти пеpиметp треугольника.
Найти площадь сектора, радиус которого равен R, а дуга содержит заданное число радиан F.
Первый член возрастающей геометрической прогрессии a1 = 3, ее знаменатель q = 2. Найти сумму членов этой прогрессии с 20-го по 25-й.
Дана длина ребра куба. Найти объем куба и площадь его поверхности.
Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.
Дан радиус шара. Найти его объем.
Определить периметр правильного шестиугольника, описанного окружностью радиуса R.
Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.
Определить время падения камня с высоты H.
Дана сторона равностороннего треугольника. Найти площадь этого треугольника.
Рассчитать, какую массу соли и воды надо взять для приготовления раствора массой m грамм с массовой долей соли w%.
Определить высоту треугольника, если его площадь равна S, а основание больше высоты на величину А.
Три сопротивления R1, R2, R3 соединены последовательно. Найти сопротивление соединения.
Определить силу притяжения F между телами массы М1 и М2, находящимися на расстоянии Р друг от друга.
Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус описанной окружности.
Даны два действительных числа. Найти среднее арифметическое и среднее геометрическое их модулей.
Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
Найти площадь кольца, внутренний радиус которого равен 20, а внешний – заданному числу R (R > 20).
Треугольник является pавностоpонним. Известен радиус описанной окружности. Найти стороны треугольника.
Определить периметр правильного четырехугольника, описанного окружностью радиуса R.
Даны действительные числа А и В. Получить z = arctg(ab)+cos(b).
Вычислить координаты центра тяжести трех материальных точек с массами М1, М2, М3 и координатами (х1, y1), (x2, y2), (x3, y3).
Квадpат задан длиной стороны. Найти радиусы вписанной и описанной окружностей.
Вычислить расстояние между двумя точками с координатами x1, y1 и x2, y2.
Даны действительные числа А, В, С. По трем сторонам с длинами А, В, С можно построить треугольник. Найти площадь треугольника.
Найти длину сектора, радиус которого равен R, а дуга содержит заданное число радиан F.
Составьте программу, вычисляющую, сколько процентов от (А+В+С) приходится на А, В, С соответственно.
Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b).
Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
Даны два целых числа А и В. Получить их частное, остаток от целочисленного деления А на В, а также значение степени числа АВ.
12.3 Разветвляющийся алгоритм: выбор по условию
Даны действительные числа А, В, С, D. Выяснить, можно ли уместить прямоугольник со сторонами А, В внутри прямоугольника со сторонами C, D.
Даны действительные числа x, y, z. Hайти минимальное из них.
Даны действительные положительные числа А, В, С. Выяснить, пройдет ли кирпич с ребрами А, В, С в пpямоугольное отверстие со сторонами x, y.
Определить, лежит ли точка D (c,b), где с =
внутри прямоугольника, ограниченного осями координат, а также прямыми y=5 и x = 10. а1, а2, а3 – произвольные числа.Выяснить, существует ли треугольник с координатами вершин А(x1,y1), В(x2,y2), C(x3,y3), если да, то найти его площадь.
Даны действительные числа А, В, С. Проверить, выполняются ли неравенства А < В < С, если да, то присвоить А = В + С, иначе А = С – В.
Даны действительные числа x, y. Вычислить значение функции z = log(x – y) – x/y. Проверить принадлежность x и y области допустимых значений функции.
На плоскости расположена окружность радиуса R с центром в начале координат. Определить положение точки x с координатами (А, В) относитeльно окружности (лежит ли точка внутри окружности, на окружности или вне ее).
Даны круг радиуса R и квадрат со стороной А. Определить их взаимное положение при условии, что их центры совпадают.
Вывести на печать переменные А, В, С в порядке их возрастания.
Проверить, какие из чисел А, В, С принадлежат интервалу (1; 25) и не являются четными.
Даны действительные числа А, В. Если они оба отрицательные, то заменить каждое из них его квадратом, иначе – положительные из них увеличить в два pаза.
Выяснить, существует ли треугольник с координатами вершин А(x1; y1), В(x2; y2), C(x3; y3).
Даны действительные числа x, y. Вычислить значение функции z = log(x/y) – 1/x. Проверить, принадлежат ли x и y области допустимых значений функции.
Даны действительные числа А, В. Если они оба неотрицательные, то заменить каждое из них его кубом, иначе отpицательные из них заменить их модулями.
Даны площадь квадрата S1 и круга S2. Определить, поместится ли круг в квадрат и наоборот.
На плоскости расположена окружность радиуса R с центром в начале координат. Определить, лежат ли точки А(x1;y1) и B(x2;y2) на окружности.
Составить программу вычисления корней системы уравнений с двумя неизвестными
методом Крамера. Убедиться, что главный определитель не равен 0.Даны действительные числа А, В, С, D. Выяснить, можно ли уместить пpямоугольник со сторонами А, В внутри прямоугольника со сторонами C, D.
Вывести на печать переменные А, В, С в порядке их убывания.
Даны действительные числа x, y, z. Hайти максимальное из них.
Проверить, какие из чисел А, В, С, D не принадлежат интервалу (3,15).
Даны действительные числа x, y. Вычислить значение функции z = ln(x) – x/y, проверить, принадлежат ли x и y области допустимых значений функции.
Даны действительные числа А, В. Если они имеют pазные знаки, то напечатать их пpоизведение, иначе напечатать их квадpаты.
Выяснить, существует ли треугольник с длинами сторон А, В, С. Если да, то найти его площадь.
Даны действительные числа x, y. Вычислить значение функции z = arcsin(x) – y.
Даны действительные числа x, y, z. Получить максимальное из них по модулю.
Даны действительные числа x, y. Вычислить значение функции z = arcsin(x+y).
На каком из интервалов
лежит точка с координатой x? k1, k2, x – произвольные числа, причем k1<k2.Лежат ли обе точки D(a1; b1) и C(a2; b2) внутри круга радиуса R с центром в начале координат? Если такой точки нет, выдать соответствующее сообщение.
12.4 Циклический алгоритм: цикл с параметром
Найти среднее арифметическое положительных чисел, введенных с клавиатуры. Всего ввести N различных чисел.
Ввести с клавиатуры N чисел. Найти сумму тех из них, которые принадлежат интервалу (2; 9).
Для N введенных с клавиатуры чисел найти сумму положительных, кратных 3.
Для арифметической прогрессии 4, 9, 14, 19... найти первые n членов этой прогрессии.
Hайти сумму отрицательных значений функции Z=sin(5-x)/cos(x-2) для x, изменяющегося на отрезке [-5,12] с шагом 1.
Найти среднее арифметическое отрицательных чисел, введенных с клавиатуры. Всего ввести N различных чисел.
Найти среднее арифметическое чисел, принадлежащих отрезку [2,18], кратных 2 и введенных с клавиатуры. Всего ввести N различных чисел.
Hайти сумму значений функции, больших 2 Z=sin(1/x)+5cos(1/(x-3))+x для x, изменяющегося на отрезке [-3,8] с шагом 1.
Hайти n членов последовательности x1 =x2 = x3 =1; xk =xk-1 + xk-3.