pomoc s programom v pascale

axxis

Napíšte program na výpis počtu platidiel (1 SK, 2 SK, 5 SK, 10 SK, 20 SK, 50 SK, 100 SK, 500 SK, 1000 SK a 5000 SK) určitej sumy peňazí s využitím typu vymenovaním hodnôt.

takze toto je zadanie, nieze by to bolo nejake tazke, len neviem ako to spravit s tym vymenovanim. ak by niekto vedel poradit

konyk87

hodnoty platidiel si daj do pola, od najvacsej po najmensiu (prva 5000, druha 1000, atd), potom zadas sumu a pouzijes celociselne delenie (modulo) postupne kazdym prvkom pola vysledok vynasobis hodnotou platidla a odratas od povodnej sumy...zaroven budes vypisovat

teda napr 7 483,-
7 483 % 5 000 = 1 x 5 000, 7 483 - 5 000 = 2483, vypises 1...
2 483 % 1 000 = 2 x 1 000, 2 483 - 2 000 = 483, vypises 2...
atd...

axxis

jooj

to si zlozito vymyslel

ono by to islo aj tak, ze si spravis premennu suma.

var suma:integer;

a robis toto

Kód: Vybrať všetko

write(suma div 5000);
suma:=suma mod 5000;
write(suma div 1000);
suma:=suma mod 1000;

a tak dalej a nepotrebujes ziadne pole ani nic
lenze tato uloha je dementna v tom, ze musim pouzit vymenovany typ a ani za boha neviem kde a co s nim vlastne spravit

morfeusko

No skusil by som dat hodnoty bankoviek do vymenovaneho typu a podla delenia cisla zvysovat indexi....lenze problem je vtom...indexuje sa od nula takze prvy prvok ma index 0,druhy1,atd...takze ak napriklad zvysis index prveho prvku na 30 tym padom druhy prvok bude mat index 31...takze tam bude treba zakomponovat par podmienok na postupne odcitavanie indexov predchadzajucich prvkov...

Teoreticky by sa to malo dat zrealizovat...neviem nic ine ma nenapadlo

axxis

problem je v tom, ze do vymenovaneho typu nemozes ulozit ciselnu hodnotu, dokonca sa tam neda ulozit ani cislo v tvare retazcu