Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Mongree
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 17
1

Разложение чисел на слагаемые, объясните по какому алгоритму работает программа

15.05.2018, 22:38. Просмотров 306. Ответов 1
Метки нет (Все метки)

вот код оконного приложения:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure TForm1.Button1Click(Sender: TObject);
var
N: Integer;
a: array[0..1000] of Integer;
 
procedure output(count:Integer);
var i:Integer;
begin
str:=InttoStr(a[1]);
for i:=2 TO count do
str:=str+'+'+InttoStr(a[i]);
Memo1.Text:=Memo1.Text+(Str+#13#10);
str:='';
end;
 
procedure p(k,summ:Integer);
var i:Integer;
begin
if(summ=N) and (k>2) then output(k-1);
if summ<N then
begin
for i:=1 to Min(N-summ, a[k-1]) do
begin
a[k]:=i;
p(k+1,summ+i);
end;
end;
end;
 
begin
Memo1.Text:='';
a[0]:=MaxInt;
N:=se1.Value;
//N:=StrtoInt(Edit1.Text);
 
 
str:='';
p(1,0);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//Edit1.Text:='1';
se1.Value:=1;
Memo1.Text:='';
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2018, 22:38
Ответы с готовыми решениями:

Объясните, пожалуйста, по какому алгоритму программа считает дисперсию
Объясните пожалуйста по какому алгоритму матлаб считает дисперсию? Никак не могу ни одной формулы...

Разложение на слагаемые
На входе у нас число (нат, пол) которое нужно разложить и ожидаймое количество слагаймых алгоритм...

Разложение на слагаемые
Подскажите идею для написания программы, желательно с рекурсией: Дано натуральное число n....

Разложение на слагаемые
Помогите пожалуйста с задачей: Нужно вывести все представления натурального числа N суммой...

Разложение числа на слагаемые
Не могу найти найти не рекурсивный алгоритм разложения числа на заданное кол-во слагаемых. Может у...

1
D1973
Модератор
4344 / 3133 / 1491
Регистрация: 21.01.2014
Сообщений: 13,384
Записей в блоге: 3
Завершенные тесты: 1
17.05.2018, 06:44 2
Это Вам к автору программы надо обратиться...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2018, 06:44

Разложение числа на слагаемые.
На входе у нас число (нат, пол) которое нужно разложить и ожидаймое количество слагаймых алгоритм...

Разложение числа на слагаемые
Разложение числа на слагаемые - используется во многих задачах (как мне кажется - это тривиальная...

Разложение числа на слагаемые
Здравствуйте, товарищи форумчане! Нужна помощь в доработке программы. #include &lt;stdio.h&gt; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru