profile
Размещено 5 лет назад по предмету Информатика от XameleonRus

ПАСКАЛЬ. Дано натуральное число N. Требуется получить и вывести на экран все возможные различные способы представления этого числа в виде суммы натуральных чисел (то есть, 1 + 2 и 2 + 1 – это один и тот же способ разложения числа 3). Решите задачу с помощью рекурсивной процедуры.

  1. Ответ на вопрос
    Ответ на вопрос дан Pashq4
    const PTR = 10;
    type razbivka = array[0..PTR] of byte;
    var n, i, z, k: byte;
    x: razbivka;
    procedure p(var x: razbivka; var z: byte);
    var i, j, s: byte;
    begin
    i := z - 1;
    s := x[z];
    while (i > 1) and ( x[i - 1] <= x[i] ) do
    begin
    s := s + x[i];
    dec(i);
    end;
    inc( x[i] );
    z := i + s - 1;
    for j := i + 1 to z do
    x[j] := 1;
    end;
    begin
    write('Введите число: ');
    readln(n);
    write(n,' = ');
    z := n;
    for i := 1 to z do
    x[i] := 1;
    for i := 1 to n do begin
    if i > 1 then write(' + ');
    write( x[i], '' );
    end;
    writeln;
    repeat
    p( x, z );
    inc(k);
    write( n,' = ' );
    for i := 1 to z do begin
    if i > 1 then write(' + ');
    write( x[i], '' );
    end;
    writeln;
    until z = 1;
    end.

    p.s: нашел в интернете для вас вариант с рекурсией. Сами можете убедиться, что с ней только хуже (по быстродействию уж точно)

    const  m = 100;
    var  a: array[1..m] of integer;
    k, n: integer;
    procedure p(j,n: integer);
    var  i: integer;
    begin if ( n = 0 ) and ( k > 1 ) then
    begin  for i := 1 to k do
    write( a[i] : 4 );
    writeln;
    end else for i := j to n do
    begin
    Inc(k);
    a[k] := i;
    p( j, n - i );
    Dec(k);
    end;
    end;
    begin
    write('Введите число: ');
    readln(n);
    k := 0;
    p(1,n);
    end.

    значения PTR и m можно поставить и больше, но тогда я не ручаюсь)
    1. Ответ на вопрос
      Ответ на вопрос дан XameleonRus
      Вау, если ввести в программе с рекурсией число 100 получается очень красиво ^_^
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
Никита081
Математика - 5 лет назад

Сколько здесь прямоугольников

Alinashastova
История - 6 лет назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

diankayusupova3
Литература - 6 лет назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

pakhotnov228
Русский язык - 6 лет назад

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

ggg3288
Русский язык - 6 лет назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2) ​

Аккаунт удален
Физика - 6 лет назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.