Dizideki Sayı
-
Elimde bir takım sayılar olsun
Örnegin : 1 5 7 9 13 1578 3215 69645 gibi devam eden milyonlarca karışık sayı. Öyle bir kod yazmalıyımki en kücük sayıyı ve en büyük sayıyı bana göstersin sırasıyla. -
En büyük sayıyı göstermek için baştan sonra array'daki tüm sayıların en büyük olup olmadığını kontrol ettireceksin. Bunun için ayrı bir fonksiyon yazarsın, yani her sayı için tüm dizeyi tekrar kontrol edip, o sayıdan büyüğü var mı yok mu onu kontrol eden bir fonksiyon. İki döngü iç içe olacak yani. Düşündüğünde biraz yavaş olacakmış gibi görünse de 100 tane sayı içinden en büyüğünü bulması saniyenin 10'da biri kadar süre bile almaz.
En küçük sayıyı bulmak için de söylediğin olayı en küçük olup olmadığını kontrol ettirerek yapabilirsin.
İstersen kodu da yazıp verebilirim. -
az laf çok iş .... RAISER !
Public Sub Sirala(ByRef dize() As Double)
Dim i As Long, j As Long, buffer As Double
If Not LBound(dize) = 0 Then
MsgBox "LBound '0' olmak zorunda !"
Exit Sub
End If
For i = 0 To UBound(dize)
For j = 0 + i To UBound(dize)
If dize(i) < dize(j) Then
buffer = dize(i)
dize(i) = dize(j)
dize(j) = buffer
End If
Next j
Next i
End Sub -
dim tmp as long
dim a() as long ' burasi sayilari tutsun
for i = lbonud(a) to ubound(a)
if a(i)>tmp then tmp = a(i)
next i
msgbox "en buyuk:" & tmp
Toplam Hit: 1930 Toplam Mesaj: 4