atm mankamatik - Van.GEN.TR Forum

**gokhanaygun** · 24/04/07, 00:56

(*özlem küçükali*)
uses crt;
var
giris,dov,para,sifre,cek1:longint;
dolar,euro,bakiye,para1:real;
begin
textbackground(WHITE);
textcolor(2);
bakiye:=2500;
euro:=1.75;
dolar:=1.47;
clrscr;
repeat
gotoxy(25,2);
textcolor(MAGENTA);
delay(1000); write('T?rkiye Kalk?nma Bankas? ') ;

writeln( '' );
READLN;
GOTOXY(5,10);
writeln('-L?tfen ˜Ÿlem Yapmak ˜‡in K˜Ÿisel ifrenizi Giriniz...-');
TEXTCOLOR(black);
readln(sifre);
if sifre<>123 THEN HALT
ELSE
textcolor(red);
writeln(red);
gotoxy(11,23); textcolor(blue); delay(1000);
writeln('L?tfen Bekleyiniz.... ifreniz Do§rulan?yor');
gotoxy(28,56); delay(1001); write('%.10..');
gotoxy(28,57); delay(956); write('20.21.');
gotoxy(28,58); delay(811); write('.30..35.');
gotoxy(28,60); delay(712); write('.40..47.');
gotoxy(28,61); delay(650); write('..51.59.60');
gotoxy(28,69); delay(608); write('..70..78.');
gotoxy(28,63); delay(567); write('.83..89.');
gotoxy(28,64); delay(512); write('.93..97..100');

clrscr;
textcolor(red);
gotoxy(10,21);
writeln('____________TeŸekk?rler ifreniz Do§ru_________________');
readln;
until sifre=123 ;
clrscr;
repeat
clrscr;
TEXTBACKGROUND(RED);
gotoxy(10,20);
textcolor(2);
gotoxy(5,5);
writeln('BU GšN ˜T˜BAR˜ ˜LE D™V˜Z');

writeln('DOLAR>> 1.59 TL ');

writeln('EURO>>> 1,80 TL ');
gotoxy(2,10);
textcolor(MAGENTA);
writeln(' **************ANA MENšYE HOGELD˜N˜Z*********************');

Writeln(' <<<1>>>> BAK˜YE G™STER<<<1>>>>');

writeln('2) Para cekme');

writeln('3) Para yat?rma');

writeln('4) Para yat?rma [usd-euro]');

writeln('5) CIKIS');
readln(giris);
if giris=1 then
begin
clrscr;
writeln('Suan hesab?n?zda bulunan toplam para miktar?');
writeln('bakiye=150');
readln;
end;
if giris=2 then
begin
clrscr;
writeln('bakiyeniz:' ,bakiye

2);
writeln('Hesab?n?zdan cekmek istediginiz miktar');
readln(cek1);
if cek1 >bakiye then
begin
writeln('cektiginiz tutar bakiyen?zdek? tutardan fazla');
writeln('bakiyen?zde para yoktur');
readln;
end
else
begin
bakiye:=bakiye-cek1;
writeln('bakiyen?zde kalan para miktar?:' ,bakiye

2);
readln;
end;
end;
if giris=3 then
begin
clrscr;
writeln('suank? bak?ye:' ,bakiye

2);
writeln('eklemek istediginiz bak?ye');
readln(para);
bakiye:=bakiye+para;
writeln('suanki bakiye:' ,bakiye

2);
readln;
end;
if giris=4 then
begin
clrscr;
writeln('1.dolar');
writeln('2.Euro');
readln(dov);
if dov=1 then
begin
writeln('Yat?rmak ˜stedi§iniz Dolar Miktar?');
readln(para1);
para1:=para1*dolar;
bakiye:=para1+bakiye;
writeln(para1

2, '=Kadar YTL Eklenm?Ÿtir');
writeln('toplam bakiye= ',bakiye

2);
readln;
end;
if dov=2 then
begin
writeln('Yat?rmak ˜stedi§iniz Euro Miktar?');
readln(para1);
para1:=para1*euro;
bakiye:=para1+bakiye;
writeln('Toplam Bakiye:', bakiye

2);
readln;
end;
end;
until giris=5;
readln;
end.

**firari** · 20/06/08, 15:23

Paylaşım için tşkler…

**Mattet** · 30/06/08, 01:56

teŞekkÜrler PaylaŞim İİÇİn

~~Neutralizer~~ · 31/07/08, 15:39

paylaşım için tşkrlr