Geri sayım aracı

**Sh€qiL** · 12-10-2007

istediginiz rakamdan geriye sayim yapın

Kod:

uses crt;vara:integer;i:longint;g:char;begintextbackgro und(lightblue);clrscr;textcolor(yellow); writeln('Geri sayim Baslasin mi ?(1-e/2-h)');repeatg:=upcase(readkey);until g in['1','2']; if g='1' then begin clrscr; writeln('Kactan geriye sayilacak ?');readln(a); for i:=a downto 1 do begin sound(i); delay(1005); nosound; gotoxy(15,5); writeln(i-1,' '); end; if i=1 then begin for i:=00 to 20 do begin sound(i); delay(65); nosound; end; end; end; if g='2' then begin clrscr; writeln(); writeln('Ger sayim samiyacaksan niye giriyon be adam ?, Asabimi bozma. Bir tusa bas'); readkey; exit; end;readln();end.

**ordial** · 05-30-2008

teşekkürler

12-10-2007	#1 (permalink)
Sh€qiL W€b@dmin Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Jun 2006 Nerden: Kahramanmaraş Mesajlar: 3.206 Üye No: 2 Extra Bilgiler Tecrübe Puanı: 100 Rep Gücü : 17891 Rep Derecesi : İletişim	Geri sayım aracı istediginiz rakamdan geriye sayim yapın Kod: uses crt;vara:integer;i:longint;g:char;begintextbackgro und(lightblue);clrscr;textcolor(yellow); writeln('Geri sayim Baslasin mi ?(1-e/2-h)');repeatg:=upcase(readkey);until g in['1','2']; if g='1' then begin clrscr; writeln('Kactan geriye sayilacak ?');readln(a); for i:=a downto 1 do begin sound(i); delay(1005); nosound; gotoxy(15,5); writeln(i-1,' '); end; if i=1 then begin for i:=00 to 20 do begin sound(i); delay(65); nosound; end; end; end; if g='2' then begin clrscr; writeln(); writeln('Ger sayim samiyacaksan niye giriyon be adam ?, Asabimi bozma. Bir tusa bas'); readkey; exit; end;readln();end. Mesajınızda: -> Mail Adresinizi verirseniz, -> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız, -> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız, -> Üstüste mesaj yazarsanız ( Flood yapmakda denir), -> Küfür ederseniz, -> Konuyla alakasız bir başlık atarsanız, -> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız, Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ. Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yöneticiyi uyarabilirsiniz. AkdenizForumLa aLakasız KonuLarda Lütfen EkLemeyiniz. iLetişim Ve Yazışma Adresi : destek@akdenizforum.com AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]

05-30-2008	#2 (permalink)
ordial Amatör Üye Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: May 2008 Mesajlar: 1 Üye No: 106828 Extra Bilgiler Tecrübe Puanı: 0 Rep Gücü : 50 Rep Derecesi : İletişim	--->: Geri sayım aracı teşekkürler

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder