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.
Son Düzenleme: 12/03/2010, 23:21, Düzenleyen: HırÇıN.