Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 0
Регистрация: 09.06.2016
Сообщений: 32
1

Заменить все четные элементы на их квадраты, а нечетные удвоить

18.03.2018, 23:32. Просмотров 1299. Ответов 1
Метки нет (Все метки)


Нашел четные и нечетные элементы, подскажите как их вывести в новый listbox ? И четные заменить на их квадраты, а неченые удвоить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim c As Long
N = Val(InputBox("введите количество элементов массива", , 10))
List1.Clear: ListBox1.Clear
ReDim A(N)
Randomize
For i = 1 To N
A(i) = Int(Rnd * 70) + 1
List1.AddItem A(i)
If A(i) Mod 2 <> 0 Then
        N = N + 1
    Else
        P = P + 1
    End If
    ListBox1.AddItem A(i)
Next i
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2018, 23:32
Ответы с готовыми решениями:

Заменить все четные элементы массива на их квадраты, а нечетные удвоить
Так и не пойму эти массивы, помогите с задачами, пожалуйста!!! 1. Удалить из массива М (26)...

Заменить все чётные элементы массива на их квадраты, а нечётные удвоить
Задача на массивы: &quot;Заменить все чётные элементы массива на их квадраты, а нечётные удвоить.&quot; ...

В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.
В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.

Все четные элементы заменить на их квадраты, а нечетные удвоить (переделать с указателями)
Необходимо переделать код, что бы в нем использовались указатели Дан массив целых чисел, все...

1
Заблокирован
18.03.2018, 23:51 2
Лучший ответ Сообщение было отмечено Jupin как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim c As Long
N = Val(InputBox("введите количество элементов массива", , 10))
List1.Clear: ListBox1.Clear
ReDim A(N)
Randomize
For i = 1 To N
A(i) = Int(Rnd * 70) + 1
List1.AddItem A(i)
If A(i) Mod 2 <> 0 Then
        N = N + 1
        A(i)=A(i)+A(i)
    Else
        P = P + 1
        A(i)=A(i)*A(i)
    End If
    ListBox1.AddItem A(i)
Next i
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2018, 23:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дан массив целых чисел. Все четные элементы заменить на их квадраты, а нечетные удвоить
Дан массив целых чисел. Все четные элементы заменить на их квадраты, а нечетные удвоить. (с исп....

Удвоить все четные элементы массива, а нечетные заменить на 0
Удвоить все четные элементы массива, а нечетные заменить на 0.

Массивы: все элементы, кратные 10, заменить 0, все нечетные элементы удвоить, а четные уменьшить в 2 раза
помогите написать программу (массивы) Дан массив целых чисел из 50 элементов. - Все элементы...

Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2;
Дан массив целых чисел из 50 элементов. Все элементы кратные 10 заменить 0; Все нечетные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.