Pascal ÇEVİRMEN 1.2

CorsaiR · 11 Ağu 2007

ÇEVİRMEN 1.2 YTL-TL-DOLAR-EURO PARA BİRİMLERİNİ İSTEDİĞİNİZDEN İSTEDİĞİNİZE ÇEVİREN PROGRAM (NOT DERLERKEN TURBO PASCAL 1.1 DE ve XP işletim sistemi altında derleyin)uses crt;
var
tl,euro,ytl,dolar,kdolar,oran,keuro:real;
sec:byte;
procedure cerceve;
begin
writeln;
writeln;
gotoxy(12,3); textbackground(green);
writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(12,4);
writeln('º1 - TL -> YTL º º2 - TL -> DOLAR º º3 - TL -> EURO º');
gotoxy(12,5);
writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
gotoxy(12,6);
writeln('º4 - YTL -> DOLARº º5 - YTL -> EURO º º6 - DOLAR -> EUROº');
gotoxy(12,7);
writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
gotoxy(12,8);
writeln('º7 - DOLAR -> TL º º8 - DOLAR -> YTLº º9 - EURO -> DOLARº');
gotoxy(12,9);
writeln('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
gotoxy(12,10);
writeln('º10 - EURO -> TL º º11 - EURO -> YTLº º12 - YTL -> TL º');
gotoxy(12,11);
writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼');
end;
procedure ytl_tl;
begin
gotoxy(30,16);
write('kac YTL cevireceksin=');readln(ytl);
gotoxy(30,17);
tl:=ytl*1000000;
gotoxy(30,18);
writeln('TL KARSILIGI =',tl:15:1);
END;
procedure tl_ytl;
begin
gotoxy(30,16);
write('kac TL cevirceksiniz=');readln(tl);
ytl:=tl/1000000;
gotoxy(30,17);
writeln('YTL KARSILIGI=',ytl:15:1);
end;
procedure tl_euro;
begin
gotoxy(30,16);
write('kac TL cevirceksiniz=');readln(tl);
gotoxy(30,17);
write('1 EURO kac TL =');readln(euro);
euro:=tl/euro;
gotoxy(30,18);
writeln('TL KARSILIGI =',euro:15:1);
end;
procedure tl_dolar;
begin
gotoxy(30,16);
write('kac TL cevirceksiniz=');readln(tl);
gotoxy(30,17);
write('1 DOLAR kac TL =');readln(dolar);
dolar:=tl/dolar;
gotoxy(30,18);
writeln('DOLAR KARSILIGI =',dolar:15:1);
end;
procedure ytl_dolar;
begin
gotoxy(30,16);
write('kac YTL cevirceksiniz=');readln(ytl);
gotoxy(30,17);
write('1 DOLAR kac YTL =');readln(dolar);
dolar:=ytl/dolar;
gotoxy(30,18);
write('DOLAR KARSILIGI =',dolar:15:1);
end;
procedure ytl_euro;
begin
gotoxy(30,16);
write('kac YTL cevirceksiniz=');readln(ytl);
gotoxy(30,17);
write('1 EURO kac YTL =');readln(euro);
euro:=ytl/euro;
gotoxy(30,18);
write('EURO KARSILIGI =',euro:15:1);
end;
procedure dolar_euro;
begin
gotoxy(30,16);
write('1 DOLAR kac TL =');readln(kdolar);
gotoxy(30,17);
write('1 EURO kac TL =');readln(euro);
gotoxy(30,18);
writeln;
gotoxy(30,19);
write('kac DOLAR cevirceksiniz=');readln(dolar);
oran:=kdolar/euro;
euro:=dolar*oran;
gotoxy(30,20);
writeln('EURO KARSILIGI =',euro:15:1);
end;
procedure euro_dolar;
begin
gotoxy(30,16);
write('1 EURO kac TL =');readln(keuro);
gotoxy(30,17);
write('1 DOLAR kac TL =');readln(dolar);
gotoxy(30,18);
writeln;
gotoxy(30,19);
write('kac EURO cevirceksiniz=');readln(euro);
oran:=keuro/dolar;
dolar:=euro*oran;
gotoxy(30,20);
writeln('DOLAR KARSILIGI =',dolar:15:1);
end;
procedure dolar_tl;
begin
gotoxy(30,16);
write('kac DOLAR cevirceksiniz=');readln(dolar);
gotoxy(30,17);
write('1 DOLAR kac TL =');readln(tl);
tl:=dolar*tl;
gotoxy(30,18);
writeln('TL KARSILIGI =',tl:15:1);
end;
procedure euro_tl;
begin
gotoxy(30,16);
write('kac EURO cevirceksiniz =');readln(euro);
gotoxy(30,17);
write('1 EURO kac TL =');readln(tl);
tl:=euro*tl;
gotoxy(30,18);
writeln('TL KARSILIGI =',tl:15:1);
end;
procedure euro_ytl;
begin
gotoxy(30,16);
write('kac EURO cevirceksiniz =');readln(euro);
gotoxy(30,17);
write('1 EURO kac YTL =');readln(ytl);
ytl:=euro*ytl;
gotoxy(30,18);
writeln('YTL KARSILIGI =',ytl:15:1);
end;
procedure dolar_ytl;
begin
gotoxy(30,16);
write('kac DOLAR cevirceksiniz=');readln(dolar);
gotoxy(30,17);
write('1 DOLAR kac YTL =');readln(ytl);
ytl:=dolar*ytl;
gotoxy(30,18);
writeln('YTL KARSILIGI =',ytl:15:1);
end;
begin
repeat
clrscr;
for sec:=1 to 26 do
begin
insline;
textbackground(blue);
end;
textcolor(15);
gotoxy(56,25);
writeln('.-==YšXORH SOFTWARE©==-.');
gotoxy(1,25);
write('CIKIS i‡in 13"e basin');
gotoxy(1,1);
textcolor(white);
cerceve;
gotoxy(35,13);
writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(35,14);
writeln('ºSE€IMINIZ= º');
gotoxy(35,15);
writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍ¼');
gotoxy(46,14);
read(sec);
textbackground(blue);
gotoxy(1,17);
case sec of
1:tl_ytl;
2:tl_dolar;
3:tl_euro;
4:ytl_dolar;
5:ytl_euro;
6:dolar_euro;
7:dolar_tl;
8:dolar_ytl;
9:euro_dolar;
10:euro_tl;
11:euro_ytl;
12:ytl_tl;
13:exit
end;
readln;
until sec=13;
end.

yeniçeri3456 · 14 Eyl 2007

sağ ol

cezalandirilci · 25 Ağu 2010

Emegine Sağlık ..(üsTAD)__

Pascal ÇEVİRMEN 1.2

CorsaiR

Emektar

yeniçeri3456

Yeni üye

cezalandirilci

Üye

Sosyal medya sayfalarımız