Программа, предлагающая угадать число от 0 до 10 за 3 попытки

@vikavika · Регистрация: 07.06.2009

Студворк — интернет-сервис помощи студентам

Вот то что ниже, надо переделать так, чтобы разбить это на 3 функции, чтобы была 1 Inputbox, типа параметры какие то сделать там надо.. помогите плииз..

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Randomize
a= Rnd(1) 'переменной a присваивается случайное число от 0 до 1
a=Fix(a*10) 'переменной присваивается случайное число от 0 до 10
x=CInt(inputbox("Введите параметр","Угадайте число от 0 до 10 за 3 попытки!!!"))
If x>a  Then
        Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
        x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталось всего 2 попытки!!!"))
  ElseIf x<a Then
        Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "
        x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталось всего 2 попытки!!!"))
 End If
If  x<a  Then 
          Msgbox "Загаданное число больше!",vbSystemModal,"результат: "
          x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталась всего 1 попытка!!!"))
  ElseIf x>a Then
        Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
        x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталась всего 1 попытка!!!"))
 End If
If x=a  Then
         Msgbox "Вы угадали загаданное число!!!  ",vbSystemModal,"результат: "
  Else 
         Msgbox "Вам не удалось угадать загаданное число за 3 попытки!!! ", _
vbSystemModal,"результат: "
End If

@BasicMan · 07.06.2009, 18:06

может так пойдет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Randomize
a= Fix(Rnd(1)*10) 'переменной a присваивается случайное число от 0 до 10
for i=1 to 3
     if i=1 then
           str1="Введите параметр"
           str2="Угадайте число от 0 до 10 за 3 попытки!!!"
     else
           str1="Попытайтесь угадать ещё раз: "
           str2="Осталось всего " & (4-i) &" попытки!!!"
     end if
     x=CInt(Val(inputbox(str1,str2)))
     ' добавил проверку на то что загнано вообще число Val()
 
     select case x
     case Is < a
           Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "
     case Is > a
           Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
     case a
         Msgbox "Вы угадали загаданное число!!!  ",vbSystemModal,"результат: "
         Exit For
    end select
next i
if x<>a then Msgbox "Вам не удалось угадать загаданное число за 3 попытки!!! ",  _
vbSystemModal,"результат: "

@vikavika · 07.06.2009, 18:12 **[ТС]**

в 15 строчке выдаёт синтаксическую ошибку на 11 символе..

@BasicMan · 07.06.2009, 18:34

вот этот кусок

Сообщение от Бурундук

Visual Basic
1
2
3
4
5
6
7
8
9
     select case x
     case Is < a
           Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "
     case Is > a
           Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
     case a
         Msgbox "Вы угадали загаданное число!!!  ",vbSystemModal,"результат: "
         Exit For
    end select

попробуйте так переписать

Visual Basic
1
2
3
4
5
6
7
8
9
     select case x
     case x < a
           Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "
     case x > a
           Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
     case x = a
         Msgbox "Вы угадали загаданное число!!!  ",vbSystemModal,"результат: "
         Exit For
    end select

@Abu · 07.06.2009, 18:40

Бурундук, там в задании требование

Сообщение от vikavika

надо переделать так, чтобы разбить это на 3 функции

Я вот думаю, если процедура - это та же функция, только не возвращающая значение, и наоборот, функция - это та же процедура, которая что-то возвращает, то тада вот это должно прокатить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim a, pop
Randomize
a=Rnd(1)
a=Fix(a*10)
pop=3
Call question
sub question()
dim x
If pop=0 then Call gameover(pop): exit sub
On Error Resume Next
x=CInt(inputbox("Введите параметр","Осталось попыток " & pop))
If x<a then 
Call Msg(x, " меньше ")
ElseIf x>a then
Call Msg(x, " больше ")
Else
Call gameover(1)
End if
end sub
sub Msg(x, mes)
MsgBox "Число " & x & mes & "загаданного"
pop=pop-1
Call question
end sub
sub gameover(res)
If res=0 then
Msgbox "Вы не угадали, число было " & a
else
Msgbox "УРА! Вы угадали, число " & a
end if
end sub

Я просто не представляю, куда в эту задачу можно три функции воткнуть? Для чего?!

@vikavika · 07.06.2009, 18:48 **[ТС]**

да! это как раз то, что надо!!вроде)
огроменное спасибо!)

@Abu · 07.06.2009, 19:01

Да не за что, я просто правда не могу придумать для этого задания целых ТРИ функции!!! Не, можно конечно выпендриться и придумать функцию проверки введённых данных на содержание числа, функцию на проверку количества попыток и основную функцию на проверку соответствия загаданного числа введённому... Короче, если вдруг препод начнёт придераться, можно ему так и ответить - процедура - это та же функция, так что задание выполнено в соответствии с условием. И если что-то не катит, то нужно конкретнее ставить условия задания.

@vikavika · 07.06.2009, 19:09 **[ТС]**

ага) спасибо) просто препод действительно объясняет так, что его редко понять можно) да и тем более я программирование плохо понимаю)
очень крутая програмка у вас получилась))

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@vikavika 0 / 0 / 0 Регистрация: 07.06.2009 Сообщений: 4
	07.06.2009, 18:12 [ТС]
	в 15 строчке выдаёт синтаксическую ошибку на 11 символе.. 0

@vikavika 0 / 0 / 0 Регистрация: 07.06.2009 Сообщений: 4
	07.06.2009, 18:48 [ТС]
	да! это как раз то, что надо!!вроде) огроменное спасибо!) 0

@Abu 1161 / 288 / 23 Регистрация: 28.09.2008 Сообщений: 553
	07.06.2009, 19:01
	Да не за что, я просто правда не могу придумать для этого задания целых ТРИ функции!!! Не, можно конечно выпендриться и придумать функцию проверки введённых данных на содержание числа, функцию на проверку количества попыток и основную функцию на проверку соответствия загаданного числа введённому... Короче, если вдруг препод начнёт придераться, можно ему так и ответить - процедура - это та же функция, так что задание выполнено в соответствии с условием. И если что-то не катит, то нужно конкретнее ставить условия задания. 1

@vikavika 0 / 0 / 0 Регистрация: 07.06.2009 Сообщений: 4
	07.06.2009, 19:09 [ТС]
	ага) спасибо) просто препод действительно объясняет так, что его редко понять можно) да и тем более я программирование плохо понимаю) очень крутая програмка у вас получилась)) 0