For i = 1 To 10
a(i) = Int(Rnd() * 10)
Print a(i); " ";
Next i
P = 0 'Счетчик элементов, встречающихся один раз
For j = 1 To 10
M = 0 'Счетчик чисел, равных а(j)
For i = 1 To 10
If a(j) = a(i) Then M = M + 1
Next i
If M = 1 Then P = P + 1
Next j
Print "Один раз зустрічаються"; P; "чисел(а)
End Sub
5. Cохраните проект под именем Лр10_Зад6 _Фамилия
ЗАВДАННЯ НА САМОСТІЙНУ (В) Й ПРАКТИЧНУ РОБОТУ (ВС,ЛС)
ЗАВДАННЯ 10.7.
Уровень 1 (згідно варіанту)
1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.
2. Зaдaны фамилии игроков баскетбольной команды и количество забитых ими мячей. Напечатать фамилии игроков, забивших самое большое и самое маленькое количество мячей.
3. В одномерном массиве произвольных чисел А(20) определить сумму и количество элементов, которые меньше -5 и номера которых кратны 4.
4. Даны два массива одинаковой размерности A(N) и B(N). Определить количество элементов, удовлетворяющих условиям:
A(i)> В(i); A(i)< B(i) и A(i)= B(i).
|
|
5. Из элементов массива C(N), содержащего четное количество элементов, сформировать два массива: A(N/2)и B(N/2 ). Массив А образовать из чисел, стоящих на нечетных местах массива С, а массив В — из чисел, расположенных на четных местах массива С. Порядок следования сохранить.
6. Объединить два массива A(N) и B(N) в массив C(2*N), этом элементы массива А должны занять нечетные места, а элементы массива В — четные.
Уровень 2 (згідно варіанту)
1. Изменить порядок следования элементов в массиве на обратный.
2. В одномерном массиве произвольных чисел A(10) найти наибольший элемент среди отрицательных чисел.
3. Найти средний возраст среди мальчиков и девочек на основе имеющихся сведений о годах рождения учащихся класса,
4, Подсчитать количество разных чисел, встречающихся в массиве A(10). Повторяющиеся числа учитывать один раз.
5. Подсчитать наибольшее число одинаковых идущих подряд элементов в заданном массиве A(10).
6. В одномерном массиве произвольных чисел A(10) вычислить количество первых отрицательных элементов.
7. В одномерном массиве произвольных чисел A(10) второй элемент поставить на место первого, третий — на место второго т.д. Первый элемент поставить на место последнего.
ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)
ЗАВДАННЯ 10.8-10.9. СТВОРІТЬ ПРОЕКТИ ЗГІДНО З ВАРІАНТОМ ІНДИВІДУАЛЬНОГО ЗАВДАННЯ.
ЛАБОРАТОРНА РОБОТА №10. ПРОЕКТУВАННЯ ДОДАТКІВ VB6, У ЯКИХ ДАНІ ОРГАНІЗОВАНІ У ВИГЛЯДІ ОДНОВИМІРНИХ МАСИВІВ. ЗАНЯТТЯ 3. СОРТУВАННЯ ЕЛЕМЕНТІВ МАСИВУ. ОБМІН ЗНАЧЕННЯМИ.