Подсчитайте количество различных разбиений числа n на суммы натуральных слагаемых

@gradiusalisik · Регистрация: 19.01.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста решить задачку

magirus · 14.12.2011, 22:34

а в чем собственно проблема?

@gradiusalisik · 14.12.2011, 22:35 **[ТС]**

В задаче)), я плохо программирую , поэтому попросил помочь. Задача на нуле..

Памирыч · 14.12.2011, 22:37

Комментарий модератора

gradiusalisik, в другой раз за такое оформление тема закроется. За 2 года на форуме можно было Правила прочитать хотя бы раз

@gradiusalisik · 14.12.2011, 22:57 **[ТС]**

Сообщение от Памирыч

gradiusalisik, в другой раз за такое оформление тема закроется. За 2 года на форуме можно было Правила прочитать хотя бы раз

Я знаю правила , и чтобы вставить картинку протыкал кучу кнопок но так и не нашел где вставка .... , как оформлять я знаю, не знаю какая иконка что обозначает, если бы подписывались , мол гиперссылка , вставка картинки , а так , извините пожалуйста((((, не нашел

@gradiusalisik · 30.01.2012, 23:34 **[ТС]**

Тема актуальна, кто может решить задачу?
Пишите в личку

Памирыч · 31.01.2012, 06:01

Не по теме:

Сообщение от gradiusalisik

Пишите в личку

А говорите Правила знаете...

@gaw · 31.01.2012, 14:59

Visual Basic

Dim a()
Dim k As Integer
Private Sub Command1_Click()
Dim n%
n = Val(Text1.Text)
List1.Clear
ReDim a(1 To n)
 k = 0
 Slg n
End Sub
 
Sub Slg(n%)
Dim i As Integer
If (n = 0) And (k > 0) Then
st = ""
  For i = 1 To k
  st = st & a(i) & "  "
  Next i
  List1.AddItem Format(List1.ListCount + 1, "0#") & ":  " & st
Else
 For i = 1 To n
   k = k + 1
    If k > 1 Then
      If a(k - 1) < i Then GoTo 1
    End If
     a(k) = i
     Slg n - i
1 k = k - 1
 Next i
End If
End Sub

@gradiusalisik · 31.01.2012, 16:31 **[ТС]**

Задача решена, спасибо большое gaw

@gradiusalisik 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 25
		1
	Подсчитайте количество различных разбиений числа n на суммы натуральных слагаемых 14.12.2011, 22:28. Показов 2818. Ответов 8 Метки нет (Все метки) Помогите пожалуйста решить задачку Миниатюры 0

magirus Почетный модератор 28046 / 15779 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	14.12.2011, 22:34	2
	а в чем собственно проблема? 0

@gradiusalisik 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 25
	14.12.2011, 22:35 [ТС]	3
	В задаче)), я плохо программирую , поэтому попросил помочь. Задача на нуле.. 0

@gradiusalisik 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 25
	14.12.2011, 22:57 [ТС]	5
	Сообщение от Памирыч gradiusalisik, в другой раз за такое оформление тема закроется. За 2 года на форуме можно было Правила прочитать хотя бы раз Я знаю правила , и чтобы вставить картинку протыкал кучу кнопок но так и не нашел где вставка .... , как оформлять я знаю, не знаю какая иконка что обозначает, если бы подписывались , мол гиперссылка , вставка картинки , а так , извините пожалуйста((((, не нашел 0

@gradiusalisik 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 25
	30.01.2012, 23:34 [ТС]	6
	Тема актуальна, кто может решить задачу? Пишите в личку 0

Памирыч
	31.01.2012, 06:01 #7
	Не по теме: Сообщение от gradiusalisik Пишите в личку А говорите Правила знаете... 0

@gradiusalisik 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 25
	31.01.2012, 16:31 [ТС]	9
	Задача решена, спасибо большое gaw 0