Угадывание числа не больше чем за три попытки - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Вроде простая задача по теме if.than, но никак не получается Разработать программу, которая отгадывает задуманное пользователем число от 0 до 7, задавая ему вопросы вида "Задуманое число больше N?" и получая ответы "Да", или "Нет". Прогопмма должна задать не больше трёх вопросов, после чего вывести ответ

Решение задачи: «Угадывание числа не больше чем за три попытки»

textual
Листинг программы
  1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  2.     Dim N As Integer = NumericUpDown1.Value
  3.     MsgBox("Загадано число " & Quesser(N).ToString)
  4. End Sub
  5. Private Function Quesser(ByVal N As Integer) As Integer
  6.     Dim R As Integer
  7.     If N > 3 Then
  8.         If N > 5 Then
  9.             If N = 6 Then
  10.                 R = 6
  11.             Else
  12.                 R = 7
  13.             End If
  14.         Else
  15.             If N = 5 Then
  16.                 R = 5
  17.             Else
  18.                 R = 4
  19.             End If
  20.         End If
  21.     Else
  22.         If N > 1 Then
  23.             If N = 2 Then
  24.                 R = 2
  25.             Else
  26.                 R = 3
  27.             End If
  28.         Else
  29.             If N = 0 Then
  30.                 R = 0
  31.             Else
  32.                 R = 1
  33.             End If
  34.         End If
  35.     End If
  36.     Return R
  37. End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы