desglose de moneda
Publicado por
sergio (1 intervención) el 29/09/2011 00:15:49
program ejercicio16;
uses wincrt;
var
num,num1:integer;
ds,cn,cc,vt,dz,cnc,un:integer ;
ccn,vnt,dnzc,cncc,n:integer;
dc:integer;
begin
ds:=0;cn:=0;num:=0;cc:=0;vt:=0;dz:=0;cnc:=0;un:=0;ccn:=0;vnt:=0;dnzc:=0;cncc:=0;dc:=0;num1:=0;
writeln('ingrese un numero');
readln(num1);
num:=(trunc(num1));
dc:=(num1-num) ;
dc:=(dc*100) ;
dc:=trunc(dc) ;
ds:= (num div 200);
cn:=(num div 200)mod 100 ;
cc:=((num div 200)div 100)mod 50;
vt:=(((num div 200)div 100)div 50)mod 20;
dz:=((((num div 200)div 100)div 50) div 20)mod 10;
cnc:=(((((num div 200 )div 100)div 50)div 20)div 10)mod 5;
un:=((((((num div 200)div 100)div 50)div 20)div 10)div 5)mod 1;
ccn:=(dc div 50);
vnt:=((dc div 50)mod 20);
dnzc:=(((dc div 50 )div 20)mod 10);
cncc:=((((dc div 50)div 20)div 10)mod 5);
n:=(((((dc div 50)div 20) div 10)div 5)mod 1);
writeln('billetes doscientos',ds,'billetes cien',cn,'billetes de cincuenta',cc,'billetes de veinte',vt);
writeln('billetes de diez',dz,'billetes de cinco',cnc,'billetes de uno',un);
writeln('monedas cincuenta',ccn,'monedas veinte',vnt,'monedas de diez',dnzc,'monedas de cinco',cncc,'monedas de uno',n);
end.
soy principiante y no encuentro mi error aqui esta todo el desgloce mi problema es en las variables