Banka Programı

'A-B' forumunda ÜmiT KoTaN tarafından 5 Ocak 2009 tarihinde açılan konu

  1. Banka Programı konusu İçinde bazı hatalar olmasina ragmen güzel ve detaylı bir banka programı Sifre=1111program banka;
    uses crt;
    const
    sifre=1111;

    var
    gsmonay:string[1];
    ad,eftbnk,hvlsb:string;
    kontbirim:real;
    eftno,efttutar,a,eftsb,hvltutar,hvlhsp,vrmnhsp:int eger;
    gsmno:string[11];
    gsmkont,vrmntutar,bky1,bky2,vday,trans,sayac,hsp1, pw1,is1,isf1,vrg1,para1,para2:integer;
    begin
    writeln('Bankamiza Hosgeldiniz! Lütfen Isminizi Giriniz');
    readln(ad);
    writeln('Sayin ', ad, ' Sifrenizi Giriniz');
    writeln('ONEMLI UYARI !');
    writeln('3 DENEMEDEN SONRA DOGRU PAROLA GIRMENIZ DURUMUNDA DAHI KARTINIZ IPTAL OLACAKTIR');
    writeln('Deneme Sayiniz =', sayac);
    sayac:=sayac+1;
    Readln(pw1);
    IF PW1<> sifre then repeat
    writeln('3 DENEMEDEN SONRA DOGRU PAROLA GIRMENIZ DURUMUNDA DAHI KARTINIZ IPTAL OLACAKTIR');
    writeln('Deneme Sayiniz =', sayac);
    sayac:=sayac+1;
    Readln(pw1);
    UNTIL pw1=sifre;
    if sayac>3 then
    repeat
    writeln('Sayin ' ,AD, ' KARTINIZ BLOKE OLDU VE MAKINEMIZ KILITLENDI ARTIK ISLEM YAPAMAYACAKSINIZ LUTFEN')
    until a=1000001

    else;
    writeln('Sayin ', AD, ' Bankamiza Hosgeldiniz');
    writeln('Lutfen Yapacaginiz Islemi Seciniz');
    writeln('FATURA ODEMELERI = 1');
    writeln('VERGI ODEMELERI = 2 ');
    writeln('PARA CEKME = 3' );
    writeln('PARA TRANSFERLERI= 4 ');
    writeln('GSM Kontor Satin Alma= 5');
    readln(is1);
    case is1 of
    1: begin writeln ('Lutfen Tahsil Etmek Istediginiz Fatura Turunu Seciniz');
    writeln('SU FATURASI = 1');
    writeln('ELEKTIRIK FATURASI = 2');
    writeln('DOGAL GAZ ABONELIGI FATURASI = 3');
    readln(isf1);
    case isf1 of
    1: begin writeln('SAYIN ', ad, ' adiniza kayitli su faturaniz odenmistir');
    writeln('Baska bir islem icin lutfen tekrar giris yapiniz'); end;
    2:begin writeln('SAYIN ', ad, ' adiniza kayitli elektirik faturaniz odenmistir');
    writeln('Baska bir islem icin lutfen tekrar giris yapiniz'); end;
    3: begin writeln('SAYIN ', ad, ' adiniza kayitli dogal gaz faturaniz odenmistir');
    writeln('Baska bir islem icin lutfen tekrar giris yapiniz'); end;
    end;
    end;
    2: begin
    writeln('VERGILENDIRILMIS KAZANC KUTSALDIR');
    writeln('Lutfen vergisini odemek istediğiniz vergi numarasini giriniz');
    readln(vrg1);
    writeln('Sayin ',ad,' ', vrg1, ' numarali mükellefin tum vergi borclari odenmistir.');
    writeln('Bankamizi kullandiginiz icin tesekkür ederiz. Lutfen baska bir islem yapmak icin tekrar giris yapiniz');
    end;
    3: begin writeln('Sayin ',ad, ' Lutfen islem yapmak istediginiz hesabi seciniz');
    writeln('VADESIZ MEVDUAT HESABI= 1');
    writeln('KREDI KARTI HESABI = 2');
    readln(hsp1);
    case hsp1 of
    1: begin bky1:=950;
    writeln('Bakiyeniz ', bky1,' YTLdir');
    writeln('Cekmek istediginiz tutari giriniz');
    readln(para1);
    if para1>bky1 then repeat
    writeln('YETERSIZ BAKIYE');
    writeln('Tutari Tekrar Giriniz');
    readln(para1);
    until para1<=bky1
    ELSE;
    writeln('Cekilen Tutar= ', para1);
    writeln('Kullanilabilir Bakiye = ', bky1-para1);
    writeln('TESEKKUR EDERIZ... YINE BEKLERIZ') END;
    2:begin bky2:=3750;
    writeln('DIKKAT! BU HESAPTAN YAPACAGINIZ ISLEMLER EKSTREYE YANSITILACAKTIR!');
    writeln('Cekilebilir Tutar = ', bky2);
    writeln('Cekmek istediginiz tutari giriniz');
    readln(para2);
    if para2>bky2 then
    repeat writeln('Limit Asimi! Tutari Tekrar Giriniz');
    readln(para2);
    until para2<=bky2
    else;
    writeln('Kullandiginiz Kredi = ',para2);
    writeln('Kay ay vade istediginizi giriniz');
    readln(vday);
    writeln('Kullanilabilir Kredi = ', bky2- para2);
    writeln('Faiziyle Odemeniz Gereken ',vday,' Aylik Tutar = ', ((para2/100)*(0.25*vday)+para2));
    end;
    end;
    end;
    4:begin
    writeln('Sayin ',ad, ' para transferi sayfasina hosgeldiniz');
    writeln('Yapmak istediginiz islemi seciniz');
    writeln ('EFT = 1');
    WRITELN('VIRMAN = 2 ');
    WRITELN('HAVALE = 3 ');
    readln(trans);
    case trans of
    1: begin writeln('EFT Bölümüne hosgeldiniz');
    writeln('Lutfen EFT Yapilacak Banka ismini TAM OLARAK giriniz');
    readln(eftbnk);
    writeln('Lutfen ALICI ',EFTBNK,' sube adini tam olarak giriniz');
    readln(eftsb);
    writeln('Lutfen hesap numarasini giriniz');
    readln(eftno);
    writeln('Lutfen EFT yapmak istefiginiz miktarı YTL cinsinden giriniz');
    readln(efttutar);
    writeln('Isleminiz Gerceklesti! Onay Kodu = ', eftno,'-**07');
    writeln(eftbnk ,' ',eftsb, ' ' ,eftno , ' hesabina ', efttutar,' gonderilmistir');
    writeln('TESEKKUR EDERIZ'); end;
    2: begin writeln('Virman Yapmak istediginiz hesap numarasini giriniz');
    readln(vrmnhsp);
    writeln('Lutfen virman yapmak istediginiz tutari giriniz');
    readln(vrmntutar);
    writeln('Isleminiz Gerceklesti! Onay Kodu = ', vrmnhsp,'-**02');
    writeln('Subemizdeki ',vrmnhsp,' hesabina', vrmntutar,' yatirilmistir');
    writeln('TESEKKUR EDERIZ'); end;
    3:begin writeln('Havale Yapmak Istediginiz SUBE ADINI TAM OLARAK giriniz');
    readln(hvlsb);
    writeln('Havale Yapmak Istediginz Hesap Numarasini Giriniz');
    readln(hvlhsp);
    writeln('Havale Yapmak Istediginiz Tutari Giriniz');
    readln(hvltutar);
    writeln(hvlsb,' subemizdeki ',hvlhsp,' hesabina ', hvltutar,' YTL yatirilmistir');
    writeln('TESEKKUR EDERIZ'); END;
    end;
    end;
    5:begin
    writeln('KONTOR YUKLEME');
    writeln('Kontor Yuklemek Istediginiz Numarayi TAM OLARAK giriniz');
    readln(gsmno);
    writeln('Kontor Miktarini Giriniz');
    readln(gsmkont);
    kontbirim:=gsmkont*0.125;
    writeln(kontbirim:5,' karsiliginda ', gsmno , ' numarasina ', gsmkont, ' adet kontor satin almak üzeresiniz');
    writeln('Onayliyormusunuz? E - H ');
    READLN(gsmonay);
    if (gsmonay=('e')) or (gsmonay=('E')) then
    writeln(gsmno,' numarali hatta ', kontbirim ,' karsiliginda ',gsmkont,' adet kontor satin aldiniz');
    writeln('TESEKKUR EDERIZ');
    if (gsmonay=('h')) or (gsmonay=('H')) THEN
    writeln('Islem iptal edildi. Lutfen tekrar giris yapiniz');
    END;
    end;
    (*Efendy26 tarafından yazılmıştır*)
    (*Geliştirilebilir ama eglence olsun amaçlı uzun uzun yazdım. Procedure veya Function kullanmadım [​IMG] *)
    END.
     

Bu Sayfayı Paylaş