“Faktoriyel hesabı alt programda do while döngüsü ile,
1′den girilen sayıya kadar olan sayıların toplam işlemi while döngüsü ile,
1′den girilen sayıya kadar olan çift sayıların toplamı do until ile,
1′den girilen sayıya kadar olan tek sayıların toplamı for döngüsü ile yapılacak.”
Yukarıda yazdığımız işlemleri dökecez şimdi aşağıya (: Hadi bismillah diyoruz başlıyoruz 🙂 🙂
Faktoriyel hesabını yazacağız.
Faktoriyel nedir: 1′e kadar kendisinde önceki sayılarla çarpımın sonucudur. Örneğin 5 faktoriyel = 5×4×3×2×1 = 120 şeklindeir. Bir istisna 0′ın faktoriyeli 1′dir.
Şimdi aşağıdaki kodların hepsini faktoriyel.asp olarak kaydedin. Ve sayfayı çağırın, işleminiz başarıyla gerçekleşecektir.
<center>
<form method=”get” action=”faktoriyel.asp”>
<table border=”0″ cellpadding=”2″ cellspacing=”2″>
<tr>
<td><b>Faktoriye Hesabı</b></td>
<td></td>
</tr>
<tr>
<td> Sayı : </td>
<td><input size=”5″ type=”text” name=”number” value=”” /></td>
</tr>
<tr>
<td> </td>
<td> <input type=”submit” value=”HESAPLA” /> </td>
</tr>
</table>
</form>
<%
number1=Request.QueryString(“number”)
if IsNumeric(number1) and number1<>”” then
Response.Write number1 &”! = ” &Faktoriyel(number1)
else
Response.Write “<b>Bir sayı girip hesapla butonuna basınız!</b>”
end if
%>
</center>
<%
function Faktoriyel(byval xnumber)
dim temp
dim i
temp=xnumber
i=xnumber
if i=0 or i=1 then
temp = 1
else
do while not i=1
temp = temp * (i-1)
i = i-1
loop
end if
Faktoriyel = temp
end function
%>
aspkodlari.com alıntıdır.