Faiz Programı
Yıllık Ana paraya gelecek faizi hesaplar,2 çeşit faiz hesabı yapar...
Program faiz_programi;
uses crt;

var

{Toplam=T}T:real;
{Ana Para=A}A:integer;
{Süre-senelik}n:integer;
{Senelik Faiz}f:integer;
{Ay Sayısı}As:integer;
{Para Türü}tur:string;
{sayaç}i:integer;
secim:char;

label
bas,son,bit1,bit2;

procedure Birlesik_Faiz;

begin
clrscr;
writeln(' *** BiRLEŞİK FAİZ ***');
writeln(' ============= ');
writeln;
T:=0;
for i:=1 to n do
begin
T:=A*exp(i*ln(1+f/100));
if i=20 then readkey;
if i<10 then writeln(' ',i,'. Sene sonunda => ',T:0:0,' ',tur);
if ((i>9) and (i<100)) then writeln(' ',i,'. Sene sonunda => ',T:0:0,' ',tur)
else
if i>99 then writeln(' ',i,'.Sene sonunda => ',T:0:0,' ',tur);
end;
readln;
end;

procedure Kapital_buyutme;
begin
clrscr;
writeln(' *** KAPİTAL BÜYÜTME (YATIRIM) ***');
writeln(' ========================= ');
writeln;
T:=0;i:=0;
for n:=n downto 1 do
begin
T:=T+(A*exp(n*ln(1+f/100)));
i:=i+1;
if i=20 then readkey;
begin
if ((i<10) and (n>99)) then writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if ((i<10) and ((n>9) and (n<100))) then writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if ((i<10) and (n<10)) then writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);

if (((i>9) and (i<100)) and (n>99)) then writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if (((i>9) and (i<100)) and ((n>9) and (n<100))) then
writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if (((i>9) and (i<100)) and (n<10)) then writeln(' ',i,'. ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);

if ((i>99) and (n>99)) then writeln(' ',i,'.ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if ((i>99) and ((n>9) and (n<100))) then writeln(' ',i,'.ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
if ((i>99) and (n<10)) then writeln(' ',i,'.ödeme ',n,' sene boyunca => ',T:0:0,' ',tur);
end;
end;
readln;
end;


begin
bas: textbackground(1);textcolor(14);clrscr;
writeln(' *** FAİZ HESAPLAMA PROGRAMI ***');
writeln(' ======================= ');
writeln;
writeln(' [1] - Birleşik Faiz');
writeln(' [2] - Kapital Büyütme(Yatırım)');
writeln(' [0] - Program dan çıkış');
writeln;
write( 'Seçiminiz => ');readln(secim);
writeln;
writeln;
case secim of
'1':begin
write(' Ana Para : ');readln(A);
if A=0 then goto bit1;
write(' Faiz % : ');readln(f);
if f=0 then goto bit1;
write(' Süre(Sene/Ay) : ');readln(n);
if n=0 then goto bit1;
write(' Para Türü : ');readln(tur);
if tur='0' then goto bit1;
writeln;
write(' Hesaplama için bir tuşa basınız...');readkey;
Birlesik_Faiz;
bit1: end;
'2':begin
write(' ödenecek Para : ');readln(A);
if A=0 then goto bit2;
write(' Faiz % : ');readln(f);
if f=0 then goto bit2;
write(' Süre(Sene/Ay) : ');readln(n);
if n=0 then goto bit2;
write(' Para Türü : ');readln(tur);
if tur='0' then goto bit2;
writeln;
write(' Hesaplama için bir tuşa basınız...');readkey;
Kapital_Buyutme;
bit2: end;
'0':goto son;
end;
goto bas;
son: clrscr;

End.