pascalda dosyalama mı. allah korusun. allah sana yardımcı olsun kardeşim. Kayalardan kayarım yoktur benim ayarım (;

program banka;uses crt;constsifre=0000;vargsmonay:string ;ad, eftbnk, hvlsb:string;kontbirim:real;eftno, efttutar, a, eftsb, hvltutar, hvlhsp, vrmnhsp:integer;gsmno:string ;gsmkont, vrmntutar, bky1, bky2, vday, trans, sayac, hsp1, pw1, is1, isf1, vrg1, para1, para2:integer;begin clrscr;textcolor(2);writeln ;readln ;writeln ;textcolor(4);writeln ;writeln('3 DENEMEDEN SONRA DOGRU PAROLA GIRMENIZ DURUMUNDA DAHI KARTINIZ IPTAL OLACAKTIR');writeln ;sayac:=sayac+1;Readln(pw1);IF PW1<> sifre then repeatwriteln('3 DENEMEDEN SONRA DOGRU PAROLA GIRMENIZ DURUMUNDA DAHI KARTINIZ IPTAL OLACAKTIR');writeln ;sayac:=sayac+1;Readln(pw1);UNTIL pw1=sifre;if sayac>3 thenrepeatwriteln until a=1000001else;textcolor(9);writeln ;writeln ;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 of1: begin writeln ;writeln('SU FATURASI = 1');writeln('ELEKTIRIK FATURASI = 2');writeln('DOGAL GAZ ABONELIGI FATURASI = 3');readln(isf1); case isf1 of 1: begin writeln ;writeln ; end; 2:begin writeln ;writeln ; end; 3: begin writeln ;writeln ; end; end; end;2: begintextcolor(14);writeln ;writeln ;readln(vrg1);writeln('Sayin ', ad,' ', vrg1, ' numarali mukellefin tum vergi borclari odenmistir.');writeln ;readln;end;3: begintextcolor(3);writeln ;writeln('VADESIZ MEVDUAT HESABI= 1');writeln('KREDI KARTI HESABI = 2');readln(hsp1); case hsp1 of 1: begin bky1:=950; writeln('Bakiyeniz ', bky1,' YTLdir'); writeln ; readln(para1); if para1>bky1 then repeat writeln ; writeln ; readln(para1); until para1<=bky1 ELSE; writeln('Cekilen Tutar= ', para1); writeln('Kullanilabilir Bakiye = ', bky1-para1); writeln ;readln; END; 2:begin bky2:=3750; writeln ; writeln('Cekilebilir Tutar = ', bky2); writeln ; readln(para2); if para2>bky2 then repeat writeln ; readln(para2); until para2<=bky2 else; writeln('Kullandiginiz Kredi = ', para2); writeln ; readln ; writeln('Kullanilabilir Kredi = ', bky2- para2); writeln('Faiziyle Odemeniz Gereken ', vday,' Aylik Tutar = ', ((para2/100) (0.25 vday)+para2)); end; end; readln; end;4:begintextcolor(7);writeln ;writeln ;writeln ('EFT = 1');WRITELN('VIRMAN = 2 ');WRITELN('HAVALE = 3 ');readln ; case trans of 1: begin writeln ; writeln ; readln ; writeln ; readln ; writeln ; readln ; writeln ; readln ; writeln('Isleminiz Gerceklesti! Onay Kodu = ', eftno,'- 07'); writeln ; writeln ;readln; end; 2: begin writeln ; readln ; writeln ; readln ; writeln('Isleminiz Gerceklesti! Onay Kodu = ', vrmnhsp,'- 02'); writeln ; writeln ; end; 3:begin writeln ; readln ; writeln ; readln ; writeln ; readln ; writeln ; writeln ; END; end; end;5:begintextcolor(11);writeln ;writeln ;readln ;writeln ;readln ;kontbirim:=gsmkont 0.116;writeln(kontbirim:1:0,'YTL karsiliginda ', gsmno, ' numarasina ', gsmkont, ' adet kontor satin almak uzeresiniz');writeln ;READLN ;if (gsmonay= or (gsmonay= thenwriteln ;writeln ;if (gsmonay= or (gsmonay= THENwriteln ;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

computerwolf ben onlari ezbere biliom :D onemli olan nerede kullanmasını bilmek genel oalrak biliom ama bu programa adapte edemedim

keske ümitlerimi kırmasaydın :(bunu acanda gorucek zaten blümler falan hazır tahmin ettigim kadariyla menülere 1 blü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 dosyalardosya ve dizilerde bilgi arama ve listelemekonularini 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 Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

haji ne ettin oyle :) Allahtan Pascalli 1. sinifta gorum bitirdim. zamaninda ben de cok ugrasmistim :P Kendimi C++ a vedim vereli pascal i hatirlamiyom... Shaban Interactive Pro.