|
atm mankamatik
(*ö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:4: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:4:2); readln; end; end; if giris=3 then begin clrscr; writeln('suank? bak?ye:' ,bakiye:4:2); writeln('eklemek istediginiz bak?ye'); readln(para); bakiye:=bakiye+para; writeln('suanki bakiye:' ,bakiye:4: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:4:2, '=Kadar YTL Eklenm?Ÿtir'); writeln('toplam bakiye= ',bakiye:4: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:4:2); readln; end; end; until giris=5; readln; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 15:17 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.