Оглавление
1. Заданы длины ребер 3 прямоугольных параллелепипедов (т.е. всего 9 значений) и радиус R сферы. Определить число параллелепипедов, в которых размещается заданная сфера, и их общий объем. 3
2. Подсчитать в числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры 5
3. Определить день недели по известной дате. 6
4. Решение уравнения методом деления отрезка пополам 7
5. Вычислить сторону описанного шестиугольника 8
7. Координатами Х, У, З заданы 5 точек в трехмерном пространстве. Определить число точек, попадающих в куб с заданной стороной (куб расположен в области положительных значений Х, У, З при чем его ребра совпадают с осями) 11
8. Вывести число в его зеркальном отображении 14
9. Вычислить определенный интеграл для функции у= 3х2 14
10. Вывести на экран таблицы умножения (см. как в книге) 15
11. Найти длины диагоналей (по 2 сторонам и углу треугольника) 16
12. Определить углы треуольника 17
13. Пятиугольник. Площадь и радиус окружности по стороне. 18
14. По числу Н, вычислить какую-то формулу результат: 18
15. По сторонами треугольника вычислить радиус окружности, и найти угол. 20
16. Вычислить дальность полета 21
17. У призмы По катетам треугольника вычислить Площади основания, Площадь боковой, Объем 22
18. Подсчитать количество нечетных чисел в числе 23
19. Написать тест по таблице умножения. 24
20. Равнобедренный треугольник. Что-то по сторонам посчитать. 24
21. Массив. Создать отсортировать. 27
22. Вычисление суммы, какой-то X=2, X=3 и т.п. 28
23. Конус. Площадь полной поверхности и объем конуса 28
24. Числа последовательности 29
25. Решение уравнения методом деления отрезка пополам. 30
26. Массив. Определить минимальные максимальные элементы и т.д. 31
27. Сторона и площадь семиугольника 32
28. Сумма, н, икс, вычислить С. 33
29. Площадь треугольника 33
30. Площадь треугольника и радиус вписанной окружности 34
31. Массив, минимальное, максимальное значение и т .д. (похожая задача) 35
31. Площадь поверхности большей из сфер 36
32. Количество слов в строке. 37
33. Наименьшая цифра трехзначного числа 37
34. Параллепипед. Суммарный объем, количество ребер, с квадратными гранями 38
35. Максимальная высота подъема 40
36. Треугольник, площадь и радиус окружности. 41
37. Арифметические действия. Возвести в степень, н факториал 42
38. Блокнот 43
39. Перемещение формы 45
40. Калькулятор 47
41. Форматирование. Шрифт задать нужны размер, очертание. 49
42. Вычисление уравнения при условиях… 50
43. Вычисление уравнения 51
44. Решить уравнение , найти корни у. 51
45. Вычислить сумму при различных вариациях: 52
46. на 2 массива – на максимальные элементы в столбцах (какая-то мутная задача из чужой РГР) 53
47. В массиве найти сумму отрицательных чисел 55
48. Получение случайного числа 56
49. Округление до десятых, сотых, тысячных и т.д. 56
50. Подсчет количества определенных символов в тексте 56
60. Определение дня недели 56
61. Форматирование надписей 57
62. MsgBox 58
63. Решение квадратного уравнения ax2 + bx + c = 0 58
64. Проанализировать случайное число, заданное от 0 до 10. 58
65. Напечатать 10 чисел ряда Фибоначчи 58
66. Пример 2. Вычислить произведение 59
67. Протабулировать функцию sin(x) на отрезке [–π, π] с шагом 0,1. 59
68. Определить количество цифр в целом числе N. Для этого нужно делить число N на 10 до тех пор, пока в целой части числа не будет 0. Число делений равно числу цифр. K– число делений или цифр, INT – выделение целой части числа. 59
69. Массив. Найти максимум в одномерном массиве 60
70. Сортировка массива. 60
71. Массив. Вычислить произведение положительных элементов матрицы 61
72. Массив. Транспонирование матрицы (перемены местами строк и столбцов) 61
73. Вычислить сумму где f={5;-3;1;2}. 62
74. Вычислить выражение c=m!n!/(m+n)! 62
75. Дан текст. Определить количество предложений. Найти количество слов, начинающихся с буквы «п». 62
76. даны стороны прямоугольника: a=27018, b=3954. Вычислить его площадь и периметр 63
78. В компьютер вводятся два произвольных положительных числа - длины сторон двух кубиков. Компьютер должен подсчитать объем одного кубика - большего по размеру . 64
79. В компьютер вводится целое число a. 64
Если a<0, то компьютер должен сказать "Число отрицательно". 64
80. Запрет деления на ноль 65
81. Распечатать пары чисел - 101 1000 65
82. Во дворце 40 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала. 65
83. В компьютер вводится ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных. 65
84. В компьютер вводится ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных чисел и сколько нулей. 66
85. В компьютер один за другим вводятся произвольные символы. Ввод заканчивается символом "/". Подсчитать, какой процент от общего числа введенных символов составляют символ "W" и символ ":" по отдельности. 66
86. В компьютер вводится N чисел. Вычислить и один раз напечатать их сумму. 66
87. Таблица умножения 67
88. Поиск максимального из чисел 67
89. Двумерный массив 67
1. Заданы длины ребер 3 прямоугольных параллелепипедов (т.Е. Всего 9 значений) и радиус r сферы. Определить число параллелепипедов, в которых размещается заданная сфера, и их общий объем.
Option Explicit
Dim a As Single, b As Single, c As Single, q As Single, w As Single, e As Single, t As Single, y As Single, u As Single, i As Single, a1 As Single, b1 As Single, q1 As Single, w1 As Single, p As Single, y1 As Single, t1 As Single, p1 As Single, p2 As Single, p3 As Single, v As Single, v1 As Single, v2 As Single, v3 As Single
Private Sub Command1_Click()
p = 0
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
q = Val(Text4.Text)
w = Val(Text5.Text)
e = Val(Text6.Text)
t = Val(Text7.Text)
y = Val(Text8.Text)
u = Val(Text9.Text)
i = Val(Text10.Text)
If ((Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") Or (Text5.Text = "") Or (Text6.Text = "") Or (Text7.Text = "") Or (Text8.Text = "") Or (Text9.Text = "") Or (Text10.Text = "")) Then MsgBox ("Неверные данные")
If ((Text1.Text = "0") Or (Text2.Text = "0") Or (Text3.Text = "0") Or (Text4.Text = "0") Or (Text5.Text = "0") Or (Text6.Text = "0") Or (Text7.Text = "0") Or (Text8.Text = "0") Or (Text9.Text = "0") Or (Text10.Text = "0")) Then MsgBox ("Неверные данные")
a1 = Sqr(a ^ 2 + b ^ 2)
b1 = Sqr(a1 * a1 + c ^ 2)
If b1 < i Then
p1 = p + 1
v1 = a * b * c
Else
p1 = 0
v1 = 0
End If
q1 = Sqr(q ^ 2 + w ^ 2)
w1 = Sqr(q1 * q1 + e ^ 2)
If w1 < i Then
p2 = p + 1
v2 = q * w * e
Else
p2 = 0
v2 = 0
End If
t1 = Sqr(t ^ 2 + y ^ 2)
y1 = Sqr(t1 * t1 + u ^ 2)
If y1 < i Then
p3 = p + 1
v3 = t * y * u
Else
p3 = 0
v3 = 0
End If
v = v1 + v2 + v3
p = p1 + p2 + p3
Label1.Caption = v
Label2.Caption = p
End Sub
2. Подсчитать в числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры
Option Explicit
Dim i As Integer, k As Integer, w As Long, N As Integer, p As Integer, a As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
If ((Text1.Text = "") Or (Text1.Text = "0")) Then MsgBox ("Неверные данные")
Cls
w = InputBox("Введите число")
N = Len(w)
k = 0
For i = 1 To N
p = Mid(w, i, 1)
If p < a Then
k = k + 1
End If
Next i
MsgBox (k)
End Sub
3. Определить день недели по известной дате.
Option Explicit
Dim D As Date
Dim FormatString As String, dd As Integer, MM As Integer, yyyy As Integer
Private Sub Command1_Click()
dd = Val(Text1.Text)
MM = Val(Text2.Text)
yyyy = Val(Text3.Text)
D = dd - MM - yyyy
MsgBox (Format(D, "dddd"))
End Sub
4. Решение уравнения методом деления отрезка пополам
Option Explicit
Dim a As Double, b As Double, e As Double, c As Double, fa As Double, fb As Double, fc As Double
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
If ((Text1.Text = "") Or (Text2.Text = "")) Then MsgBox ("Неверные данные")
e = 0.00001
fa = 3 * Sin(Sqr(a)) + 0.35 * a - 3.8
fb = 3 * Sin(Sqr(b)) + 0.35 * b - 3.8
If fa * fb < 0 Then
Do While b - a > 2 * e
c = (a + b) / 2
fc = 3 * Sin(Sqr(c)) + 0.35 * c - 3.8
If fc <> 0 Then
If fa * fc < 0 Then
b = c
Else
a = c
fa = fc
End If
Else
Text3.Text = " x0 = " + Str(Round(c, 5))
Exit Sub
End If
Loop
c = (a + b) / 2
Text3.Text = " x0 = " + Str(Round(c, 5))
Exit Sub
Else
Text3.Text = " Уточните промежуток ! "
End If
End Sub
Private Sub Command2_Click()
End
End Sub