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

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

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

Автор: nextzi0 25.11.2008, 16:23

Так как в основном приходится писать на ВБ, решил написать сюда
Есть одномерный отсортированный по возрастанию массив, состоящий из целых чисел (одинаковых чисел в нем нет). Элементы, идущие подряд, в нем нужно заменить на промежуток, и на выходе получить строку с этими промежутками, разделенными запятой
Напрмире, исх массив А, содержит числа 1,2,3,4,7,8,9,13,15,18,19,20
на выходе надо получить строку 1..4,7..9,13,15,18..20
Чето никак не соображу как это сделать... помогите плз smile

Автор: Akina 25.11.2008, 17:27

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

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

Автор: XOXOJI 26.11.2008, 10:17

держи, нежалко, хотя это пообще примитив...

Код


Private Sub Command1_Click()
Dim i, min As Integer
min = massiv(1)
For i = 2 To max_elements
  If massiv(i) > min + 1 Then
    Max = massiv(i - 1)
    text1.Text = text1.Text & min & ".." & Max & ","
    min = massiv(i)
  End If
Next i
End Sub

писал в блокноте, не проверял, но работать дожно поидее