29 March 2008, 18:09 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Sayi gruplari
Sayi gruplari a = TextBox1.Text For i = 1 To a sayi(i) = InputBox(i & ".sayi=" Next buyuk = sayi(1) For i = 1 To a If sayi(i) > buyuk Then buyuk = sayi(i) Next MsgBox(buyuk) bolum = buyuk \ 10 If buyuk Mod 10 = 0 Then b = bolum Else : b = bolum + 1 End If MsgBox(b) For i = 1 To b For j = 1 To a If (sayi(j) > ((i - 1) * 10) And sayi(j) <= (i * 10)) Then sayac(i) = sayac(i) + 1 Next j Next i For i = 1 To b MsgBox((i - 1) * 10 & " ile " & (i * 10) & "arasında " & sayac(i) & " tane sayi var" Next |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Sayi bulma oyunu | tamerr89 | visual basic.net | 0 | 29 March 2008 18:07 |
Sayi buldurma | tamerr89 | asp.net | 0 | 29 March 2008 13:00 |
-C## consolede asal sayi programi | tamerr89 | C# | 0 | 04 March 2008 14:19 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |