Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Работа с массивами

Автор: Nightmare561 10.6.2008, 08:24

Здрасьте) помогите пожалста
Есть массив задаваемый из textbox:

Код


N = 10
av = Split(Text1, " ")
For i = 1 To N
a(i) = Val(av(i - 1))

Код сортироки:

Код


Public Sub Bin(Arr() As Long, ByVal N As Long)
Dim B As Long
Dim C As Long
Dim E As Long
Dim i As Long
Dim J As Long
Dim K As Long
Dim R As Long
i = 2
Do
 B = 1
 E = i - 1
 C = (B + E) \ 2
 Do While B <> C
  If Arr(C) > Arr(i) Then
   E = C
  Else
   B = C
  End If
  C = (B + E) \ 2
 Loop
 If Arr(B) < Arr(i) Then
  If Arr(i) > Arr(E) Then
   B = E + 1
  Else
   B = E
  End If
 End If
 K = i
 R = Arr(i)
 Do While K > B
  Arr(K) = Arr(K - 1)
  K = K - 1
 Loop
 Arr(B) = R
 i = i + 1
Loop Until Not i <= N
End Sub

Как сделать что к массиву применилась команда сортировки?

Автор: Akina 10.6.2008, 09:43

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 1 минуту и 21 секунду

Код


Call Bin(A, N)

Автор: KoT13 18.6.2008, 22:17

Люди помогите!!!Нужно решить задачу в старом GWBASIC!Полный завал smile

"Поменять местами первый и последний элемент однородного массива.Разработать блок-схему алгоритма и написать программу." Кто осилет,скиньте на ящик!УМОЛЯЮ!!!

Автор: kapbepucm 19.6.2008, 08:57

KoT13, что-то я не понимаю. У тебя же уже есть

Цитата(Nightmare561 @ 10.6.2008, 08:24

)

Код сортироки

Если он правильный, просто вызываешь эту процедуру

Цитата(Akina @ 10.6.2008, 09:43

)

Call Bin(A, N)