Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Banknot Değerleri ile Parayı Sınıflandırma


Banknot Değerleri ile Parayı Sınıflandırma

C++ Builder 6 ile uyumludur.

AÇIKLAMA

Girilen miktarı Elli,yirmi,onluk ve beşlik bankontlar halinde sınıflandıran programdır.

Örnek: 1827 girilmiş ise.

Paramız İçinde Yuzluk 18 adet vardır
Paramız İçinde Elli 0 adet vardır
Paramız İçinde Yirmi 1 adet vardır
Paramız İçinde On 0 adet vardır
Paramız İçinde Beş 1 adet vardır
2 Değeri İçin Banknot Değeri Yoktur

şeklinde sonuç oluşur.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Program Kodu:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18. void __fastcall TForm1::Button1Click(TObject *Sender)
  19. {
  20. Memo1->Lines->Clear();
  21. int x=StrToInt(InputBox("GİRİŞ","PARA MİKTARI GİRİNİZ",""));
  22. int yuzluk=x/100;
  23. int kalan=x%100;
  24. int elli=kalan/50;
  25. kalan=kalan%50;
  26. int yirmi=kalan/20;
  27. kalan=kalan%20;
  28. int onluk=kalan/10;
  29. kalan=kalan%10;
  30. int beslik=kalan/5;
  31. kalan=kalan%5;
  32. String yazdir="Paramız İçinde Yuzluk ";
  33. yazdir+=yuzluk;
  34. yazdir+=" adet vardır";
  35. Memo1->Lines->Add(yazdir);
  36. yazdir="Paramız İçinde Elli ";
  37. yazdir+=elli;
  38. yazdir+=" adet vardır";
  39. Memo1->Lines->Add(yazdir);
  40. yazdir="Paramız İçinde Yirmi ";
  41. yazdir+=yirmi;
  42. yazdir+=" adet vardır";
  43. Memo1->Lines->Add(yazdir);
  44. yazdir="Paramız İçinde On ";
  45. yazdir+=onluk;
  46. yazdir+=" adet vardır";
  47. Memo1->Lines->Add(yazdir);
  48. yazdir="Paramız İçinde Beş ";
  49. yazdir+=beslik;
  50. yazdir+=" adet vardır";
  51. Memo1->Lines->Add(yazdir);
  52. yazdir=kalan;
  53. yazdir+=" Değeri İçin Banknot Değeri Yoktur";
  54. Memo1->Lines->Add(yazdir);
  55.  
  56. }
  57. //---------------------------------------------------------------------------
  58.  

Yorumlar (2)
  • tolga  - C++ Builder Banknot Programı Döngü iLe
    double banknotlar[4]; banknotlar[0]=50; banknotlar[1]=20; banknotlar[2]=10; banknotlar[3]=5; banknotlar[0]=50; double kalan,bolum; double i=0; double para=Edit1->Text.ToDouble(); Bool durum=true; while(durum) { kalan=para%banknotlar[i]; bolum=para/banknotlar[i]; Memo1->Lines->Add(İntToStr(bolum)+" " + İntToStr(banknotlar[i]) ); if(i==3) { durum=false; } para=kalan; }
  • tolgatosun
    bu yöntemin döngü ile yapılmışı daha kısa olurdu sanırım.
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Perşembe, 07 Nisan 2011 22:53 )