жадные алгоритмы

[ilonchik]

всем привет! помогите,пожалуйста,написать код на delphi.вот сама задача:Сдача с доллара. Пусть требуется набрать сумму в n центов, используя наименьшее количество монет. Опишите жадный алгоритм, набирающий n центов с помощью монет достоинством в 25, 10, 5 и 1 цент.

[Mad_Cat]

а в чем сложность то?
судя по вики http://ru.wikipedia.org/wiki/Жадный_алгоритм там вообще делать нечего!

var a:array[1..4] of integer;
    c:array[1..4] of integer;
n,i:integer;
begin
readln(n);
a[1]:=25;a[2]:=10;a[3]:=5;a[4]:=1;
for i:=1 to 4 do  begin
c[i]:=n div a[i];
if c[i]<> 0 then writeln(c[i],' - ',a[i]);
n:=n -c[i]*a[i];
end;
readln;
end.

для n= 97
3 - 25
2 - 10
2 - 1

[ilonchik]

спасибо вам огромное!)))))))я просто вообще не понимаю как жадные алгоритмы работают)))

[maddanil]

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

а в чем сложность то?
судя по вики http://ru.wikipedia.org/wiki/Жадный_алгоритм там вообще делать нечего!

var a:array[1..4] of integer;
    c:array[1..4] of integer;
n,i:integer;
begin
readln(n);
a[1]:=25;a[2]:=10;a[3]:=5;a[4]:=1;
for i:=1 to 4 do  begin
c[i]:=n div a[i];
if c[i]<> 0 then writeln(c[i],' - ',a[i]);
n:=n -c[i]*a[i];
end;
end.

При 97 ничего не выводит,да и при любом другом числе.

[Mad_Cat]

При 97 ничего не выводит,да и при любом другом числе.

а

readln;

перед

end.

добавить никак?

[maddanil]

Окей братюнь,все пошло у меня