Matematické Fórum

martinko18

Zdravim Vas, moc sa v programovani nevyznam, len by som potreboval sfunkcnit tento priklad v pascale.

Napr. zadanie:
V obchode chceme zaplatiť nákup v hodnote 5.69 EUR. Používame bežnú sadu euro mincí, t. j. mince v hodnotách 1, 2, 5, 10, 20, 50 centov a 1, 2 eurá. Z každej hodnoty máme dostatočne veľa mincí. Aké mince použiť na zaplatenie vyššie spomenutej sumy, aby sme dokopy použili čo najmenej kusov?

Priklad, ktory ak viete, pomozte mi sfunkcnit - doplnit, aby fungoval:

const Mince : array [1..8] of longint =

(200, 100, 50, 20, 10, 5, 2, 1);

procedure Platba ( SumaVCentoch : longint );

var AktualnaSuma, m : longint;

begin

AktualnaSuma := SumaVCentoch;

m := 1;

while AktualnaSuma > 0 do begin

if Mince[ m ] <= AktualnaSuma then begin

writeln ( Mince[ m ] );

AktualnaSuma := AktualnaSuma -

Mince[ m ];

end else

inc(m);

end;

end;

frank_horrigan

Ahoj,

pascal jsem už dávno zapomněl, ale jestli ti pomůže algoritmus v pseudokódu, tak ti zkusím dát svůj pohled, jak bych to řešil.

Takže:

vstup: načíst ze standardního vstupu, a uložit do reálné proměnné (rikejme ji ToPay)
deklarovat celociselnou promennou (rikejme ji centsToPay, a do te ulozit ToPay vynasobenou 100 (tim budeme pracovat s centovymi mincemi, nebo jejich násobky)
vydělit centsToPay hodnotou 200, a vysledek ulozit do celociselne promenne twoEurCoinsPaid
provest deleni modulo centsToPay hodnotou 200, a vysledek ulozit do centsToPay
vydelit centsToPay hodnotou 100, a vysledek ulozit do promenne oneEurCoinsPaid
provet deleni modulo centsToPay hodnotou 100, a vysledek uložit do centsToPay
vydelit centsToPay hodnotou 50, a vysledek ulozit do promenne fiftyCentCoinPaid
provest deleni modulo.........
.
.
.
vydelit centsToPay hodnotou 2, vysledek ulozit do twoCentCoinPaid
provest modulo centsToPay 2, vysledek ulozit do oneCentCoinPaid

Vypsat na standardní výstup obsah výstupních proměnných

konec.

To je základ, teď (taky jsem mohl od začátku, ale schválně jsem to rozepsal) - když si na začátku deklaruješ pole, do kterého uložíš hodnoty mincí, a druhé pole, které bude obsahovat CentCoinPaid, tak celou operaci provedeš v jednom cyklu, který bude mít dva výkonné řádky.

Ošetření chyb vstupu, zaokrouhlení správného, ale "zbytečně" dlouhého vstupu a pod. neřešíme (pokud chceš (měl bys chtít), můžeš odřešit sám.

EDIT: operace dělení modulo (v C, Javě, a dalších několika modernějších jazycích má operátor '%' - a výsledkem je zbytek po celočíselném dělení

Dioxid · 26. 12. 2011 16:05

Zdravím, ten tvůj algoritmus jsem testoval na pár přikladech a přišel mi správný. Postup, který navrhoval ↑ frank_horrigan: jsem si dovolil zapsat do kódu. Rozdíl oproti tomu, co zde popsal, je ale takový, že výstup se neukládá do proměnné ale rovnou vypisuje. Případná změna na zápis do proměnné by ale byla jednoduchá.

Například pro vstup 146 centů se vypíše:
1 krat 100
2 krat 20
1 krat 5
1 krat 1

Code:

const Mince : array [1..8] of longint =

      (200, 100, 50, 20, 10, 5, 2, 1);

procedure Platba ( SumaVCentoch : longint );

var AktualnaSuma, m : longint;

begin

  AktualnaSuma := SumaVCentoch;

  m := 1;

  for m:=1 to 8 do begin

    if(aktualnasuma div mince[m]>0) then writeln(aktualnasuma div mince[m],' krat ',mince[m]);

    aktualnasuma:=aktualnasuma mod mince[m];

  end;

end;

martinko18 · 28. 12. 2011 17:52

Dakujem za pomoc, idem to este poskusat.

frank_horrigan · 29. 12. 2011 00:02

Já také děkuji, označím za vyřešené

Matematické Fórum

#1 25. 12. 2011 21:55 — Editoval martinko18 (25. 12. 2011 21:57)

Greedy (pažravý) algoritmus - Pascal

#2 25. 12. 2011 23:55 — Editoval frank_horrigan (26. 12. 2011 00:05)

Re: Greedy (pažravý) algoritmus - Pascal

#3 26. 12. 2011 16:05

Re: Greedy (pažravý) algoritmus - Pascal

Code:

#4 28. 12. 2011 17:52

Re: Greedy (pažravý) algoritmus - Pascal

#5 29. 12. 2011 00:02

Re: Greedy (pažravý) algoritmus - Pascal

Zápatí