Работа с массивами
Dim A(3, 3) As Single
Private Sub Command1_Click()
For I = 0 To 3
For J = 0 To 3
A(I, J) = InputBox("Введите элемент ")
Next
Next
For I = 0 To 3
For J = 0 To 3
Print A(I, J);
Next
Next
S = 0
For I = 0 To 3
For J = 0 To 3
S = S + A(I, J)
Next
Next
Print "Сумма элементов", S
V = S / 16
Print "Среднее арифметическое", V
P = 1
For I = 0 To 3
For J = 0 To 3
P = P * A(I, J)
Next
Next
Print "Произведение элементов массива"; P
M = A(1, 1)
k = 1
l = 1
For I = 0 To 3
For J = 0 To 3
If M <= A(I, J) Then GoTo 10 Else
M = A(I, J)
k = I
l = J
10 Next
Next
M = A(1, 1)
k = 1
l = 1
For I = 0 To 3
For J = 0 To 3
If M >= A(I, J) Then GoTo 20 Else
M = A(I, J)
k = I
l = J
20 Next
Next
Print "Минимальный элемент ("; k; ","; l; ")="; M
F = 0
For I = 0 To 3
F = F + A(I, I)
Next
Print "Максимальный элемент"; F
N = 0
For I = 0 To 3
For J = 0 To 3
If A(I, J) >= -1 And A(I, J) <= 1 Then N = N + 1
Next
Next
Print " Сумма элементов "; N
End Sub
Задания по компьютерной арифметике
Примеры решений:
623900 перевести в 11-ричную
62390 |11
-623898 |56718 |11
2 -56716 |5156 |11
2 -5148 |468|11
8 -462| 42 | 11
6 -33 |3
9
39682211 = 62390010
Б)1567:224 +112714 =112721
Переведем в 9-ную систему:
112721 |9
-112716 |12524|9
5 -12519|9
5|1391|9
-1386 |9
5|154|9
153|9
1|17|9
-9|1
8
11272110=815559
В) 6748*12316 -111011010012
Ход решения: Выписываем все цифры заданного числа в обратном порядке и домножаем каждую на 8 в степени 0, 1, 2 и т.д. Затем все суммируем. 6748 = 4·80 + 7·81 + 6·82 = 44410
Выписываем все цифры заданного числа в обратном порядке и домножаем каждую на 16 в степени 0, 1, 2 и т.д. Затем все суммируем. 12316 = 3·160 + 2·161 + 1·162 = 29110
Выписываем все цифры заданного числа в обратном порядке и домножаем каждую на 2 в степени 0, 1, 2 и т.д. Затем все суммируем. 111011010012 = 1·20 + 0·21 + 0·22 + 1·23 + 0·24 + 1·25 + 1·26 + 0·27 + 1·28 + 1·29 + 1·210 = 189710
444*291-1897=127307
Переведем в 2-ичную систему:
Ход решения: Делим число на 2 и выписываем остатки 127307 = 63653·2 + 1 63653 = 31826·2 + 1 31826 = 15913·2 + 0 15913 = 7956·2 + 1 7956 = 3978·2 + 0 3978 = 1989·2 + 0 1989 = 994·2 + 1 994 = 497·2 + 0 497 = 248·2 + 1 248 = 124·2 + 0 124 = 62·2 + 0 62 = 31·2 + 0 31 = 15·2 + 1 15 = 7·2 + 1 7 = 3·2 + 1 3 = 1·2 + 1 Последний множитель перед 2 равный 1 записываем первым. Затем записываем найденные остатки в обратном порядке. Получаем: 11111000101001011