Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.27 Částku v Kč na počet bankovek a mincí

MENU

01.27 Částku v Kč na počet bankovek a mincí

Zadání:
Sestavte program, zadanou částku převede na nejmenší počet bankovek a mincí.
Řešení:
Výpočet začíná největší možnou bankovkou. Pro každou bankovku či minci je nejprve celočíselným dělením vypočítat
počet bankovek či mincí a následovně počet těchto bankovek či mincí vynásobený jejich hodnotou odečíst od částky. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var c,p5000,p1000,p500,p200,p100,p50,p20,p10,p5,p2:integer;

begin

   write('Zadejte celkovou castku: ');
   readln(c);

   p5000:=c div 5000;
   c:=c-p5000*5000;
   p1000:=c div 1000;
   c:=c-p1000*1000;
   p500:=c div 500;
   c:=c-p500*500;
   p200:=c div 200;
   c:=c-p200*200;
   p100:=c div 100;
   c:=c-p100*100;
   p50:=c div 50;
   c:=c-p50*50;
   p20:=c div 20;
   c:=c-p20*20;
   p10:=c div 10;
   c:=c-p10*10;
   p5:=c div 5;
   c:=c-p5*5;
   p2:=c div 2;
   c:=c-p2*2;

   writeln(c);
   writeln('5000 = ',p5000);
   writeln('1000 = ',p1000);
   writeln('500 = ',p500);
   writeln('200 = ',p200);
   writeln('100 = ',p100);
   writeln('50 = ',p50);
   writeln('20 = ',p20);
   writeln('10 = ',p10);
   writeln('5 = ',p5);
   writeln('2 = ',p2);
   writeln('1 = ',c);

   readln;

end.
program ke stažení