IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Ocak 2015, 06:39   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sayıları Yazı İle Yazma




<?php
function uclu($uclu) {
$uclu=trim($uclu);
$yazi = array(
"0" => array("2" => "","1" => "","0" => ""),
"1" => array("2" => "bir","1" => "On","0" => "yüz"),
"2" => array("2" => "iki","1" => "yirmi","0" => "ikiyüz"),
"3" => array("2" => "üç","1" => "otuz","0" => "üçyüz"),
"4" => array("2" => "dört","1" => "kırk","0" => "dörtyüz"),
"5" => array("2" => "beş","1" => "elli","0" => "beşyüz"),
"6" => array("2" => "altı","1" => "altmış","0" => "altıyüz"),
"7" => array("2" => "yedi","1" => "yetmiş","0" => "yediyüz"),
"8" => array("2" => "sekiz","1" => "seksen","0" => "sekizyüz"),
"9" => array("2" => "dokuz","1" => "doksan","0" => "dokuzyüz") );

$ucluyazi="";
for ($i=0;$i<=2;$i++){
$ucluyazi.=$yazi[(substr($uclu,$i,1))][$i];
}
return($ucluyazi);
}

function yaziyacevir($sayi) {
$olay = array("0" =>" ","1" =>" ","2" =>"bin","3" =>"milyon","4" =>"milyar","5" =>"trilyon");
$sayi = trim($sayi);
$uzunluk = strlen($sayi);
if ($uzunluk > 15) exit("Girdiğiniz Sayı Çok Büyük...");
$kalan = $uzunluk-3*($tane=floor($uzunluk/3));
if ($kalan!=0) {
$tane++;
for ($i=0;$i<=$kalan;$i++) {
$sayi="0".$sayi;
$uzunluk++;
}
}
$yazi="";

for ($i=$tane;$i>=1;$i--){
if (!($i==2 and (substr($sayi,($uzunluk-($i*3)),3)=="001")))
$yazi.=uclu(substr($sayi,($uzunluk-($i*3)),3));
if ((substr($sayi,($uzunluk-($i*3)),3)!="000")) $yazi.=$olay[$i];
}
return ($yazi);
}
?>
<HTML>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<BODY>
<form name="form" method="post" action="<?=$PHP_SELF;?>">
<input type="text" name="sayi" maxlength="15">
<input type="submit" name="Okut" value="Okut">
</form>

<?php
$sayi = $_POST['sayi'];
if ($sayi) {
echo "<b>Girdiginiz Sayı :</b> $sayi<br>";
echo "<b>Yazı İle :</b> ".ucfirst(yaziyacevir($sayi))."";
}
?>
</BODY>
</HTML>

__________________
Bu kez pek bir afili yalnızlık, ağlatan bir kadın kadar düşman. Ağzı bozuk üstelik bırakmıyor acıtmadan.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
sayıları, yazma, yazı, yle


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
1 ile 100 arası asal sayıları While döngüsü ile ekrana yazma – C# Console aSpeNDos C# 0 08 Mart 2013 12:52
C# ile Dosya içine yazı yazma YaRGuCi C# 0 09 Ocak 2012 22:55
Hareketli - Yazı Yazma Gifler Afrodit Avatar ve Smiley 0 23 Eylül 2011 18:54