Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
bad alice
1

Получить все числа, которые входят в последовательность по одному разу

29.05.2012, 16:36. Просмотров 1354. Ответов 3
Метки нет (Все метки)

Люди,пожалуйста,помогите решить задачу.я в VBA полный ноль,экзамены и сессия на носу,нужно рещить пару задач.
1)Даны целые числа a1,...,a50. Получить последовательность b1,...,b50, которая отличается от исходной тем, что все нечётные члены удвоны.
вот мои соображения по решению
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub oo()
 
Dim b() As Single
Dim i As Integer
 
For i = 1 To 50
a(i) = Int(Rnd(2) * 10 - 3)
Cells(1, i).Value = a(i)
Next i
 
For i = 1 To 50
n = a(i) Mod 2
If n <> 0 Then
b(i) = a(i) * 2
Else
a(i) = b(i)
Cells(2, i).Value = b(i)
End If
Next i
такое решение не срабатывает,показывает ошибку
2)Даны целые числаa a1,..., an (в этой последовательности могут быть повторяющиеся члены).
Получить все числа, которые входят в последовательность по одному разу.
насчет этой задачи у меня вообще нет соображений
если не сложно,помогите,буду очень признательна...
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2012, 16:36
Ответы с готовыми решениями:

Получить все числа, которые входят в последовательность по одному разу
ввести с клавиатуры целое число n , целые числа a0,,,,,,,,an-1 (в последовательности могут быть...

Получить все числа которые входят в последовательность по одному разу
помогите написать программу даны целые числа A1..........An. получить все числа которые входят в...

Получить все числа, которые входят в последовательность по одному разу
Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется...

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все числа, которые входят...

__________________
3
Заблокирован
29.05.2012, 19:17 2
1:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub oo()
Dim i As Integer
Randomize
For i = 1 To 50
  Cells(i, 1) = Int(Rnd * 10 - 3)
  If Cells(i, 1) And 1 Then
    Cells(i, 2) = Cells(i, 1) * 2
  Else
    Cells(i, 2) = Cells(i, 1)
  End If
Next i
End Sub
А в чём ваша ошибка - не вник, проще показалось заново написать
1
bad alice
30.05.2012, 06:43 3
спс большое,буду разбираться)
Модератор
Эксперт Python
28525 / 15395 / 3043
Регистрация: 12.02.2012
Сообщений: 25,223
Записей в блоге: 4
30.05.2012, 14:47 4
В том ошибка, что массив a вообще не описан, а b описан как динамический, но память под него не выделена...

Добавлено через 7 минут
Решение 2-й задачи:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Task2(A() as integer, B() as integer, n as integer)
      n=0
      For j%=1 to Ubound(A,1)
           k%=0
           For l%=1 to Ubound(A,1)
                If A(j%)=A(l%) then k%=k%+1
           Next l%
           if k% = 1 then
             n=n+1
             B(n)=A(j%)
           End if
       Next j%
End Sub
 
Sub Start()
 
Dim AA(1 to 10) as integer
Dim BB(1 to 10) as integer
 
     AA(1)=5
     AA(2)=1
     AA(3)=-5
     AA(4)=5
     AA(5)=3
     AA(6)=4
     AA(7)=6
     AA(8)=7
     AA(9)=7
     AA(10)=12
 
     Task2 AA(),BB(),n%
 
     For i%=1 to n%
          Debug.print BB(i%)
     Next i%
 
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 14:47

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

Получить числа, которые входят в последовательность по одному разу
Доброго времени суток, прошу помощи в выполнении ниже перечисленных задач. №1 Даны целые числа...

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n 20). Получить все числа, которые входят в...

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n ≤ 20). Получить все числа, которые входят в...

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


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

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

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