Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Помогите пожалуйста решить задачу!!! Срочно Добавлено: 06.01.12 02:35  

Автор вопроса:  Юля
Дан одномерный массив а вещественного типа, состоящий из n элементов. Элементы с чётными индексами поместить в массив b, а с нечетными в массив c(массив b должен состоять из m элементов, а массив с из k элементов, где m и k - число элементов массива а м чётными и нечетными индексами соответсвенно. Исходный и полученные массивы вывести на печать

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
  Профиль | | #1 Добавлено: 07.01.12 12:40
Что-то вроде этого:
  1. Dim x, bInput : bInput = False
  2.  
  3. Do
  4. x=InputBox("Введите размер массива", "Ввод информации", 5)
  5.  
  6. If IsNumeric(x) Then
  7. If (CInt(x)>0) Then bInput = True
  8. End If
  9.  
  10. Loop Until bInput
  11.  
  12. x = CInt(x)
  13. ReDim a(x)
  14.  
  15. Dim i
  16. Randomize
  17. For i = 0 To x-1
  18. a(i) = InputBox("Введите " & i+1 & " элемент массива", "Ввод информации", CInt(Rnd * (i + 1) * 10))
  19. Next
  20.  
  21. Dim y, z
  22. If ((x mod 2) = 0) Then
  23. y = x\2 ' четные
  24. z = x\2 ' нечетные
  25. Else
  26. y = (x\2) + 1
  27. z = x\2
  28. End If
  29.  
  30. ReDim b(y)
  31. ReDim c(z)
  32. For i = 0 To x-1
  33.  
  34. If (i mod 2) = 0 Then
  35. b(i\2) = a(i)
  36. Else
  37. c(i\2) = a(i)
  38. End If
  39.  
  40. Next
  41.  
  42. Dim msgA, msgB, msgC
  43. msgA = "" : msgB = "" : msgC = ""
  44. For i = 0 To x-1
  45. msgA = msgA & a(i) & vbCrLf
  46. Next
  47.  
  48. For i = 0 To y-1
  49. msgB = msgB & b(i) & vbCrLf
  50. Next
  51.  
  52. For i = 0 To z-1
  53. msgC = msgC & c(i) & vbCrLf
  54. Next
  55.  
  56. MsgBox "Исходный Массив" & vbCrLf & msgA & vbCrLf & "Массив Четных Индексов" & vbCrLf & msgB & vbCrLf &"Массив Нечетных Индексов" & vbCrLf & msgC

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам