Pascal DÖVİZ PROGRAMI

CorsaiR

CorsaiR

Emektar
27 Ara 2005
1,228
18
Çekirdekten
DÖVİZ PROGRAMI
KULLANIŞLI BİR DÖVİZ PROGRAMI TAVSİYE EDERİM. ÖZELLİKLE PASCAL'I KAVRAMA AŞAMASINDA OLAN KİŞİLERE.....uses dos,crt;
const
gunler:array[0..6]of string[9] =
('Pazar','Pazartesi','Salı','Çarşamba','Perşembe','Cuma','Cumartesi');
var
y,a,g,gn:word;
para,sonuc:array[1..10]of real;
i,n,i2:integer;kure,kurs:real;
deger,c:char;
s,d,sn,sa:word;
kurval:longint;
kur:string;
procedure pencere;
var
i,i2:integer;
c:char;
BEGIN
CLRSCR;
getdate(y,a,g,gn);
writeln('Tarih :',g:0,'/',a:0,'/',y:0,' ',gunler[gn]);
gettime(s,d,sn,sa);
gotoxy(64,1);writeln('Saat : ',s:2,':',d:2,':',sn:2);
GOTOXY(20,3);writeln('!!!!!!!!! DÖVİZ KURU GİRİŞ !!!!!!!!!');
GOTOXY(10,22);writeln('ANA MENÜ İÇİN HERHANGİ BİR TUŞA BASINIZ');
GOTOXY(65,22);WRITE('ÇIKIŞ');
for i:= 7 to 73 do
begin
gotoxy(i,2);writeln('═');
gotoxy(i,4);writeln('═');
gotoxy(i,23);writeln('═');
gotoxy(i,21);writeln('═');
end;
for i2:=2 to 23 do
begin
gotoxy(7,i2);writeln('║');
gotoxy(73,i2);writeln('║');
end;
gotoxy(7,2);writeln('╔');
gotoxy(7,23);writeln('╚');
gotoxy(73,23);writeln('╝');
gotoxy(73,2);writeln('╗');
TEXTCOLOR(4);GOTOXY(65,22);WRITE('Ç');
end;
procedure devam;
begin
case c of
'Ç':HALT;
'ç':halt;
end;
if (c<>('ç'))and(c<>('Ç'))AND(c<>'A')and(c<>'a')AND(C<>#13)THEN write('!!!! YANLIŞ GİRİŞ [A/Ç] !!!')
end;
procedure prog;
begin
clrscr;
REPEAT
clrscr;
getdate(y,a,g,gn);
gotoxy(64,1);writeln('Tarih :',g:0,'/',a:0,'/',y:0);
gotoxy(70,2);writeln(gunler[gn]);
gettime(s,d,sn,sa);
gotoxy(71,4);writeln(s:2,':',d:2,':',sn:2);
for i:=7 to 35 do
begin
TEXTCOLOR(7);
gotoxy(i,2);writeln('═');
gotoxy(i,4);writeln('═');
gotoxy(i,17);writeln('═');
gotoxy(i,19);writeln('═');
end;
for i2:=4 to 19 do
begin
gotoxy(7,i2-1);writeln('║');
gotoxy(35,i2-1);writeln('║');
end;
gotoxy(7,2);writeln('╔');
gotoxy(7,19);writeln('╚');
gotoxy(35,19);writeln('╝');
gotoxy(35,2);writeln('╗');
begin
gotoxy(12,6);writeln('1 - Döviz Kuru Giriş');
gotoxy(12,7);writeln('2 - TL--->DOLAR');
gotoxy(12,8);writeln('3 - DOLAR--->TL');
gotoxy(12,9);writeln('4 - TL--->EURO');
gotoxy(12,10);writeln('5 - EURO--->TL');
gotoxy(12,11);writeln('7 - TL--->STERLİN');
gotoxy(12,12);writeln('6 - STERLİN--->TL');
gotoxy(12,13);writeln('8 - DOLAR--->EURO');
gotoxy(12,14);writeln('9 - EURO--->DOLAR');
gotoxy(12,15);writeln('10- EXIT');
TEXTCOLOR(2);
gotoxy(40,9);write('Dolar Kuru.....:',kur,' TL.');
gotoxy(40,10);write('Euro Kuru......:',round(kure),' TL.');
gotoxy(40,11);write('Sterlin Kuru...:',round(kurs),' TL.');
TEXTCOLOR(7);
gotoxy(40,13);write('YARDIM İÇİN [F1] E BASIN');
TEXTCOLOR(2);
GOTOXY(53,13);WRITE('F1');
TEXTCOLOR(8);
gotoxy(50,23);write('<<<< Yazan : Emrah BORA >>>>');
gotoxy(50,24);write(' Bilgi İçin : [email protected]');
end;
TEXTCOLOR(7);gotoxy(12,3);writeln('ULUS DÖVİZ İŞLETMELERİ');
BEGIN
textcolor(2);
gotoxy(12,6);write('1');
gotoxy(16,6);write('D');
gotoxy(12,7);write('2');
gotoxy(17,7);write('L');
gotoxy(12,8);write('3');
gotoxy(17,8);write('O');
gotoxy(12,9);write('4');
gotoxy(16,9);write('T');
gotoxy(12,10);write('5');
Gotoxy(16,10);write('E');
gotoxy(12,11);write('6');
gotoxy(22,11);write('S');
gotoxy(12,12);write('7');
gotoxy(19,12);write('R');
gotoxy(12,13);write('8');
gotoxy(19,13);write('A');
gotoxy(12,14);write('9');
gotoxy(17,14);write('U');
gotoxy(17,15);write('X');
gotoxy(13,15);write('0');

END;
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz-->');
DEGER:=READKEY;
case deger of
#59:BEGIN
clrscr;
textcolor(5);GOTOXY(10,7);
writeln(' YARDIM MENÜSÜ ');
textcolor(7);
gotoxy(10,10);writeln(' Bu programı kullanmak için yeşil renkle belirtilen tuşlara');
writeln(' Basarak dilediğiniz işlemleri yapabilirsiniz.');
writeln(' Bu programda belirtilen döviz kurlarını değiştirmek için ilk');
writeln(' menüye girmeniz ve değerleri sırasıyla girmeniz yeterli..');
textcolor(5);gotoxy(10,17);write('Çıkmak için herhangi bir tuşa basınız--->>>>');
c:=readkey;
textcolor(7);
END;
'1','D','d':begin
CLRSCR;
pencere;
GOTOXY(12,7);write('Dolar Kuru Giriniz....:');readln(kur);
if (kur=")or(kur='ç')or(kur='Ç') then prog;
GOTOXY(12,8);write('Euro Kuru Giriniz....:');readln(kure);
GOTOXY(12,9);write('Sterlin Kuru Giriniz....:');readln(kurs);
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'2','L','l':begin
CLRSCR;
PENCERE;
GOTOXY(12,7);write('TL. Cinsinden Paranız....:');readln(para[2]);
val(kur,kurval,n);
sonuc[2]:=para[2]/kurval;
gotoxy(12,9);write('TL.nin Dolar Karşılığı...:',round(sonuc[2]),' $');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
end;
'3','O','o':begin
CLRSCR;
PENCERE;
GOTOXY(12,7);write('DOLAR Cinsinden Paranız....:');readln(para[3]);
val(kur,kurval,n);
sonuc[3]:=para[3]*kurval;
gotoxy(12,9);write('Dolar ın TL. Karşılığı...:',round(sonuc[3]),' TL.');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
end;
'4','t','T':begin
CLRSCR;
PENCERE;
GOTOXY(12,7);write('TL. Cinsinden Paranız....:');readln(para[4]);
sonuc[4]:=para[4]/kure;
gotoxy(12,9);write('TL.nin Euro Karşılığı...:',round(sonuc[4]),' Euro.');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
end;
'5','E','e':begin
clrscr;
PENCERE;
GOTOXY(12,7);write('EURO Cinsinden Pranız....:');readln(para[5]);
sonuc[5]:=para[5]*kure;
gotoxy(12,9);write('Euro nun TL.Karşılığı...:',round(sonuc[5]),' TL.');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'6','s','S':begin
clrscr;
PENCERE;
GOTOXY(12,7);write('TL. Cinsinden Pranız....:');readln(para[6]);
sonuc[6]:=para[6]/kurs;
gotoxy(12,9);write('TL. nin Sterlin Karşılığı...:',round(sonuc[6]),' Sterlin');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'7','R','r':begin
clrscr;
PENCERE;
GOTOXY(12,7);write('Sterlin Cinsinden Pranız....:');readln(para[7]);
sonuc[7]:=para[7]*kurs;
gotoxy(12,9);write('Sterlin in TL. Karşılığı...:',round(sonuc[7]),' Sterlin');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'8','a','A':begin
clrscr;
PENCERE;
GOTOXY(12,7);write('Dolar Cinsinden Paranız....:');readln(para[8]);
val(kur,kurval,n);
sonuc[8]:=(PARA[8]*KURval)/KURE;
gotoxy(12,9);write('Dolar ın Euro Karşılığı...:',round(sonuc[8]),' Euro');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'9','U','u':begin
clrscr;
PENCERE;
GOTOXY(12,7);write('Euro Cinsinden Pranız....:');readln(para[9]);
val(kur,kurval,n);
sonuc[9]:=(PARA[9]*kure)/KURval;
gotoxy(12,9);write('Euro nun Dolar Karşılığı...:',sonuc[9]:2:3,' Dolar');
TEXTCOLOR(7);gotoxy(12,18);write('Seçiminiz--> ');
C:=READKEY;
if (c='a')or(c='A')THEN PROG;
devam;
END;
'0':HALT;
'X':HALT;
'x':halt;
#27:HALT;
end;
UNTIL 1=2;
end;
begin
KUR:='1370000';kure:=1760000;kurs:=2300000;
prog;
readln;
end.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.