Banknot Analizi

Bu dersimizde Delphi'de girilen muazzam miktarda paranın analizini yapan bir program yapalım.

Bu dersimizde Delphi'de girilen muazzam miktarda paranın analizini yapan bir program yapalım.


program para_analizi;

{$APPTYPE CONSOLE}



  type

dizi1=array[1..7] of integer;

dizi2=array[1..7] of string;



var

para1izi1=(200,100,50,20,10,5,1);

para2izi2=('ikiyuz','yuz','elli','yirmi','on','bes','bir');



netucret,i,tamsayi:integer;



begin

    write('Lutfen Net Ucreti TL Cinsinden Giriniz:');

    readln(netucret);

    writeln;

        for i:=1 to 7 do

           begin

            tamsayi:=trunc(netucret/para1);

            netucret:=netucret-tamsayi*para1;

           if tamsayi>0 then

              begin

                writeln(tamsayi,' ','adet',' ',para2,'tl');

              end;

           end;



     readln;

end.



ÜYE NOTU: Aslına bakarsanız Delphi Pascal tabanlı olmasına rağmen bu kodları düzgün bir şekilde kabul etmeyecektir. Bu kodlar sadece Pascal ortamında çalışır. O yüzden derste bu kodların aslında Pascal diline yönelik olması belirtilmelidir.
  • Etiketler;
Mutlu Yılmaz
Mutlu Yılmaz, şu an Kırıkkale Üniversitesinde Bilgisayar ve Öğretim Teknolojileri Öğretmenliği okuyor. Bilgilerini Sanalkurs'ta paylaşmayı sürdürecek.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git