IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Birden girilen sayıya kadarki tek sayıların toplamı

Bir önceki makalemizden devam ederek, birden girilen sayıya kadar olan tek sayıların toplamını for döngüsü ile yapalım. Aşağıdaki kodları islem.asp şeklinde kaydedin ve sayfayı çağırın. Metin alanına 1′den büyük bir sayı girin. Girdiğiniz sayı örneğin 5 ise, sonuç 1+3+5 = 9 olacaktır.

PHP- Kodu:

   <center>

<form method=”get” action=”islem.asp”>

<table border=”0&#8243; cellpadding=”2″ cellspacing=”2″>

<tr>

<td><b>Tek sayıların toplamı</b></td>

<td></td>

</tr>

<tr>

<td> Sayı : </td>

<td><input size=”5&#8243; 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 “1′den “& xnumber &” sayısına kadar olan tek sayıların toplamı = ” & IslemYap(number1)

else

Response.Write “<b>Birden büyük bir sayı giriniz</b>”

end if

%>

</center>

 
<%

function IslemYap(byval xnumber)

dim temp

dim i

temp=0

if xnumber<1 then

temp=”Lütfen 1′den büyük bir sayı giriniz!”

else

for i=1 to xnumber

if (i mod 2 = 1) then

temp = temp + i

end if

next

end if

IslemYap = temp

end function

%>