Покупка дисков

[dimon_snake]

100 дисков стоит сто рублей, 20 дисков - 30 рублей, 1 диск - 2 рубля
Какое минимально кол-во денег можно потратить на покупку n дисков?
n<=1000
Что-то я не учёл, помогите пожалуйста найти, что именно

var
n,sum,k:integer;
begin
  read(n);
  sum:=((n div 100)*100);
  n:=n mod 100; 
  if n=0 then
  begin
    write(sum);
    exit;
  end;
  k:=n div 20;
  sum:=sum + (k * 30);
  n:= n -  (k * 20);
  if n=0 then 
  begin
    write(sum);
    exit;
  end;
  sum:=sum + (n*2);
  write(sum);
end.

[Аватар]

sum:=(n div 100)*100+((m mod 100) div 20)*30+(n mod 20)*2;

[dimon_snake]

Сообщение от Аватар

sum:=(n div 100)*100+((m mod 100) div 20)*30+(n mod 20)*2;

Не катит
Делает те же тесты, что и у меня

[BDA]

Тестировал в дельфи, так что есть неподходящие операторы. Наверное, можно и покрасивее решить. Идея в том, что можно взять лишнюю упаковку, чтобы необходимое количество дисков вышло дешевле.

procedure TForm1.Button1Click(Sender: TObject);
const
  last = 2;
  count: array [0 .. last] of integer = (100, 20, 1);
  cost: array [0 .. last] of integer = (100, 30, 2);
var
  n, i, tmp, sum: integer;
  counts: array [0 .. last] of integer;
begin
  n := strtointdef(Edit1.text, 0);
  tmp := n;
  for i := 0 to last do
  begin
    counts[i] := tmp div count[i];
    tmp := tmp mod count[i];
  end;
  if tmp > 0 then
    inc(counts[last]);
  sum := counts[0] * cost[0];
  for i := last - 1 downto 0 do
  begin
    tmp := counts[i + 1] * cost[i + 1];
    if tmp > cost[i] then
      sum := sum + cost[i]
    else
      sum := sum + tmp;
  end;
  showmessage(inttostr(sum));
end;

[Serge_Bliznykov]

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

Что-то я не учёл,

как правильно заметил BDA, Вы не учитываете, что в некоторых ситуациях купить дисков больше, чем n, выйдет дешевле, чем купить ровно n дисков.
ну, например, подсчитайте, сколько нужно денег, чтобы купить 96 дисков?

[Аватар]

можно взять лишнюю упаковку

Хорошая мысля приходит опосля )) Тогда так

  j1:=n div 100;
  j2:=(n mod 100) div 20;
  j3:=n mod 20;
  sum:=Min(j1*100+j2*30+j3*2,Min(j1*100+(j2+1)*30,(j1+1)*100));

Это короче и точней чем у BDA, там ошибочка в логике есть

[Serge_Bliznykov]

Сообщение от Аватар

Хорошая мысля приходит опосля )) Тогда так

Высший класс, коротко, наглядно, надёжно.

[dimon_snake]

Действительно, дело в этом
Спасибо большое

[BDA]

Сообщение от Аватар

там ошибочка в логике есть

Ага, забыл хвост отбрасывать при замене.

procedure TForm1.Button1Click(Sender: TObject);
const
  last = 2;
  count: array [0 .. last] of integer = (100, 20, 1);
  cost: array [0 .. last] of integer = (100, 30, 2);
var
  n, i, tmp, sum: integer;
  counts: array [0 .. last] of integer;
begin
  n := strtointdef(Edit1.text, 0);
  tmp := n;
  for i := 0 to last do
  begin
    counts[i] := tmp div count[i];
    tmp := tmp mod count[i];
  end;
  if tmp > 0 then
    inc(counts[last]);
  sum := 0;
  for i := last - 1 downto 0 do
  begin
    tmp := counts[i + 1] * cost[i + 1] + sum;
    if tmp > cost[i] then
      sum := cost[i]
    else
      sum := tmp;
  end;
  sum := sum + counts[0] * cost[0];
  showmessage(inttostr(sum));
end;

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

Высший класс, коротко, наглядно, надёжно.

Полностью согласен.