arkadaş sayıLarı buLma programı - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: arkadaş sayıLarı buLma programı (/konu-arkadas-sayilari-bulma-programi.html) |
arkadaş sayıLarı buLma programı - HırÇıN - 11/03/2010 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? Cvp: arkadaş sayıLarı buLma programı - C*e*l*o*y*c*e - 11/03/2010 örnek ekleyin ayrıca toplam ile ilgili arama yaparsak çok örnek bulursunuz https://accesstr.net/search.php?action=results&sid=b723b13a23ff56bf0c6e8a06b96877ab&sortby=&order=desc Cvp: arkadaş sayıLarı buLma programı - HırÇıN - 11/03/2010 Cidden harikasın Tşkrederim, işte bazen böyLe basit şeyLeri düşünemicek kadar daLgın oLabiLiyoruz. programı bitirince payLaşırım sizLerLe. =))))) Cvp: arkadaş sayıLarı buLma programı - HırÇıN - 12/03/2010 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. |