Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
BoooM911
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 1
#1

Программа по одномерному массиву. - VB

28.11.2010, 18:32. Просмотров 405. Ответов 1
Метки нет (Все метки)

Нужно создать одномерный массив с n-действительных чисел.

Запрос ввести n( A1.... An)

Вычислить:

1). Разницу между max и min елементом
2). Сумму целых частей элементов массива расположенных после первого отрицательного элемента
3). Упорядочить элементы нового массиву, чтобы элемент располагался сначала все отрецательные по спадению, а затем все положительные по росту

Заранее спасибо.
http://www.cyberforum.ru/csharp-beginners/thread923959.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2010, 18:32
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа по одномерному массиву. (VB):

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

Задача по одномерному массиву
Доброго времени суток! Прошу помочь с решением вот такой задачи: С...

Задача по одномерному массиву
Помогите написать программу. Не могу понять с чего начать и как вообще...

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

Задача по одномерному массиву
Пусть даны две неубывающие последовательности действительных чисел a1 ≤ a2 ≤...

1
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
29.11.2010, 01:19 #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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Dim A() As Single, n As Integer
Dim max, min, diff As Single
Dim sum As Single, c As Integer
Dim arr1() As Single, i1 As Integer
Dim arr2() As Single, i2 As Integer
Dim arr3() As Single, i3 As Integer
c = 0
n = InputBox("n")
ReDim A(1 To n)
For i = 1 To n
A(i) = 100 * Rnd - 50
Next i
max = A(1)
min = A(1)
For i = 1 To n
 
If A(i) < 0 Then
i1 = i1 + 1: ReDim Preserve arr1(1 To i1): arr1(i1) = A(i)
ElseIf A(i) > 0 Then
i2 = i2 + 1: ReDim Preserve arr2(1 To i2): arr2(i2) = A(i)
Else
i3 = i3 + 1: ReDim Preserve arr3(1 To i3): arr3(i3) = A(i)
End If
 
If A(i) < 0 And c = 0 Then c = i
 
If A(i) > max Then max = A(i)
 
If A(i) < min Then min = A(i)
 
Next i
diff = max - min
sum = 0
For i = c To n
sum = sum + A(i)
Next i
 
Dim temp
For i = 1 To i1
For j = 1 To i1 - i
If arr1(j) < arr1(j + 1) Then
temp = arr1(j)
arr1(j) = arr1(j + 1)
arr1(j + 1) = temp
End If
Next j
Next i
 
For i = 1 To i2
For j = 1 To i2 - i
If arr2(j) > arr2(j + 1) Then
temp = arr2(j)
arr2(j) = arr2(j + 1)
arr2(j + 1) = temp
End If
Next j
Next i
 
Dim Arr() As Single, count As Single
ReDim Arr(1 To n)
For i = 1 To i1
Arr(i) = arr1(i)
Next i
 
For i = 1 To i3
Arr(i + i1) = arr3(i)
Next i
 
For i = 1 To i2
Arr(i + i1 + i3) = arr2(i)
Next i
txt = ""
For i = 1 To n
txt = txt & A(i) & " "
Next i
txt = txt & Chr(13)
For i = 1 To n
txt = txt & Arr(i) & " "
Next i
MsgBox "1 = " & diff & Chr(13) & "sum = " & sum & Chr(13) & "Array's:" & Chr(13) & Chr(13) & txt
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2010, 01:19
Привет! Вот еще темы с решениями:

К упорядоченному одномерному массиву приписать
К упорядоченному одномерному массиву приписать, не нарушая порядка, те элементы...

Задание по одномерному статистическому массиву
Задание по одномерному статистическому массиву!!! Задать массив D(6) по...

Нужна блок-схема к одномерному массиву
Заполнить и вывести на экран одномерный массив целых чисел. Program Primer1;...

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


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

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

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