Генератор случайных чисел (Программы 3)
Описание файла
Файл "Генератор случайных чисел" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Генератор случайных чисел"
Текст из документа "Генератор случайных чисел"
Module Module1
Sub Main()
Dim i, n, p As Integer
Randomize()
n = Math.Round(Rnd() * 100)
Console.WriteLine("Сейчас я загадаю целое число от 0 до 100,")
Console.WriteLine("а ты попытаешься его угадать за 7 попыток.")
For i = 1 To 7
Console.WriteLine("--------------------------------------")
Console.Write("Это твоя " + Str(i) + "-я попытка. Вводи число: ")
p = Console.ReadLine
If p = n Then
Console.WriteLine("МОЛОДЕЦ! ТЫ УГАДАЛ!")
Exit For
ElseIf p > n Then
Console.WriteLine("Перелет")
Else
Console.WriteLine("Недолет")
End If
Next i
If i = 8 Then
Console.WriteLine("--------------------------------------")
Console.WriteLine("УВЫ, ТЫ ПРОИГРАЛ! Я ЗАГАДАЛ ЧИСЛО " + Str(n) + ".")
End If
Console.ReadKey()
End Sub
End Module