Денежна еденица

[kaznachey1993]

Украинский денежную единицу - 1 гривну можно разменять монетами по 1, 2, 5, 10, 25 и 50 копеек. Составить алгоритм, определяющий сколькими способами это можно сделать?

[kaznachey1993]

Посмотрите где ошибка

const mon:array[0..5] of byte=(1,2,5,10,25,50); 
      n=6; 
var i:integer; 
    c:array[1..6] of byte; 
    coin,peres:byte;

procedure next(max,sum:integer); 
var i:integer; 
begin 
if sum=0 then 
  begin 
   inc(peres); 
   exit; 
  end else if sum>=mon[max] then 
   begin 
     inc(c[max]); 
     next(max,sum-mon[max]); 
     dec(c[max]); 
   end; 
if max<>0 then next(max-1,sum); 
end;
begin 
coin:=10; 
peres:=0; 
next(n-1,coin); 
writeln('Способов уплаты:',peres);
readln; 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[009]

const mon:array[0..5] of byte=(1,2,5,10,25,50);
n=100;
var i,peres:integer;

procedure next(max,sum:integer);
var i:integer;
begin
if sum=0 then
begin
inc(peres);
exit;
end else 
for i:=max to 5 do
if sum-mon[i]>=0 then next(i,sum-mon[i]);
end;
begin
for i:=0 to 5 do
next(i,n-mon[i]);
writeln('Способов уплаты:',peres);
readln;
end.

[Serge_Bliznykov]

так устроит?

const
   n=5;
   mon:array[0..n] of byte=(1,2,5,10,25,50);
var
  coin,peres:integer;

procedure next(max,sum:integer);
begin
if sum=0 then
  begin
   inc(peres);
   exit;
  end
  else
  if sum>=mon[max] then
   begin
     next(max,sum-mon[max]);
   end;
 if max>0 then next(max-1,sum);
end;

begin
  coin := 100; {дано 100 копеек}
  peres:=0;
  next(n,coin);
  writeln('Способов уплаты:',peres);
readln;
end.

в массиве C происходило накопление вариантов. Но, раз Вы его не используете, я его позволил выпилить из кода...


to 009
"некузявно" использовать переменную peres без её иницилизации! В начале программы туда надо занести ноль.
Да-да, я знаю, что компилятор (с) Borland и так подобные переменные иницилизирует нулём, но обращаться к переменной до того, как в неё что-то записали - чревато и как минимум - не этично!