[]
Selamlar. Bir tanıdığımın VB ödevi var, çok kısa bir ödev. Bilgisi olanlar yardımcı olabilirlerse sevinirim. Soruyu görsel olarak ekliyorum.
VB ödevi
Selamlar. Bir tanıdığımın VB ödevi var, çok kısa bir ödev. Bilgisi olanlar yardımcı olabilirlerse sevinirim. Soruyu görsel olarak ekliyorum.
Excel için istiyorsanız o konuda pek bilgim yok ancak VB ile aşağıdaki gibi yazabilirsiniz.
Dim toplam = 0
Dim ortalama = 0
Dim buyukElemanSayisi = 0
Dim kucukElemanSayisi = 0
For index As Integer = 0 To dizi.Length - 1
toplam += dizi(index)
Next
ortalama = toplam / dizi.Length
For index As Integer = 0 To dizi.Length - 1
If dizi(index) > ortalama Then
buyukElemanSayisi += 1
ElseIf dizi(index) < ortalama Then
kucukElemanSayisi += 1
End If
Next
Console.WriteLine(ortalama)
Console.WriteLine(kucukElemanSayisi)
Console.WriteLine(buyukElemanSayisi)
Dim toplam = 0
Dim ortalama = 0
Dim buyukElemanSayisi = 0
Dim kucukElemanSayisi = 0
For index As Integer = 0 To dizi.Length - 1
toplam += dizi(index)
Next
ortalama = toplam / dizi.Length
For index As Integer = 0 To dizi.Length - 1
If dizi(index) > ortalama Then
buyukElemanSayisi += 1
ElseIf dizi(index) < ortalama Then
kucukElemanSayisi += 1
End If
Next
Console.WriteLine(ortalama)
Console.WriteLine(kucukElemanSayisi)
Console.WriteLine(buyukElemanSayisi)
- sacco
(26.04.20 23:22:41)
1
