Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Помогите написать программу!!! Добавлено: 08.05.10 22:31  

Автор вопроса:  firemix
Игра «Сосиска»

Как известно, длинную сосиску можно есть с двух концов одновременно…
Сосиска представляет собой набор случайных чисел (к примеру, двузначных). Пользователь и компьютер ходят по очереди, «откусывая» число с левого или с правого конца сосиски. Победит тот, кто в итоге наест большую сумму.
Пользователь вводит свой выбор, компьютер играет по определённой тактике. Есть и выигрышные тактики компьютера при его первом ходе, и случайные. Можно предоставить право первого хода пользователю.
консольное приложение.

Написал начало:
Module Module1

Sub Main()
Dim b, n, m, l As Long
n = Console.ReadLine
Dim x(n) As Integer
For i = 1 To n
x(i) = 10 + Int((99 - 10 + 1) * Rnd())
Console.Write(x(i) & " ")
Next
Console.WriteLine(" ")
Console.ReadLine()
End Sub

End Module

Эта часть выводит вводимое количество двузначных чисел.А как дальше, штопор.Оч прошу, помогите или хоть идею подскажите оч буду благодарен)
Тактика компьютера- выбор одного из больших чисел(справа или слева)


Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #1
Добавлено: 09.05.10 00:52
Храни индексы левого и правого края, меняя один из них при выборе соответствующей стороны.

Ответить

Номер ответа: 2
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1338
 Web-сайт: moscowdevils.ru
 Профиль | | #2
Добавлено: 15.05.10 21:03
ненадо дублировать темы! <;D>

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам