This commit is contained in:
Ivan Bushchik 2022-01-06 14:43:39 +03:00
commit bcf0f9edb9
2 changed files with 24 additions and 0 deletions

1
_config.yml Normal file
View file

@ -0,0 +1 @@
theme: jekyll-theme-modernist

View file

@ -395,6 +395,25 @@ Module Program
Console.ReadKey() Console.ReadKey()
End Sub End Sub
Sub TestGenerator()
Randomize()
Dim Count, Ending As Integer
Dim rnd As New Random
Console.Write("Введите количество чисел для генерирования >>> ")
Count = Console.ReadLine()
Console.Write("Введите конец диапазона проверки (от 0 по X, где X - число, которое вводится сейчас) >>> ")
Ending = Console.ReadLine()
Dim mass(Count) As Integer
For i = 0 to Ubound(mass)
mass(i) = 0
Next
Dim now As Integer
For i = 0 To Count
mass(rnd.Next(0, Ending)) += 1
Next
End Sub
Sub Main() Sub Main()
Console.BackgroundColor = ConsoleColor.Green Console.BackgroundColor = ConsoleColor.Green
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
@ -405,6 +424,8 @@ Module Program
Console.WriteLine("1) Начать игру") Console.WriteLine("1) Начать игру")
Console.WriteLine("2) Ознакомиться с правилами") Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) О игре") Console.WriteLine("3) О игре")
Console.WriteLine("Дополнительно:")
Console.WriteLine("4) Проверка генератора случайных чисел")
Console.WriteLine("0) Выйти из игры") Console.WriteLine("0) Выйти из игры")
Console.Write(">>> ") Console.Write(">>> ")
Dim input As Integer = Console.ReadLine Dim input As Integer = Console.ReadLine
@ -421,6 +442,8 @@ Module Program
Case 3 Case 3
About() About()
Main() Main()
Case 4
TestGenerator()
End Select End Select
End Sub End Sub
End Module End Module