asp(tek -çift)

Kodla Büyü
G

gökkuşağı

Üye
Mesajlar
1
<script language="VB" runat="server">

Dim deger as long=0
Dim x as long
Dim sayi as long


Sub faktoriyel1(sender as object,e as eventargs)

x=text1.text

Do While text1.text<deger

sayi=deger*x
x=x+1

Loop


sonuc.text="Sonuç " & sayi



end sub


</script>

<html><body>
<form runat="server">

<asp:textbox id="text1" runat="server"/>

<asp:button id="btn" text="Faktöriyel" onclick="faktoriyel1" runat="server"/>

<asp:label id="sonuc" runat="server"/>

</form>
</body></html>



Faktöriyel hesabı olmuyor sonuçu hep 0 olarak yazıyor :S yardımcı olurmusunuz?
 
sayi=deger*x

sayi=0*x //tabiki sonuç sfır olur bütün x ler herseferinde 0 ile çarpılıyor
 
değerle x i çarpıyorsunuz ve değer hiç artmıyor. yani oradan gelen sonuç sıfır.
 
Ben ordaki kodlarını anlamadım ama şunu direk "faktoriel.asp" diye kaydet çalıştır

-------------------------------------------------------------------------------------------------------------
Kod: 
<form action="faktoriel.asp?deger=islem_yap" method="post" name="form1" id="form1">
 <input type="input" name="sayi" id="sayi" /><br />
 <input type="submit" name="button" id="button" value="G&ouml;nder" />
</form>

<%islem=request.QueryString("deger")
if islem="islem_yap" then
sayi=request.Form("sayi")

if sayi=1 then 'gelen sayı 1 ise
response.Write("İşlem sonucu=1")

elseif sayi=0 then'gelen sayı 0 ise
response.Write("İşlem sonucu=1")

else 'gelen sayı 0 veya 1 den farklı ise
sonuc=1
For i = 1 To sayi    
sonuc=sonuc*i
Next
response.Write("İşlem sonucu="&sonuc)

end if 
end if%>
-----------------------------------------------------------------------

Kolay gelsin...
 
Sub faktoriyel1(sender as object,e as eventargs)
x=cint(text1.text)
sayi=1

for i=1 to x
sayi=sayi*i
next
sonuc.text="Sonuç " & sayi
end sub


kullan
 
volkankey hocam sizin mantıktada 0! o çıkar :)

o!=1 diye kontrol ettirmek lazım o zaman :)
 
dim x as integer
dim deger as long=0
dim sayi as long=1
x=text1.text
Do While x>deger

sayi=sayi*x
x=x-1

Loop
 
peki bişe sorucam ?

Do while açılıo yapılan bu program peki do until ile yazsak aynı şekilde çalışırmı ?
 
do while koşul doğru oldugu sürece devam eder, do until koşul doğru olunca sonlanır
do until x<=deger olursa çalısır
 
Cevap yazmak için giriş yap yada kayıt ol.
BBNET
Geri
Üst