Türkiye'nin En Eski Webmaster Forumu İyinet'e Hoşgeldiniz!
Kayıt Ol
visual basic yardımm
- Konbuyu başlatan cyberrx
- Başlangıç tarihi
visual basic hakkında pek bilgim yok yaptıklarım uzun yoldan olabilir ama istediğini yapıyor :msp_biggrin:
Kod:
Dim sayilar(0 To 3) As Integer
sayilar(0) = 35
sayilar(1) = 15
sayilar(2) = 21
sayilar(3) = 33
Dim i As Integer = 0
Do While i < sayilar.Length
Dim sonuc As Integer = sayilar(i) Mod 5
Dim sonuc2 As Integer = sayilar(i) Mod 7
If (sonuc = 0) Then
MsgBox("Bu sayı 5'e tam bölünüyor : " & sayilar(i))
ElseIf (sonuc2 = 0) Then
MsgBox("Bu sayı 7'e tam bölünüyor : " & sayilar(i))
End If
i = i + 1
LoopSoru iki sayı arasındaki diyor verili 3 sayı bölünür mü demiyor. Birde hangi sayılar demiyor, kaç tane sayı diyor.
M ve N sayılarının benim yazdığım kısımdan önce bir şekilde tanımlandığını düşünürsek. Benimde VB hakkında hiç bilgim yok, yukarıdaki komut kullanımları doğru ise aşağıdaki, sorunun yanıtı olarak çalışması lazım.
Dim K As Integer
Dim Q As Integer
if(M>N) Then
K= M-N
Q=M
ElseIf
K=N-M
Q=N
End If
Dim i As Integer = 0
Dim Toplam As Integer=0
Do While i < K
Dim sonuc As Integer = (Q+i) Mod 5
Dim sonuc2 As Integer = (Q+i) Mod 7
If (sonuc = 0) Then
Toplam = Toplam + 1
ElseIf (sonuc2 = 0) Then
Toplam = Toplam + 1
End If
i = i + 1
Loop
MsgBox("İki sayı arasındaki 5'e veya 7'ye bölünebilen sayılar toplamı " & Toplam)
..................
Dediğim gibi VB bilgim yok sadece algoritmasına dair benim dediklerim. M ve N sayıları dahil bu algoritmada, M ve N sayıları dahil değilse, i 0 değil 1 ile başlatılır, K değişkeni bir küçültülür.
M ve N sayılarının benim yazdığım kısımdan önce bir şekilde tanımlandığını düşünürsek. Benimde VB hakkında hiç bilgim yok, yukarıdaki komut kullanımları doğru ise aşağıdaki, sorunun yanıtı olarak çalışması lazım.
Dim K As Integer
Dim Q As Integer
if(M>N) Then
K= M-N
Q=M
ElseIf
K=N-M
Q=N
End If
Dim i As Integer = 0
Dim Toplam As Integer=0
Do While i < K
Dim sonuc As Integer = (Q+i) Mod 5
Dim sonuc2 As Integer = (Q+i) Mod 7
If (sonuc = 0) Then
Toplam = Toplam + 1
ElseIf (sonuc2 = 0) Then
Toplam = Toplam + 1
End If
i = i + 1
Loop
MsgBox("İki sayı arasındaki 5'e veya 7'ye bölünebilen sayılar toplamı " & Toplam)
..................
Dediğim gibi VB bilgim yok sadece algoritmasına dair benim dediklerim. M ve N sayıları dahil bu algoritmada, M ve N sayıları dahil değilse, i 0 değil 1 ile başlatılır, K değişkeni bir küçültülür.