Pascal BASİT BİR DÖVİZ ÇEVİRME PROGRAMI YTL OLARAK

BASİT BİR DÖVİZ ÇEVİRME PROGRAMI YTL OLARAK YENİ BAŞLAYAN ARKADAŞLARA GÜZEL Bİ ÖRNEK OLABİLİR...uses crt;
var
tus,ts:char;
tl,d,e,DOLAR,EURO,S:real;
say,i:integer;
procedure ciz(x1,y1,x2,y2:byte);
var
k:byte;
begin
textcolor(red);
gotoxy(x1,y1);write('É');
for k:=x1+1 to x2-1 do write('Í');
write('»');
for k:=y1+1 to y2-1 do
begin
gotoxy(x1,k);write('º');
gotoxy(x2,k);write('º');
end;
gotoxy(x1,y2);write('È');
for k:=x1+1 to x2-1 do write('Í');
write('¼');
textcolor(white);
end;
procedure yaz;
begin
textbackgrOund(red);gotoxy(1,1);clreol;
gotoxy(30,1);write('D™ViZ HESAP PROGRAMI');
textcolor(red);
for i:=1 to 49 do begin gotoxy(1,i);write('Û');gotoxy(80,i);write('Û'); end;
textcolor(white);
GOTOXY(1,50);CLREOL;GOTOXY(33,50);WRite('NiZAMETTi N AVCI');TEXTBACKGROUND(0);
end;
PROCEDURE devam;
begin
REPEAT
gotoxy(27,45);CLREOL;write('MENš (ESC) - TEKRAR (ENTER)');
textcolor(red);
gotoxy(33,45);write('ESC');
gotoxy(48,45);write('ENTER');
TEXTCOLOR(white);
yaz;gotoxy(54,45);ts:=readkey;
until ts in [#27,#13];
end;
procedure a;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' YTL - DOLAR ');
gotoxy(26,25);write('YTL : [ ] YTL');
gotoxy(26,26);write('DOLAR : [ ] $');
gotoxy(39,25);READLN(TL);
S:=tl/dolar;
gotoxy(39,26);write(s:8:2);
devam;
if ts=#13 then a;
end;
procedure b;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' YTL - EURO ');
gotoxy(26,25);write('YTL : [ ] YTL');
gotoxy(26,26);write('EURO : [ ] œ');
gotoxy(39,25);READLN(TL);
S:=tl/euro;
gotoxy(39,26);write(s:8:2);
devam;
if ts=#13 then b;
end;
procedure c;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' DOLAR - YTL ');
gotoxy(26,25);write('DOLAR : [ ] $');
gotoxy(26,26);write('YTL : [ ] YTL');
gotoxy(38,25);READLN(d);
S:=dolar*d;
gotoxy(38,26);write(s:8:2);
devam;
if ts=#13 then c;
end;
procedure dL;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' EURO - YTL ');
gotoxy(26,25);write('EURO : [ ] œ');
gotoxy(26,26);write('YTL : [ ] YTL');
gotoxy(38,25);READLN(E);
S:=EURO*E;
gotoxy(38,26);write(s:8:2);
devam;
if ts=#13 then dl;
end;
procedure DE;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' DOLAR - EURO ');
gotoxy(26,25);write('DOLAR : [ ] $');
gotoxy(26,26);write('EURO : [ ] œ');
gotoxy(38,25);READLN(D);
S:=(DOLAR*D) / EURO;
gotoxy(38,26);write(s:8:2);
devam;
if ts=#13 then DE;
end;
procedure ED;
begin
clrscr;YAZ;
ciz(24,23,53,2;gotoxy(25,23);write(' EURO - DOLAR ');
gotoxy(26,25);write('EURO : [ ] œ');
gotoxy(26,26);write('DOLAR : [ ] $');
gotoxy(38,25);READLN(E);
S:=(EURO*E) / DOLAR;
gotoxy(38,26);write(s:8:2);
devam;
if ts=#13 then ED;
end;
procedure kur;
begin
textbackground(0);
clrscr;YAZ;textcolor(white);
ciz(28,23,52,2;gotoxy(29,23);write(' KURLAR ');
GOTOXY(30,25);write('Dolar : [ ] YTL');
GOTOXY(30,26);write('Euro : [ ] YTL');
gotoxy(39,25);readln(dolar);
gotoxy(39,26);readln(euro);
devam;
if ts=#13 then KUR;
end;
begin
repeat
say:=say+1;
if say=1 then
begin
textbackground(0);
clrscr;YAZ;textcolor(white);
ciz(28,23,52,2;gotoxy(29,23);write(' KURLAR ');
GOTOXY(30,25);write('Dolar : [ ] YTL');
GOTOXY(30,26);write('Euro : [ ] YTL');
gotoxy(39,25);readln(dolar);
gotoxy(39,26);readln(euro);
end;
repeat
clrscr;
textbackground(0);clrscr;YAZ;
ciz(31,19,53,31);gotoxy(32,19);write(' MENš ');
ciz(31,32,53,37);
gotoxy(32,32);write(' KURLAR ');
gotoxy(33,34);write('DOLAR : ',DOLAR:0:2,' YTL');
gotoxy(33,35);write('EURO : ',EURO:0:2,' YTL');
gotoxy(33,21);write('[1] YTL - DOLAR');
gotoxy(33,22);write('[2] DOLAR - YTL');
gotoxy(33,23);write('[3] YTL - EURO');
gotoxy(33,24);write('[4] EURO - YTL');
gotoxy(33,25);write('[5] DOLAR - EURO');
gotoxy(33,26);write('[6] EURO - DOLAR');
gotoxy(33,27);write('[7] KUR DšZENLE');
gotoxy(33,2;write('[X] EXIT');
gotoxy(33,30);write('[ ] Se‡iminiz');
TEXTCOLOR(RED);
GOTOXY(34,21);write('1');
GOTOXY(34,22);write('2');
GOTOXY(34,23);write('3');
GOTOXY(34,24);write('4');
GOTOXY(34,25);write('5');
GOTOXY(34,26);write('6');
GOTOXY(34,27);write('7');
GOTOXY(34,2;write('X');
TEXTCOLOR(white);
gotoxy(34,30);tus:=upcase(readkey);GOTOXY(34,30);W rite(tus);gotoxy(34,30);
delay(250);
until tus in ['1','2','3','4','5','6','7','X'];
case tus of
'X':halt;
'1':a;
'3':b;
'2':C;
'4': DL;
'5': DE;
'6':ED;
'7':KUR;
end;
until 1=2;
end.