home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / change.c < prev    next >
Text File  |  2019-04-13  |  4KB  |  189 lines
  1.  
  2. #IFDEF ╙╒╨┼╥├
  3. #INCLUDE "H:STDIO.H"
  4. #ELSE
  5. #INCLUDE "STDIO.H"
  6. #ENDIF
  7.  
  8. MAIN()
  9.   █
  10.    INT CHANGE;
  11.    FLOAT TOTALñCHANGE;
  12.    FLOAT COST;
  13.    FLOAT AMOUNT;
  14.    INT PENNYñC;
  15.    INT FIVEñC;
  16.    INT TENñC;
  17.    INT TWENTYñFIVEñC;
  18.    INT ONEñD;
  19.    INT TWOñD;
  20.    INT FIVEñD;
  21.    INT TENñD;
  22.    INT TWENTYñD;
  23.    INT FIFTYñD;
  24.    CHAR KEYPRESS;
  25.  
  26.                           /* ╔NSTRUCTIONS */
  27.  
  28. PRINTF("\223                              ├HANGE ╨ROGRAM\N\N\N");
  29. PRINTF("   ╘HIS PROGRAM ASKS YOU TO ENTER THE AMOUNT OF A PURCHASE AND THE\N");
  30. PRINTF("AMOUNT GIVEN TO PAY FOR IT.  ╘HE COMPUTER WILL THEN CALCULATE A\N");
  31. PRINTF("BREAKDOWN OF THE MONEY THAT YOU WILL GET BACK FOR CHANGE.  ╦EEP IN\N");
  32. PRINTF("MIND THE FOLLOWING RULES THAT YOU HAVE TO FOLLOW WHEN RUNNING THE\N");
  33. PRINTF("PROGRAM:\N\N");
  34. PRINTF("   1) ─╧╬'╘ INCLUDE DOLLAR SIGNS WHEN ANSWERING THE QUESTIONS.\N");
  35. PRINTF("   2) ┴NSWER QUESTIONS BY TYPING THE AMOUNTS WITH DECIMALS.\N");
  36. PRINTF("      EG. 50.00 ╬╧╘ 50\N\N\N");
  37. PRINTF("╠ITTLE EXAMPLES BESIDE THE PROMPTS WILL AID YOU IN CASE YOU FORGET\N");
  38. PRINTF("THESE INSTRUCTIONS.\N\N\N");
  39. PRINTF("╨RESS <╥┼╘╒╥╬> TO CONTINUE... ");
  40. SCANF("%C",&KEYPRESS);
  41.  
  42.                           /* ─ATA ┼NTRY */
  43.  
  44. PRINTF("\223┼NTER AMOUNT OF THE PURCHASE ( ╠IKE THIS: 50.00 ): ");
  45. SCANF("%F",&COST);
  46. IF (COST<1.00)
  47.   █
  48.    DO
  49.     █
  50.      PRINTF("\N╔TEMS THAT ARE LESS THAN $1.00 AREN'T ALLOWED.  ╘RY AGAIN.\N\N");
  51.      PRINTF("┼NTER THE AMOUNT OF THE PURCHASE ( ╠IKE THIS: 50.00 ): ");
  52.      SCANF("%F",&COST);
  53.     ▌
  54.   WHILE (COST<1.00);
  55.  ▌
  56.  
  57. IF (COST >100.00)
  58.   █
  59.    DO
  60.     █
  61.      PRINTF("\N╘HE AMOUNT OF PURCHASE CANNOT BE OVER $100.00.  ╘RY AGAIN.\N\N");
  62.      PRINTF("┼NTER AMOUNT OF THE PURCHASE ( ╠IKE THIS: 50.00 ): ");
  63.      SCANF("%F",&COST);
  64.     ▌
  65.   WHILE (COST>100.00);
  66.  ▌
  67.  
  68. PRINTF("\N\N┼NTER THE AMOUNT GIVEN FOR THE PURCHASE ( ╠IKE THIS: 50.00 ): ");
  69. SCANF("%F",&AMOUNT);
  70.  
  71. IF (AMOUNT>100.00)
  72.   █
  73.    DO
  74.      █
  75.       PRINTF("\N╘HE AMOUNT GIVEN FOR THE PURCHASE CANNOT BE OVER $100.00.\N\N");
  76.       PRINTF("┼NTER AMOUNT GIVEN FOR PURCHASE ( ╠IKE THIS: 50.00 ): ");
  77.       SCANF("%F",&AMOUNT);
  78.      ▌
  79.   WHILE (AMOUNT >100.00);
  80.  ▌
  81.  
  82. IF (AMOUNT<COST)
  83.   █
  84.    DO
  85.      █
  86.       PRINTF("\223╘HE AMOUNT GIVEN IS LESS THAN THE AMOUNT OF THE ITEM.\N\N");
  87.       PRINTF("┼NTER THE AMOUNT GIVEN FOR PURCHASE (╠IKE THIS: 50.00 ): ");
  88.       SCANF("%F",&AMOUNT);
  89.      ▌
  90.   WHILE (AMOUNT<COST);
  91.  ▌
  92. TOTALñCHANGE=(AMOUNT-COST);
  93.  
  94.                         /* ╨RINT ╙CREEN ╚EADER */
  95.  
  96. PRINTF("\223");
  97. PRINTF("*******************************************************************\N");
  98. PRINTF("*                                                                 *\N");
  99. PRINTF("*                    ├HANGE ┬REAKDOWN ╨ROGRAM                     *\N");
  100. PRINTF("*                                                                 *\N");
  101. PRINTF("*******************************************************************\N");
  102. PRINTF("\N\N");
  103. CHANGE=((AMOUNT-COST)*100)+0.05;
  104. PRINTF("┴MOUNT PAID: $%5.2F\N",AMOUNT);
  105. PRINTF("├OST OF ITEM: $%5.2F\N",COST);
  106. PRINTF("\N\N");
  107.  
  108. IF (CHANGE>=5000)
  109.   █
  110.    FIFTYñD=CHANGE/5000;
  111.    CHANGE=CHANGE % 5000;
  112.    PRINTF("┘OU RECEIVE %D FIFTY DOLLAR BILL(S)\N",FIFTYñD);
  113.   ▌
  114. IF (CHANGE>=2000)
  115.   █
  116.    TWENTYñD=CHANGE/2000;
  117.    CHANGE=CHANGE % 2000;
  118.    PRINTF("┘OU RECEIVE %D TWENTY DOLLAR BILL(S)\N",TWENTYñD);
  119.   ▌
  120. IF (CHANGE>=1000)
  121.   █
  122.    TENñD=CHANGE/1000;
  123.    CHANGE=CHANGE % 1000;
  124.    PRINTF("┘OU RECEIVE %D TEN DOLLAR BILL(S)\N",TENñD);
  125.   ▌
  126. IF (CHANGE>=500)
  127.   █
  128.    FIVEñD=CHANGE/500;
  129.    CHANGE=CHANGE % 500;
  130.    PRINTF("┘OU RECEIVE %D FIVE DOLLAR BILL(S)\N",FIVEñD);
  131.   ▌
  132. IF (CHANGE>=200)
  133.   █
  134.    TWOñD=CHANGE/200;
  135.    CHANGE=CHANGE % 200;
  136.    PRINTF("┘OU RECEIVE %D TWO DOLLAR BILL(S)\N",TWOñD);
  137.   ▌
  138. IF (CHANGE>=100)
  139.   █
  140.    ONEñD=CHANGE/100;
  141.    CHANGE=CHANGE % 100;
  142.    PRINTF("┘OU RECEIVE %D ONE DOLLAR BILL(S)\N",ONEñD);
  143.   ▌
  144. IF (CHANGE>=25)
  145.   █
  146.    TWENTYñFIVEñC=CHANGE/25;
  147.    CHANGE=CHANGE % 25;
  148.    PRINTF("┘OU RECEIVE %D QUARTER(S)\N",TWENTYñFIVEñC);
  149.   ▌
  150. IF (CHANGE>=10)
  151.   █
  152.    TENñC=CHANGE/10;
  153.    CHANGE=CHANGE % 10;
  154.    PRINTF("┘OU RECEIVE %D DIME(S)\N",TENñC);
  155.   ▌
  156. IF (CHANGE>=5)
  157.   █
  158.    FIVEñC=CHANGE/5;
  159.    CHANGE=CHANGE % 5;
  160.    PRINTF("┘OU RECEIVE %D NICKEL(S)\N",FIVEñC);
  161.   ▌
  162. IF (CHANGE>=1)
  163.   █
  164.    PENNYñC=CHANGE/1;
  165.    CHANGE=CHANGE % 1;
  166.    PRINTF("┘OU RECEIVE %D PENNY(IES)\N",PENNYñC);
  167.   ▌
  168. PRINTF("\N┘OUR TOTAL CHANGE AMOUNT IS $%6.2F\N\N",TOTALñCHANGE);
  169. PRINTF("╨RESS ANY KEY TO CONTINUE... ");
  170. SCANF("%C",&KEYPRESS);
  171. ▌
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.