Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

1. Pascal / Говнокод #6149

   +90

   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

   Uses CRT;
   const
        a=10;
        b=21;
        c=30;
   Var
      max: integer;
   Begin
        if (a>b) then
                 if (a>c) then
                    begin
                      max:=a;
                    end
                 else max:=c;
        if (b>a)then
                if (b>c)then
                         max:=b
                else
                  max:=c;
   Writeln(max);
   if (max mod 5 = 0 ) then
      writeln ('Кратное')
   else writeln('некратное');
      
   End.

   Запостил: Juris_Kabanis, 30 Марта 2011

   Tweet

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

   • Juris_Kabanis 30.03.2011 23:36 # −3

     Определить большее из трех чисел и вывести на экран сообщение кратно ли это число 5?

     Ответить

     • Skull 31.03.2011 00:09 # +2

       А ты бы как-то по другому писал?

       Ответить

       • Juris_Kabanis 31.03.2011 01:28 # −2

         Конечно

         Ответить

         • guest 01.04.2011 15:26 # −2

           мне одному кажется что дельфи хуита?

           Ответить

           • guest 25.04.2011 22:32 # −1

             нет, я эгриид с тобой

             Ответить

   • bugmenot 31.03.2011 01:53 # 0

     uses Crt чтобы с непатченной RTL не работало?

     Ответить

   • guest 02.04.2011 10:34 # 0

     а если a равно b ?

     Ответить

     • 7ion 02.04.2011 12:01 # +1

       Тогда пизда.

       Ответить

       • SmackMyBitchUp 25.04.2011 19:59 # +1

         function max(a,b:integer):integer;
         begin
         if a>b then
         max:=a
         else
         max:=b;
         end;
         ...
         if max(max(a,b),c) mod 5 = 0 then ...
         
         Так пойдет?

         Ответить

         • Govnocoder#0xFF 25.04.2011 20:34 # 0

           Паскалист детектед!

           Ответить

         • guest 25.04.2011 22:30 # +1

           охуеть, говно
           ты уж лучше бы и не позорился суя суда эту какаху

           Ответить

   • KATAJIU3ATOP 01.05.2011 21:18 # +1

     Хотя б read(a,b,c) использовал, и a, b, c обьявил как переменные, а не константы.

     Ответить

     • CO3HAHUE 11.12.2011 21:03 # 0

       Угу, достаточно следующей строчки:
       
       writeln ('Кратное');
       
       Но это очень сложная для понимания программа.

       Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только в понедельник, среду, четверг или воскресение

   Где здесь C++, guest?!

   А не использовать ли нам bbcode?

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *