Блок-схема

[hitman12]

Здравствуйте помогите составить схему алгоритм для данной задачи:

Составить программу которая печатает все различные представления числа N в виде всевозможных сумм K натуральных чисел (N,K-вводиться, 1<K<N) если K=0 то выдать все возможные суммы. представление чисел отличающихся от только порядком слагаемых считаются одинаковыми.

[Sarumjan]

Блок схему типа нарисовать?

[hitman12]

да нарисовать

[SuperVisor]

Напиши алгоритм и по нему нарисуй - что сложного?

[megachuhancer]

Собственно, программа, решающая задачу. По ней можно нарисовать блок-схему.

program decomp;
{$apptype console}
var
   a: array[1..41] of integer;
   n, k: integer;
function min(a, b: integer): integer;
begin
   if a < b then min := a
   else min := b;
end;
procedure rec(depth, s, max: integer);
var
   i: integer;
begin
   if (s = 0) and ((depth = k + 1) or (k = 0)) then begin
      for i := 1 to depth - 2 do write(a[i], '+');
      writeln(a[depth - 1]);
   end;
   for i := 1 to min(max, s) do begin
      a[depth] := i;
      rec(depth + 1, s - i, i);
   end;
end;
begin
   read(n, k);
   rec(1, n, n-1);
end.

[hitman12]

как это не смешно может выглядеть но я не умею делать блок схемы алгоритмы составляю а блок схемы незнаю как делать

[Stilet]

блок схемы незнаю как делать

Достань програму которая такое делает.
Я помоему тут выкладывал ссыль на прогу BS1.0 пропусти ее через поиск.

[Utkin]

Гугл - FCEditor скачать

[hitman12]

Всем спасибо за помощь админы закройте тему