Skip to main content

AccessTr.neT


Girilen 4 sayıdan 100 En Yakın Olanını bulma???

Girilen 4 sayıdan 100 En Yakın Olanını bulma???

Çözüldü #1
merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 
Cevapla
Wink #2
(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4
        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 
Cevapla
#3
(28/05/2015, 16:12)hatice.haa yazdı:
(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4
        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 

Hocam ilginize teşekkür ederim buna benzer bende yaptım ama sayı 100 den büyük girilme ihtimalinde doğru çalışmayacaktır
Cevapla
#4
Önce bir döngüyle 100'den büyük olan sayıları eleyebilirsiniz. Sonuçta 4 tane değişken atayın ve her girilen sayıyı kontrol ettirip (döngü ile) teker teker bu değişkenlere atayın. 100'den küçük olan sayılar için de hatice.haa'nın gönderdiği kodları devreye sokun.
İnadına, ille de Accesstr.net...
Cevapla
#5
(28/05/2015, 16:37)47terminator yazdı:
(28/05/2015, 16:12)hatice.haa yazdı:
(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4

        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 

Hocam ilginize teşekkür ederim buna benzer bende yaptım ama sayı 100 den büyük girilme ihtimalinde doğru çalışmayacaktır

Hocam ben 100 den büyük sayı girdiğimde onu almadı 100 den küçük girdiğim sayıların içinde 100 e en yakın olanı gösterdi zaten. Ama işinize yaramadıysa mehmetdemiral hocamında dediğini deneyin isterseniz.
Son Düzenleme: 29/05/2015, 12:41, Düzenleyen: hatice.haa. (Sebep: eksik mesaj yazdım)
Cevapla
#6
teşekkür ederim çözülmüştür yardımlarınız için teşekkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task