Важная информация
Страница 2 из 3 ПерваяПервая 123 ПоследняяПоследняя
Показано с 11 по 20 из 26

Тема: Нет еретикам. Программа для сжигания еретиков

  1. #11  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Отлично. Только чо-то я не понял, как их в ехе комплимировать. Респект Абадяберу, отличные проги
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  2. #12  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Кстати...
    Кто сказал удастся избежать расплаты???
    Вложения
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  3. #13  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Смотри, теперь адской расправы удается избежать, просто введя 0, или отрицательное число. Можно переписать программу таким образом:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Как вас зовут? ", [Ссылки могут видеть только зарегистрированные пользователи. ]$
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Гори еретик "; [Ссылки могут видеть только зарегистрированные пользователи. ]$; " !  "
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Вы с этим согласны? 1-ДА 2-НЕТ"; Verno
    SELECT CASE Verno
        CASE 1
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Адское пламя святой инквизиции вылетит из экрана через 5 минут. Мне очень жаль. Прощайте"
        CASE 2
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Ответ неудовлетворительный. "
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Ах да, чуть не забыл: Вы сгорите через 5 минут. Прощайте"
        CASE ELSE
            [Ссылки могут видеть только зарегистрированные пользователи. ] "За нарушение правил игры, вы сгорите в огне инквизиции. Жизнь за Нэрзулла! Прощайте."
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT

    Конструкция Select Case намного удобнее в данном случае, плюс - намного более читабельно, и адской расправы избежать не удастся просто так ;)))
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #14  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Действительно, не плохо
    А можно поподробнее о кейсах?
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  5. #15  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Вообще о ней написано на этом сайте по ссылке
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Но, увы, даже я сходу не могу вынести оттуда смысл.
    Поэтому, приведу пример. Надеюсь, администратор не будет против небольшого просветительного оффтопа ;)
    Вообще, конструкция Select Case специально рассчитана для того, чтобы удобно производить ветвление, с большим количеством вариантов.
    Понимаю, пример не самый удачный, но надеюсь, что он что либо прояснит.

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] Result [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Бросаем игральную кость"
    [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
    Result = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 6) + 1
    SELECT CASE Result
        CASE 1
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпала единица"
        CASE 2
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпало два"
        CASE 3
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпало три"
        CASE 4
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпало четыре"
        CASE 5
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпало пять"
        CASE 6
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Выпало шесть"
        CASE ELSE
            [Ссылки могут видеть только зарегистрированные пользователи. ] "А это что еще за беспредел???"
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT
     
    SELECT CASE Result
        CASE [Ссылки могут видеть только зарегистрированные пользователи. ] > 3
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Не плохо!"
        CASE [Ссылки могут видеть только зарегистрированные пользователи. ] < 4
            [Ссылки могут видеть только зарегистрированные пользователи. ] "Маловато как то..."
    [Ссылки могут видеть только зарегистрированные пользователи. ] SELECT

    В этом примере с помощью конструкции Select Case мы воводим полученный результат словами, а не цифрами (как было бы, если бы мы написали что либо вроде Print "Вы выбросили"; Result; "очков")
    После Select Case пишется название той переменной, значение которой будет оцениваться, в нашем случае это переменная Result. (Переменная может быть также и строковой)
    Потом с помощью Case перечисляются варианты значения анализируемой переменной (в нашем случае - это все возможные значения выброшенных очков), при которых необходимо сделать соответствующие действия.
    Если мы хотим сделать какие либо действия, когда анализируемая переменная принимает значение, которое мы не ждем, то мы пишем Case Else а потом уже, то, что хотим выполнить в данном случае. В этом примере, если переменная Result вдруг примет значение допустим, 8, или 100500, то программа крепко удивится.
    Во второй конструкции используется условие, вместо переменной. В частности, если переменная Result имеет значение больше чем 3, то нас хвалят за хороший результат, иначе - говорят, что можно было бы и лучше :P

    Кстати, совсем забыл еще и об использовании Case с вариантом To. Он указывает на диапазон значений переменной, при которых стоит выполнить определенные действия. Например, в данном случае, если мы ввели число в строку, программа обнаружит его.
    Dim Char As String * 1 (Объявляем строку длиной в 1 символ)
    Input Char
    Select Case Asc(Char)
    Case 48 To 57
    Print "Введено число"
    End Select
    Кстати, это все писал по памяти, поэтому гарантировать рабочесть не могу - но суть такова ;)
    Дружба-магия-радость!
    Ответить с цитированием  
     

  6. #16  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Спасибо Большое
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  7. #17  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Насчёт кейса: показал свою прогу училке информатики, у неё аш глаза на лоб полезли
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  8. #18  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    И не от того, что мы ещё не программируем в школе, просто о кейсах не слышала
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  9. #19  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Я когда учился в школе - мне было стыдно за нашего учителя информатики, все, что она умела - это запускать игрушки и Windows 3.1. :)
    Ответить с цитированием  
     

  10. #20  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Нуу... Тебе сколько лет было? И это было в каком году? Просто интересно
    Я в 8 классе
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

Страница 2 из 3 ПерваяПервая 123 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Программа переворачивающия слова
    от barinov95 в разделе QBasic
    Ответов: 11
    Последнее сообщение: 12.12.2013, 13:03
  2. Верно ли составлена программа
    от Ириска в разделе QBasic
    Ответов: 2
    Последнее сообщение: 08.01.2012, 17:49
  3. Ответов: 0
    Последнее сообщение: 14.11.2011, 17:39
  4. программа работает, но есть вопрос
    от чес в разделе Turbo Pascal
    Ответов: 9
    Последнее сообщение: 15.04.2011, 20:25
  5. Выпуск №1 - первая программа
    от Konstantin Shcherba в разделе Архив
    Ответов: 0
    Последнее сообщение: 24.11.2010, 19:54
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •