Faktöriyel Hesaplama

13-02-2010, 12:39:06

~~sRc~~

Merhaba bu işlemi Visual Basic / Forms Applicastion ' da yapabilicek arkadaş var mı ?

For döngüsünü kullanarak

1 / 2 + 2 / 3! + 3! / 4! + 4! / 5! + 3! / 6! + 6! / 7! + 7! / 8!

13-02-2010, 15:43:35

#2

aslan45

pm atıldı

13-02-2010, 15:47:06

#3

~~sRc~~

Buttona bastığımız da direk onun sonucu verecek .

Şimdiden teşekkür ederim...

13-02-2010, 15:50:33

#4

aslan45

/ işaretleri bölü olarak mı kullanılıyor?

13-02-2010, 16:05:45

#5

~~sRc~~

evet bölü olarak kullanılıyor

13-02-2010, 16:25:48

#6

aslan45

kodu mu vereyim programımı

13-02-2010, 16:29:13

#7

~~sRc~~

Kodu verirseniz iyi olur

13-02-2010, 16:32:25

#8

aslan45

tek forlu yaptım şuan önemli olanın sonuç oldugunu düşünerek ama faktoriyeli funcion olarak yapabilirsiniz yada yaparım isterseniz

text1 ve comman1 yerleştiriin formunuza

kod:
Private Sub Command1_Click()
Dim i, sonuc As Single
For i = 1 To 8
If i = 1 Then sonuc = 1
If i = 2 Then sonuc = sonuc / (i + i)
If i = 3 Then sonuc = sonuc / i * (i - 1) * (i - 2) + i * (i - 1) * (i - 2)
If i = 4 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) + i * (i - 1) * (i - 2) * (i - 3)
If i = 5 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) + (i - 2) * (i - 3) * (i - 4)
If i = 6 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) + i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5)
If i = 7 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6) + i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6)
If i = 8 Then sonuc = sonuc / i * (i - 1) * (i - 2) * (i - 3) * (i - 4) * (i - 5) * (i - 6) * (i - 7)
Next i
Text1.Text = sonuc
End Sub

13-02-2010, 16:33:10

#9

aslan45

bu da problemin sonucu : 2,644488E+08