| Вопрос: Работа с числами | Добавлено: 23.09.04 21:05 |
Автор вопроса:  ASiD | ICQ: 259132473 |
| Дано число. Нужно вывести на экран все числа, которые получились при перестановке чисел этого числа. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 23.09.04 23:31 |
| Задание не ясно, давай пример | ||
|
Номер ответа: 2 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #2 | Добавлено: 24.09.04 05:37 |
Так, если я правильно понял вопрос…
 im n As Integer
im x() As Integer
Private Sub PRGenerate(ByVal k As Integer) im i As Integer
If k = n Then For i = 1 To n txt.Text = txt.Text & CStr(x(i)) Next txt.Text = txt.Text & vbCrLf Else For i = k + 1 To n Swap x(k + 1), x(i) PRGenerate k + 1 Swap x(k + 1), x(i) Next End If End Sub Private Sub Swap(ByRef a As Integer, ByRef b As Integer) im c As Integer
c = a a = b b = c End Sub Private Sub Command1_Click() im i As Integer
n = CInt(InputBox("Введите N"  )
ReDim x(n) For i = 1 To n x(i) = i Next PRGenerate 0 End Sub |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 24.09.04 10:06 |
| Могу на Си такой выслать... У кого-то на курсовик такое троешное задание было, делал... | ||
Страница: 1 |