Banknot Analizi


Delphi'de girilen muazzam miktarda paranın analizini yapan bir program


Kod:
program para_analizi;
{$APPTYPE CONSOLE}


type
dizi1=array[1..7] of integer;
dizi2=array[1..7] of string;


var
para1:dizi1=(200,100,50,20,10,5,1);
para2:dizi2=('ikiyuz','yuz','elli','yirmi','on','b es','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[i]);
netucret:=netucret-tamsayi*para1[i];
if tamsayi>0 then
begin
writeln(tamsayi,' ','adet',' ',para2[i],'tl');
end;
end;


readln;
end.
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.