Sayıları Yazı İle Yazma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

hAte · 15 Ocak 2015, 06:39

<?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>

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.