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

    • показать все, что скрытомать вашу...
      Давайте ещё скрипты из перфолент сюда постить...
      Ответить
    • кто писал на gwbasic?)
      Ответить
      • а это и есть диалект времён gw, хоть и хомячьё его называет каким-то q бейсиком (см. http://govnokod.ru/4478#comment50625)
        Ответить
        • кубасик это иде от микрософт
          Ответить
          • Таки диалект, просто среда имеет такое же название.
            GWBasic - первое поколение (дос)
            QuickBASIC(QBASIC, QB) - второе поколение (дос)
            Visual Basic - третье поколение (винда)
            Ответить
            • до gw был интерпретатор в rom и надстройка basica, так-то
              Ответить
              • Вынужден признать, что Кэп этажом выше прав. Открыл Зельднера и прочитал, что в поколение интерпретаторов кроме GWBASIC еще входил BASICA.
                Ответить
              • в BIOS IBM PC он должен быть
                опциональным он стал кажется только в XT.
                где-то в памяти BIOS есть кусочек, описывающий комп (тип адаптера (cga, ega итд) кол-во дисководов (1 или 2)) -- там же есть и битик, показывающий наличие бейсика
                Ответить
            • вы забыли VB1.0 for DOS - кстати революционная была штука.
              еще до всяких там делфей.

              >TurboBasic не забудьте...
              я как только попробовал - меня сразу от него стошнило.
              Ответить
              • turbo basic был нативным компилятором васика, по тем временам было очень круто
                Ответить
                • Quick Basic (не QB 1.0, а полный) тоже умел в натив.
                  Ответить
              • VB for DOS — гибрид. Формочки у него работали только в Text UI, а графический режим был в точности, как у QB (т. е. без формочек).
                Ответить
            • ебать ты лод
              Ответить
            • Да, диалект. В Quick что-то добавили, чего не было в GW.

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

        серьезно. в моем деццтве во дворце пионеров барсику учили с шести лет.
        с 12ти -- паскалю.
        Ответить
        • Вот и я к тому же. Паренек http://my.mail.ru/mail/dmitry9099/?from=otvet_privat явно не ученик младших классов, а скорее учащийся ПТУ.
          Ответить
    • > 9.999999999999999D+48
      это лучшее представление числа 10, которое я видел )))
      Ответить
    • gargoyle_nox
      Ответить

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