[Pascal] MOD en DIV probleem

[Verwijderd]

search gebruikt en niets gevonden

Ok, ik heb de volgende code gemaakt, de bedoeling is dat je een bedrag in eurocenten invoert en dat moet dan worden uitgekeerd in zo weinig mogelijk eurostukken.
Ik heb het volgende gevonden en het werkt maar ik ben de draad een beetje kwijt, hoe moet ik nu verder gaan?

Program opdracht8;
Uses CRT;
Var euro ,euro2, euro1, e50, e20, e10, e5, e2, e1: Longint;

Begin
write ('Voer het bedrag in eurocenten : ');
readln (euro);
euro2 := euro DIV 200;
write ('aantal 2 euro stukken wordt: ', euro2);
readln;
euro1 := euro MOD 200;
euro1 := euro1 DIV 100;
writeln ('aantal 1 euro stukken wordt: ',euro1);
readln;
e50 := euro1 MOD 100;
e50 :=
End.

Hoe moet ik nu verder, het werkt zo wel maar weet niet meer hoe ik verder moet.

[ Voor 4% gewijzigd door Verwijderd op 24-11-2002 17:56 ]

[Verwijderd]

Wat moet het programma verder nog doen dan ?
Wat je beschreven hebt doet het programma toch

[Verwijderd]

ja maar het moet verder gaan tot en met het 1 eurocent stuk maar ben de draad dus kwijt, snap de logica niet helemaal

[Sybr_E-N]

aantal 2 euro's:= euro div 200
aantal 1 euro's:= euro div 100
aantal 50eurocent:= euro div 50
aantal 20eurocent:= euro div 20
aantal 10eurocent:= euro div 10
aantal 5euroecent:= euro div 5
aantal 2euroecent:= euro div 2
aantal 1euroecent:= euro div 1 //nutteloos

Zo is het rijtje toch?

[johnny7]

Lang verhaal hier, maar moest uitgaan van euro muntstukken. Foutje.

[ Voor 92% gewijzigd door johnny7 op 24-11-2002 18:10 . Reden: foutje ]

[Knutselsmurf]

Ik hoop dat je op de hoogte bent van de functionaliteit van de MOD en DIV operaties. Op dat moment lijkt het mij dat het wel duidelijk is wat er geberut en hoe je verder moet gaan. Voor een fraaiere oplossing zou ikzelf gebruik maken van een array met de waarden en een FOR-lusje.....

[whoami]

We gaan hier geen programma's gaan voorbakken/kauwen.