VBNet - Форум - Помогите с массивом!!!

Вопрос: Помогите с массивом!!! Добавлено: 31.05.06 10:41

Автор вопроса: V1kozy

Эт снова я :).... я уже писал про эту задачу, и снова прошу помощи...

Составить программу для упорядочения по возрастанию элементов КАЖДОЙ СТРОКИ ДВУМЕРНОГО массива...

я сделал "пузырек", а вот как упорядочить элементы КАЖДОЙ СТРОКИ, не знаю...помогите пожалуйста..

Private Sub Command1_Click()

Dim c(1 To 6) As Single

For i = 1 To 5
c(i) = InputBox("Ìàññèâ")
Print "c("; i; ")="; c(i)

Next i

For i = 1 To 4
For j = 1 To 4
If c(j) > c(j + 1) Then
r = c(j)
c(j) = c(j + 1)
c(j + 1) = r
End If
Next j
Next i
Print "<--Ïîñëå Ñîðòèðîâêè-->"
For i = 1 To 5
Print "c("; i; ")="; c(i)

Next i

End Sub

Ответить

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

Номер ответа: 1 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #1	Добавлено: 31.05.06 11:35
	В цикле по I Сортировать (i,0)(i,1)..(i,j) Хотя, это еще неизвестно, что считать строкой. Массив - не матрица. Ответить

Номер ответа: 2 Автор ответа: V1kozy Вопросов: 3 Ответов: 13	Профиль \| \| #2	Добавлено: 31.05.06 14:19
	2 Fever это как ? ...кто нибудь напишите пожалуйста... Ответить

Номер ответа: 3 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #3	Добавлено: 31.05.06 17:01
	Ну строка-это что? Первое измерение? Второе? Если строка - 1оеб то это то что я сказал, если нет, то наобормот. dim stroka,stolbec,tmp,flag For Stroka=0 to KolStrok Again: flag=false for Stolbec=1 to KolStolbcov if Massiv(Stroka,stolbec-1)>Massiv(Stroka,stolbec) then tmp=Massiv(Stroka,stolbec-1) Massiv(Stroka,stolbec-1)=Massiv(Stroka,stolbec) Massiv(Stroka,stolbec)=tmp flag=true end if next j if flag then goto Again next i Ответить

Номер ответа: 4 Автор ответа: Денис Вопросов: 1 Ответов: 5	Профиль \| \| #4	Добавлено: 02.06.06 00:46
	Select Case KeyAscii Case 8, 48 To 57 'backspace + цифры от 0 до 9 Case Else Beep KeyAscii = 0 End Select чтоб нельзя было вводить другие символы стоит сделать на них запрет и вслучае неверных символов будет звук)) Ответить

Страница: 1 |