1. Куча / Говнокод #4517

    +124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    СLS
DEFLNG M-N,P,S

INPUT "N=";N
IF N>9.999999999999999D+48 THEN END
M=N
S=0
WHILE M<> 0

P=M MOD 10
S=S+P
M=M\10
PRINT "S=";S;
WEND
PRINT"P="; "S=";S;
PRINT

ЗДЕСЬ ВСЕ ВЕРНО ! СУММА ПОДСЧИТЫВАЕТСЯ ПРАВИЛЬНО. Часть 2 ЭТОЙ ЗАДАЧИ

WHILE S<>10
M=S: P=0
S1=0

WHILE M<>0

P=M MOD 10

S1=S1+P
M=M\10
PRINT S1

PRINT S1
WEND
PRINT"SUMMA=";S1
WEND
END

    Это QBasic. Для числа подсчитываются сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Например, если исходное число 3247598, то результат 2. Взято отсюда: http://otvet.mail.ru/question/47598848/

    Запостил: Govnocoder#0xFF, 02 Ноября 2010

    Комментарии (33) RSS

    • ava istem 02.11.2010 22:42 # −5

      показать все, что скрытомать вашу...
      Давайте ещё скрипты из перфолент сюда постить...
      Ответить

    • ava Анонимус 02.11.2010 23:15 # 0

      кто писал на gwbasic?)
      Ответить

      • ava bugmenot 02.11.2010 23:36 # 0

        а это и есть диалект времён gw, хоть и хомячьё его называет каким-то q бейсиком (см. http://govnokod.ru/4478#comment50625)
        Ответить

        • ava Анонимус 02.11.2010 23:37 # −2

          кубасик это иде от микрософт
          Ответить

          • ava andremacareno 02.11.2010 23:46 # +1

            Таки диалект, просто среда имеет такое же название.
            GWBasic - первое поколение (дос)
            QuickBASIC(QBASIC, QB) - второе поколение (дос)
            Visual Basic - третье поколение (винда)
            Ответить

            • ava bugmenot 02.11.2010 23:52 # 0

              до gw был интерпретатор в rom и надстройка basica, так-то
              Ответить

              • ava andremacareno 02.11.2010 23:56 # 0

                Вынужден признать, что Кэп этажом выше прав. Открыл Зельднера и прочитал, что в поколение интерпретаторов кроме GWBASIC еще входил BASICA.
                Ответить

              • ava Анонимус 03.11.2010 01:52 # 0

                в BIOS IBM PC он должен быть
                опциональным он стал кажется только в XT.
                где-то в памяти BIOS есть кусочек, описывающий комп (тип адаптера (cga, ega итд) кол-во дисководов (1 или 2)) -- там же есть и битик, показывающий наличие бейсика
                Ответить

            • ava 3.14159265 03.11.2010 10:45 # 0

              вы забыли VB1.0 for DOS - кстати революционная была штука.
              еще до всяких там делфей.

              >TurboBasic не забудьте...
              я как только попробовал - меня сразу от него стошнило.
              Ответить

              • ava bugmenot 04.11.2010 00:44 # 0

                turbo basic был нативным компилятором васика, по тем временам было очень круто
                Ответить

                • ava guest6 17.10.2023 22:34 # 0

                  Quick Basic (не QB 1.0, а полный) тоже умел в натив.
                  Ответить

              • ava guest6 17.10.2023 22:37 # 0

                VB for DOS — гибрид. Формочки у него работали только в Text UI, а графический режим был в точности, как у QB (т. е. без формочек).
                Ответить

            • ava guest6 17.10.2023 21:52 # 0

              ебать ты лод
              Ответить

            • ava guest6 17.10.2023 22:40 # 0

              Да, диалект. В Quick что-то добавили, чего не было в GW.

              А между QB и VB был продукт с пафосным названием PDS Basic (Microsoft Basic Professional Development System), как будто профессионалы пишут на Бейсике.
              Ответить

    • ava j0kz 03.11.2010 00:06 # −2

      э, Ашоть, я тебя в рот ебаль
      Ответить

    • ava HyperGeek 03.11.2010 01:59 # 0

      Мда, совсем олимпийцы обмельчали...
      Ответить

      • ava Анонимус 03.11.2010 02:43 # +2

        какие олимпийцы?
        это кружок информатики для учеников младших классов.

        серьезно. в моем деццтве во дворце пионеров барсику учили с шести лет.
        с 12ти -- паскалю.
        Ответить

        • ava HyperGeek 03.11.2010 11:47 # +1

          Вот и я к тому же. Паренек http://my.mail.ru/mail/dmitry9099/?from=otvet_privat явно не ученик младших классов, а скорее учащийся ПТУ.
          Ответить

    • ava Lure Of Chaos 03.11.2010 12:19 # +3

      > 9.999999999999999D+48
      это лучшее представление числа 10, которое я видел )))
      Ответить

    • ava Lure Of Chaos 12.04.2011 20:52 # 0

      gargoyle_nox
      Ответить

    Добавить комментарий