| Вопрос: Люди, помогите написать программку | Добавлено: 10.05.10 01:04 |
Автор вопроса:  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 Эта часть выводит вводимое количество двузначных чисел.А как дальше, штопор.Оч прошу, помогите или хоть идею подскажите оч буду благодарен) Тактика компьютера- выбор одного из больших чисел(справа или слева) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | | #1 | Добавлено: 15.05.10 20:50 |
делай иф одна сторона>др сторона то откусываем от 1 строны, элс - откусываем от др стороны, можешь сделать несколько лейблов, которрые изображают введённые польз. числа из текстбоксов (куда их ввел юзер) после хода незн как их "откусываешь", плюсуешь в переменную число откусанное... и тд и тп и ....... далее писать небуду, лень, незнаю что придумать и тп... 
|
||
Страница: 1 |