dizilerle ilgili bir soru

[naiad1786]

Dışarıdan girilen n elemanlı bir dizide her bir elemandan kaç adet olduğunu bulan program..


Private Sub Command1_Click()
Dim dizi()
Dim n As Integer
Dim sayac As Integer
n = InputBox("Diziniz kaç elemanlı olsun?")
ReDim dizi(n)
For i = 0 To n - 1
dizi(i) = InputBox("sayılar")
Next
For i = 0 To n - 1
For j = 0 To n - 1
If dizi(i) = dizi(j) Then sayac = sayac + 1
For k = 0 To i - 1
If dizi(i) = dizi(k) Then GoTo g
Next
Next
Print sayac & " " & "tane" & " " & dizi(i) & " " & "elemanından var"
sayac = 0
g:
Next
End Sub

arkadaşlar bi yerde yanlışlık var ama çözemedim biri bana yardımcı olabilirmi?

[naiad1786]

ya ndn kimse bişi yazmıyo yaa lütfen ödewim var daha bunun gibi bir sürü ağlıcam şimdi:'(

[erkany]

Private Sub Command1_Click()

Dim dizi()
Dim n As Integer
Dim i, j, k As Integer
Dim sayac As Integer
n = InputBox("Diziniz kaç elemanlı olsun?")
ReDim dizi(n)
For i = 0 To n - 1
dizi(i) = InputBox("sayılar")
Next
For i = 0 To n - 1
For j = 0 To n - 1
If dizi(i) = dizi(j) Then sayac = sayac + 1
For k = 0 To i - 1
If dizi(i) = dizi(k) Then GoTo g
Next
Next
MsgBox(sayac & " " & "tane" & " " & dizi(i) & " " & "elemanından var")
sayac = 0
g:
Next
End Sub

[naiad1786]

arkadaşım çok saol bana yardım etmek istedğin için ama eğer çalıştırırsan bnmkiyle aynı hatayı veriyo yani sayılara sırasıyla 1 1 2 2 3 3 girersen 2 tane 1 3 tane2 2 tanede 3 diyo ikincisinde nie hata veriyo anlamadım

[mr_c]

pek koda bakmadım ama dizileri 0 dan başlatmanızın özel bi anlam varmı C dizileri gibi olmuş, 1 den başlatsanız bide sub sonunda bütün değişkenleri sıfırlaasanız bu arada ben de bi basic kurup koda baksam.

[naiad1786]

onun pek bi önemi yok 0 veya 1 olmasının sayacı zaten sıfırlıyorumda ya bi tek dediğim şeyde hata veriyo başka değerler giriyorum bazılarında veriyo bazılarında verimyio anlamadım bnde

[mr_c]

algoritmayı değiştirsek;
birinci dizinin elemanlarını oku
ikinici dizinin tüm elemanlarını sıfırla (ikinci dizi on elemanlı 0 1 ... 9 rakamları için)
birinci dizide okuduğun sayıyı ikinci diziye index yap bir artır.

dizi2[dizi1[i]]=dizi2[dizi1[i]]+1;

tekrarla

şimdi ikinci dizide 0 dan bire kadar tüm elemanlarda toplam adetler yazacaktır.

[mr_c]

dim dizi1(5) as integer
dim dizi2(10) as integer

for i=0 to 5

dizi2(dizi1(i))=dizi2(dizi1(i))+1

next i

gibi bu durumda ikinci dizinin birinci elemanında toplam sıfırlar ikinci elemanında toplam birler vs toplamları oluşur. istediğin gibi yazdırırsın

[naiad1786]

böle bişi ilk defa görüyom dizi içinde dizi:S

[Sabahi]

Soruyu kucuk parcalara bolmek icin fonksiyon kullanmayi dene. Goto lardan kacin.

Redim dizi(n)
Redim sayilan(n)

' Inputu aldiktan sonra asagidakine benzer bir seyler olabilir mesela.

For i=0 To n-1

If ElemanSayildi(dizi(i), sayilan) = 0 Then
MsgBox "Sayi " & dizi(i) & vbTab & GetCount(dizi(i), dizi) & " defa bulundu."
End if
sayilan(i) = dizi(i)

Next

End Sub

Function GetCount(sayi, dizi)

Dim count

For i=0 To UBound(dizi)-1

if dizi(i) = sayi Then Count = Count + 1

Next

GetCount = Count

End Function

Function ElemanSayildi(e, s)

For i=0 To UBound(s) - 1
If s(i) = e Then
ElemanSayildi = 1
Exit Function
End If
Next
ElemanSayildi = 0

End Function