|
|
|||||||
| Üye Ol | SSS | Sxe indir | Sosyal Gruplar | Takvim | Resim Galerisi | Etiketler | Bütün Forumları okunmuş kabul et |
Programlama bölümünde Pascal BASİT BİR DÖVİZ ÇEVİRME PROGRAMI YTL OLARAK konusu , 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 ...
 |
|
|
LinkBack | Konu Seçenekleri |
06-12-2007, 14:41
|
#1 (permalink) |
|
Onursal Üye
 
Giriş: 02-08-2007
Yaş: 28
Mesajlar: 10.389
Rep Puanı: 7866
  E-Güven: (7/100)
|
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,28);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,28);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,28);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,28);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,28);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,28);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,28);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,28);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,28);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,28);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. |
|
    
|
