Created
May 2, 2020 19:31
-
-
Save toltarisa/9472848989a192c7f54ddc3e612619c7 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Module VBModule | |
| Sub Main() | |
| 'burada kullanıcıdan iki tane sayı alıyoruz' | |
| dim sayi1 as Integer = Console.Readline() | |
| dim sayi2 as Integer = Console.Readline() | |
| 'burada aldığımız iki sayı arasında iki tane rastgele değer üretiyoruz' | |
| dim rastgeleSayi1 as Integer = CInt(Math.Ceiling(Rnd() * sayi1)) + sayi2 | |
| dim rastgeleSayi2 as Integer = CInt(Math.Ceiling(Rnd() * sayi1)) + sayi2 | |
| 'burada aritmetikHesapla metoduna iki rastgele sayıyı vererek aritmetik ortalamayı hesaplatıyoruz' | |
| dim aritmetikOrtalama = aritmetikHesapla(rastgeleSayi1,rastgeleSayi2) | |
| Console.Write(aritmetikOrtalama) | |
| 'burada geotmetrikHesapla metoduna iki rastgele sayıyı vererek geometrik ortalamayı hesaplatıyoruz' | |
| dim geometrikOrtalama = geometrikHesapla(rastgeleSayi1,rastgeleSayi2) | |
| Console.Write(geometrikOrtalama) | |
| End Sub | |
| Function aritmetikHesapla(ByVal num1 as Integer,ByVal num2 as Integer) as Integer | |
| return (num1 + num2) / 2 | |
| End Function | |
| Function geometrikHesapla(ByVal num1 as Integer,ByVal num2 as Integer) as Double | |
| return Math.pow((num1*num2),0.5) | |
| End Function | |
| End Module |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment