VBNet - Форум - Помогите примерно перевести из VB в Delphi

Вопрос: Помогите примерно перевести из VB в Delphi Добавлено: 30.03.06 19:28

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

Dim X () As Integer
Dim Counter () As Integer
Dim Out() As Integer
Dim K As Integer
Dim N As Integer

Private Sub Razm ()
Dim i As Integer

N = CInt(InputBox("Введите N"))
K = CInt(InputBox("Введите K"))

K = K + 1

ReDim X(N)
   ReDim Out(K)

For i = 1 To N
     X(i) = i
Next
txtOut.Text = ""

ReDim Counter(K)
Counter(0) = 1

RazmSochGenerate 1
End Sub

Private Sub RazmSochGenerate ()
Dim i As Integer
Dim j As Integer
Dim n1 As Integer
Dim X1() As Integer

   If c = K Then

     X1 = X

     For i = 1 To K - 1
       n1 = 0
       For j = 1 To N
         If X1(j) <> 0 Then n1 = n1 + 1
         If n1 = Counter(i) Then
           Out(i) = X1(j)
           X1(j) = 0
           Exit For
         End If
       Next
     Next
     PRGenerate 0
   Else
     For Counter(c) = Counter(c - 1) To N - c + 1
       RazmSochGenerate c + 1
     Next
   End If
End Sub

Private Sub PRGenerate (ByVal k As Integer)
   Dim i As Integer

   If k = N Then
     For i = 1 To N
       txtOut.Text = txtOut.Text & CStr (Out (i))
     Next
     txtOut.Text = txtOut.Text & vbCrLf
   Else
     For i = k + 1 To N
       Swap Out (k + 1), Out (i)
       PRGenerate k + 1
       Swap Out (k + 1), Out (i)
     Next
   End If
End Sub

Private Sub Swap (ByRef a As Integer, ByRef b As Integer)
   Dim c As Integer

   c = a
   a = b
   b = c
End Sub

и ещё

Dim X () As Integer
Dim Counter () As Integer
Dim K As Integer
Dim N As Integer

Public Sub Soch()
Dim i As Integer

N = CInt(InputBox("Введите N"))
K = CInt(InputBox("Введите K"))

K = K + 1

ReDim X(N)

For i = 1 To N
      X(i) = i
Next
txtOut.Text = ""

ReDim Counter(K)
Counter(0) = 1

SochGenerate 1
End Sub

Private Sub SochGenerate(ByVal c As Integer)
Dim i As Integer
Dim j As Integer
Dim n1 As Integer
Dim Out() As Integer
Dim X1() As Integer

    If c = K Then
      ReDim Out(K)

      X1 = X

      For i = 1 To K - 1
         n1 = 0
         For j = 1 To N
           If X1(j) <> 0 Then n1 = n1 + 1
           If n1 = Counter(i) Then
             Out(i) = X1(j)
             X1(j) = 0
             Exit For
           End If
         Next
         txtOut.Text = txtOut.Text & CStr(Out(i))
      Next
      txtOut.Text = txtOut.Text & vbCrLf
    Else
      For Counter(c) = Counter(c - 1) To N - c + 1
         SochGenerate c + 1
      Next
    End If
End Sub

Заранее очень благодарен. Помогите plz очень надо. Форму сделал, всё посчитал, а как вывести все комбинации не знаю.
Ответить

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

Номер ответа: 1 Автор ответа: vito Разработчик Offline Client Вопросов: 23 Ответов: 879	Web-сайт: softvito.narod2.ru Профиль \| \| #1	Добавлено: 30.03.06 19:48
	Первый лот 100 у.е. Предоплата 30%. //------------------------ Кто больше? Ответить

Номер ответа: 2 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340	Профиль \| \| #2	Добавлено: 30.03.06 19:59
	150 у.е. Предоплата 20% Ответить

Номер ответа: 3 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #3	Добавлено: 31.03.06 00:04
	мдя... зубрить паскаль или копить двадцатку Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 31.03.06 01:26
	У мя до завтра акция, 95 у.е. Ответить

Номер ответа: 5 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #5	Добавлено: 31.03.06 17:12
	Врут они все. Деньги возьмут, а писать не будут. Потому что нет языка "elphi". Есть паскаль. Вообще мог бы написпть сам но времени ни фига нет Ответить

Номер ответа: 6 Автор ответа: Leha Вопросов: 37 Ответов: 68	Профиль \| \| #6	Добавлено: 31.03.06 18:56
	как тока программеры сей или вб начнут писать для делфи (или любого другога продукта борланда) ИМХО этот мир аканчательно сойдет сума Ответить

Номер ответа: 7 Автор ответа: vito Разработчик Offline Client Вопросов: 23 Ответов: 879	Web-сайт: softvito.narod2.ru Профиль \| \| #7	Добавлено: 31.03.06 23:20
	Leha А C++ Builder? Замечательная надо сказать весчь... И Борландовская Ответить

Номер ответа: 8 Автор ответа: Leha Вопросов: 37 Ответов: 68	Профиль \| \| #8	Добавлено: 01.04.06 13:54
	я магу канешна мега ашибатся но поему их обектники не совместимы не только с мелкософтовскими продуктами но и со своими собственными (я имею ввиду разные версии билдера) Ответить

Номер ответа: 9 Автор ответа: vito Разработчик Offline Client Вопросов: 23 Ответов: 879	Web-сайт: softvito.narod2.ru Профиль \| \| #9	Добавлено: 01.04.06 14:55
	И...? Аналогичное относится и к VC. Только билдер спокойно конвертирует проекты 6 студии под себя В общем можно и 7 только там подправить вручную кое - что приходится. Выбирая на данном этапе между .NET и билдером, я по прежнему часто отдаю предпочтение ему. Скорость разработки - сопоставима. Про скорость работы програм говорить излишне... Если бы борланд не был так хорош, он бы просто не выжил... Ответить

Номер ответа: 10 Автор ответа: BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142	Web-сайт: hunger.ru Профиль \| \| #10	Добавлено: 01.04.06 18:03
	А он и так загнулся и очередной аргумент: Окончание поддержки Delphi Ответить

Номер ответа: 11 Автор ответа: vito Разработчик Offline Client Вопросов: 23 Ответов: 879	Web-сайт: softvito.narod2.ru Профиль \| \| #11	Добавлено: 01.04.06 18:20
	Всему свое время... Но конкурировал с MS он очень успешно. Причем делал инструменты для разработки под их операционку, лучше чем они сами) Ответить

Номер ответа: 12 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #12	Добавлено: 02.04.06 00:36
	Да че хоть вы все похоронили дельфю!? все будет живо еще долго да и купивший проект будет оч. заинтересован в дальнейшем его развитии Ответить

Страница: 1 |