ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları
Would you like to react to this message? Create an account in a few clicks or log in to continue.
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları

Güncel Paylaşım Forumu !
 
AnasayfaGaleriAramaLatest imagesKayıt OlGiriş yap
Eğlence Başladı Rütbeni Seç! TIKLA
Moderatör Alımı Başladı TIKLA

 

 Pascal Faiz programı

Aşağa gitmek 
YazarMesaj
ALPA
Site Kurucusu
Site Kurucusu
ALPA


Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
Rep Puanı Rep Puanı : 32

Pascal Faiz programı Empty
MesajKonu: Pascal Faiz programı   Pascal Faiz programı Icon_minitimeÇarş. Nis. 22, 2009 11:50 am

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.
Sayfa başına dön Aşağa gitmek
http://www.weyyo.com
 
Pascal Faiz programı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» C++ da pascal üçgeni
» Turbo Pascal 7.0 indir
» Pascal Geniş Döküman (Word)
» Pascal nedir ? Nasıl ortaya Cıktı?
» HMS Otel Programı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları :: Pascal-
Buraya geçin:  

weyyo

knight online serverlar

metin2 serverlar

silkroad serverlar