Geri sayım aracı - AKDENİZ FORUM'a Hoş Geldin! |

**ERoS** · 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)
ERoS W€b@dmin Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Jun 2006 Nerden: Kahramanmaraş Mesajlar: 3.998 Üye No: 2 Extra Bilgiler Tecrübe Puanı: 100 Rep Gücü : 1000249 Rep Derecesi : Bookmarks İ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. Arkadaşlar eski nickim[Sh€qiL] ERoS olarak değiştirdim. Bu rumuzla Devam edicem. 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 AkdenizForum Üyesi 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 : Bookmarks İletişim	--->: Geri sayım aracı teşekkürler

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Konuyu değerlendir
Konuyu değerlendir:

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)