123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home
Source Codes
Engineering Colleges

Training  Reports
Seminar Reports
Placement Papers

Forums

   Computer Science / IT
   Electronics
   Electrical
   Mechanical
   Chemical
   Civil

   CAT / MBA

   GMAT / Foreign MBA
Latest Jobs

Engineering Jobs / Technical Jobs
Management Jobs

Sitemap
Terms of use

Displaying  Source Code(s)  
 

 
--------------------------------------------------------------------------------

To Find The Coinage Of The Amount Entered.

--------------------------------------------------------------------------------



{

Description: To Find The Coinage Of The Amount Entered
}

{ Take any integer as input and describe the coinage (e.g no. of 1000
rupees note, no. of 500 note, no. of 100 rupees ..... till 5
rupeesnote.}

program COINAGE;

var
amount, thousand, five_hundred, hundred, fifty, ten, five :
integer;

begin
amount:=0;
write(' Enter a amount : ');
readln(amount);
writeln;

writeln;
writeln(' DISTRIBUTION OF MONEY i.e ',amount,' rupees ');
writeln(' --------------------------------------');
writeln;

thousand:=amount div 1000;
amount:=amount - (thousand*1000);

five_hundred:=amount div 500;
amount:=amount - (five_hundred*500);

hundred:=amount div 100;
amount:=amount - (hundred*100);

fifty:=amount div 50;
amount:=amount - (fifty*50);

ten:=amount div 10;
amount:=amount - (ten*10);

five:=amount div 5;
amount:=amount - (five*5);


writeln(' Thousand Rupee Note = ',thousand);
writeln;
writeln(' Five Hundred Rupee Note = ',five_hundred);
writeln;
writeln(' Hundred Rupee Note = ',hundred);
writeln;
writeln(' Fifty Rupee Note = ',fifty);
writeln;
writeln(' Ten Rupee Note = ',ten);
writeln;
writeln(' Five Rupee Note = ',five);
writeln;
writeln(' The remaining amount = ',amount,' rupees ');
writeln;
writeln(' --------------------------------------');
writeln;


writeln(' THANK YOU');
readln;
end.

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG