Forum
Aktif konular
Üyeler
Kurallar
Arama
Proje Ödevimi Geliştirme(Pascal)(Yardım) Proje Ödevimi Geliştirme(Pascal)(Yardım)
-
program banka;
uses crt;
const
sifre=0000;
var
gsmonay:string[1];
ad,eftbnk,hvlsb:string;
kontbirim:real;
eftno,efttutar,a,eftsb,hvltutar,hvlhsp,vrmnhsp:integer;
gsmno:string[11];
gsmkont,vrmntutar,bky1,bky2,vday,trans,sayac,hsp1,pw1,is1,isf1,vrg1,para1,para2:integer;
begin clrscr;
textcolor(2);
writeln('FCN Banka Hosgeldiniz! Lutfen Isminizi Giriniz');
readln(ad);
writeln('Sayin ', ad, ' Sifrenizi Giriniz');
textcolor(4);
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;
textcolor(9);
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);
textcolor(5);
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
textcolor(14);
writeln('VERGILENDIRILMIS KAZANC KUTSALDIR');
writeln('Lutfen vergisini odemek istediğiniz vergi numarasini giriniz');
readln(vrg1);
writeln('Sayin ',ad,' ', vrg1, ' numarali mukellefin tum vergi borclari odenmistir.');
writeln('Bankamizi kullandiginiz icin tesekkur ederiz. Lutfen baska bir islem yapmak icin tekrar giris yapiniz');
readln;
end;
3: begin
textcolor(3);
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') ;readln; 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('Kac 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;
readln;
end;
4:begin
textcolor(7);
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 Bolumune 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 miktari YTL cinsinden giriniz');
readln(efttutar);
writeln('Isleminiz Gerceklesti! Onay Kodu = ', eftno,'-**07');
writeln(eftbnk ,' ',eftsb, ' ' ,eftno , ' hesabina ', efttutar,' gonderilmistir');
writeln('TESEKKUR EDERIZ');readln; 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
textcolor(11);
writeln('KONTOR YUKLEME');
writeln('Kontor Yuklemek Istediginiz Numarayi TAM OLARAK giriniz');
readln(gsmno);
writeln('Kontor Miktarini Giriniz');
readln(gsmkont);
kontbirim:=gsmkont*0.116;
writeln(kontbirim:1:0,'YTL karsiliginda ', gsmno , ' numarasina ', gsmkont, ' adet kontor satin almak uzeresiniz');
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');
readln;
END;
end;
readln;
END.arkadaslar program budur.bu program bankacılık programıdır ve proje ödevimdir sizden yardım istememin amaci bu programda dosyalaama kullanmam lazım fakat beceremedim sizden yardım istiyorum.cok acil lazım.
programi acarken sifre ister 4 tane 0
-
pascalda dosyalama mı. allah korusun. allah sana yardımcı olsun kardeşim.
-
keske ümitlerimi kırmasaydın :(
bunu acanda gorucek zaten bölümler falan hazır tahmin ettigim kadariyla menülere 1 bölüm daha gelicek üyelik die oradan kullanıcı bilgilerini giricek programa bidahaki girisinde onceden girdigi bilgileri okuyacak
-
Hoca "Veri Yapilari Programlama" dersi gormedinmi...Cok zor degil istedigin sey ama direk oturup senin icin kod yazacak ne vaktim var nede mantigima sigar...
Dogrudan erisimli dosyalar
dosya ve dizilerde bilgi arama ve listeleme
konularini arastir iyice
-assign
-rewrite
-reset
-append
-EOF
-Closebu komutlarida ogrenirsen dosyalamaya adim atarsin...cokta karisik birsey degil dosyalama...dunya is var basimda :S biriside bana yardim etse asp.net te :D
-
haji ne ettin oyle :) Allahtan Pascalli 1. sinifta gorum bitirdim. zamaninda ben de cok ugrasmistim :P Kendimi C++ a vedim vereli pascal i hatirlamiyom...
-
computerwolf ben onlari ezbere biliom :D onemli olan nerede kullanmasını bilmek genel oalrak biliom ama bu programa adapte edemedim
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla