arkadaş sayıLarı buLma programı

11/03/2010, 13:39

HırÇıN

BiLmiyorum beLki kodLarı çok bassittir ama iki gündür uğraşmama rağmen haLa başarı eLde edemedim. konu şöyLe 1 iLe 2000.000.000 arasında oLan arkadaş sayıLarı programı. Nette vardır die arama yaptım bu tatLı siteye denk geLdim. ufakta oLsa bu konuda fikri oLan varmı acaba?
11/03/2010, 17:31

C*e*l*o*y*c*e

örnek ekleyin
ayrıca toplam ile ilgili arama yaparsak çok örnek bulursunuz
https://accesstr.net/search.php?action=r...order=desc
11/03/2010, 22:31

HırÇıN

Cidden harikasın Tşkrederim, işte bazen böyLe basit şeyLeri düşünemicek kadar daLgın oLabiLiyoruz. programı bitirince payLaşırım sizLerLe. =)))))
12/03/2010, 23:20

HırÇıN

VisuaL Basic programında arkdaş sayıyı buLma..... Umarım faydasını görürsünüz.

Burda sayıları ben elle girdim ekrandan almayı bilmiyorum çünkü =)))
Umarım çalışır, ama algoritma olarak doğru oluyor, diğer dillerde
yazdım çalışıyor.
Dim fs1 As Integer = 220
Dim fs2 As Integer = 284
Dim tmp1 As Integer = 0
Dim tmp2 As Integer = 0

For i As Integer = 1 To fs1
If (fs1%i==0) Then tmp1+=i
Next i

For j As Integer = 1 To fs2
If (fs2%i==0) Then tmp2+=i
Next j

If (fs1==tmp1 && fs2==tmp2) Then
Bu iki sayı arkadaştır diye yazdırırsın.
Else
Bu iki sayı arkadaş değildir diye yazdırırsın.