Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 5: Программирование искусственного интеллекта на Visual Basic (продолжение 1). Валерий Алексеевич Жарков

Читать онлайн книгу.

Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 5: Программирование искусственного интеллекта на Visual Basic (продолжение 1) - Валерий Алексеевич Жарков


Скачать книгу
str(13) = "f" Then

      Chr1.Text = "F"

      End If

      ElseIf Word_in.TextLength = 15 Then

      If str(0) = "f" Then

      Chr15.Text = "F"

      End If

      If str(1) = "f" Then

      Chr14.Text = "F"

      End If

      If str(2) = "f" Then

      Chr13.Text = "F"

      End If

      If str(3) = "f" Then

      Chr12.Text = "F"

      End If

      If str(4) = "f" Then

      Chr11.Text = "F"

      End If

      If str(5) = "f" Then

      Chr10.Text = "F"

      End If

      If str(6) = "f" Then

      Chr9.Text = "F"

      End If

      If str(7) = "f" Then

      Chr8.Text = "F"

      End If

      If str(8) = "f" Then

      Chr7.Text = "F"

      End If

      If str(9) = "f" Then

      Chr6.Text = "F"

      End If

      If str(10) = "f" Then

      Chr5.Text = "F"

      End If

      If str(11) = "f" Then

      Chr4.Text = "F"

      End If

      If str(12) = "f" Then

      Chr3.Text = "F"

      End If

      If str(13) = "f" Then

      Chr2.Text = "F"

      End If

      If str(14) = "f" Then

      Chr1.Text = "F"

      End If

      ElseIf Word_in.TextLength = 16 Then

      If str(0) = "f" Then

      Chr16.Text = "F"

      End If

      If str(1) = "f" Then

      Chr15.Text = "F"

      End If

      If str(2) = "f" Then

      Chr14.Text = "F"

      End If

      If str(3) = "f" Then

      Chr13.Text = "F"

      End If

      If str(4) = "f" Then

      Chr12.Text = "F"

      End If

      If str(5) = "f" Then

      Chr11.Text = "F"

      End If

      If str(6) = "f" Then

      Chr10.Text = "F"

      End If

      If str(7) = "f" Then

      Chr9.Text = "F"

      End If

      If str(8) = "f" Then

      Chr8.Text = "F"

      End If

      If str(9) = "f" Then

      Chr7.Text = "F"

      End If

      If str(10) = "f" Then

      Chr6.Text = "F"

      End If

      If str(11) = "f" Then

      Chr5.Text = "F"

      End If

      If str(12) = "f" Then

      Chr4.Text = "F"

      End If

      If str(13) = "f" Then

      Chr3.Text = "F"

      End If

      If str(14) = "f" Then

      Chr2.Text = "F"

      End If

      If str(15) = "f" Then

      Chr1.Text = "F"

      End If

      ElseIf Word_in.TextLength = 17 Then

      If str(0) = "f" Then

      Chr17.Text = "F"

      End If

      If str(1) = "f" Then

      Chr16.Text = "F"

      End If

      If str(2) = "f" Then

      Chr15.Text = "F"

      End If

      If str(3) = "f" Then

      Chr14.Text = "F"

      End If

      If str(4) = "f" Then

      Chr13.Text = "F"

      End If

      If str(5) = "f" Then

      Chr12.Text = "F"

      End If

      If str(6) = "f" Then

      Chr11.Text = "F"

      End If

      If str(7) = "f" Then

      Chr10.Text = "F"

      End If

      If str(8) = "f" Then

      Chr9.Text = "F"

      End If

      If str(9) = "f" Then

      Chr8.Text = "F"

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

/9j/4AAQSkZJRgABAQEAZABkAAD/4gHbSUNDX1BST0ZJTEUAAQEAAAHLAAAAAAJAAABtbnRyUkdCIFhZWiAAAAAAAAAAAAAAAABhY3NwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA9tYAAQAAAADTLVF0BQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlyWFlaAAAA8AAAABRnWFlaAAABBAAAABRiWFlaAAABGAAAABR3dHB0AAABLAAAABRjcHJ0AAABQAAAAAxyVFJDAAABTAAAACBnVFJDAAABTAAAACBiVFJDAAABTAAAACBkZXNjAAABbAAAAF9YWVogAAAAAAAAb58AADj0AAADkVhZWiAAAAAAAABilgAAt4cAABjcWFlaIAAAAAAAACShAAAPhQAAttNYWVogAAAAAAAA808AAQAAAAEWwnRleHQAAAAATi9BAHBhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAApbZGVzYwAAAAAAAAAFc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/2wBDAAoHBwgHBgoICAgLCgoLDhgQDg0NDh0VFhEYIx8lJCIfIiEmKzcvJik0KSEiMEExNDk7Pj4+JS5ESUM8SDc9Pjv/2wBDAQoLCw4NDhwQEBw7KCIoOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozv/wAARCAJGA2ADASIAAhEBAxEB/8QAHAABAAEFAQEAAAAAAAAAAAAAAAUBAgQGBwMI/8QAYxAAAQMDAQMECQ0KCwcEAAQHAQACAwQFEQYSEyEUMUFRBxUWIjJVkdHSFzM1UlRhcXKSk5Sy4SNCU1Z0gaSxs8E2N2Nmc3WDhKHD0wg0RmKVouIkJSdFGIK08EdkdobCxPH/xAAaAQEBAQEBAQEAAAAAAAAAAAAAAQIDBAUG/8QAOxEBAAECAwYEBAUCBQQDAAAAAAECEQMSoQQVITFS4RRBYtETUWFjBSJxgZEysUKi
Скачать книгу