1. Список говнокодов пользователя Juris_Kabanis

    Всего: 5

  2. C++ / Говнокод #7013

    +159

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    #include <math.h>
    #include <iostream>
    using namespace std;
    void main()
    { int month,day;
            cin>>month,day;
            int den=1;
            switch(month)
    {       case 1: cout<<"month: "<<month<<endl<<"day: "<<day+1;
    if(day==31){cout<<"month: "<<month+1<<endl<<den;}
    break;
            case 2: cout<<"month: "<<month<<endl<<"day: "<<day+1;
            if(day==28){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 3:cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 4:cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==30){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 5: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 6: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==30){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 7: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 8: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 9: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==30){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 10: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 11: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==30){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
    break;
            case 12: cout<<"month: "<<month<<endl<<"day: "<<day+1;
                    if(day==31){cout<<"month: "<<month+1<<endl<<"day: "<<den;}
                    
                                    
    }       
     
    cin.get();
            cin.get();
    }

    Juris_Kabanis, 20 Июня 2011

    Комментарии (12)
  3. 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

    Комментарии (13)
  4. Python / Говнокод #5881

    −91

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    #coding=utf8
     
    #Ввод коэффициентов
    def inputVar():
        a=raw_input('Enter a')
        b=raw_input('Enter b')
        c=raw_input('Enter c')
        return a,b,c
    #Вывод исходного уравнения в виде ax^2+bx+c=0
    def printHeader(a,b,c):
        import math
        ax2=str(a)*bool(a)*bool(a-1)+'x^2'*bool(a)+'+'*bool(b+math.fabs(b))*bool(a)
        bx1=str(b)*bool(b)*bool(b-1)+'x'*bool(b)+'+'*bool(c+math.fabs(c))*bool(bool(a)+bool(b))
        cx0=str(c)*bool(c)+'0'*bool(not(bool(bool(a)+bool(b)+bool(c))))
        print '\n\nУравнение:',ax2+bx1+cx0+' = 0'
    #Подсчет и вывод корней уравнения    
    def printRoots(a,b,c):
        D=b**2-4*a*c
        import math
        import cmath
        if a:
            if D>0:
                x1=(-b+math.sqrt(D))/(2*a)
                x2=(-b-math.sqrt(D))/(2*a)
                print "Корни уравнения:\n","x1 =",x1,"\nx2 =",x2
            if D==0:
                x1=(-b)/(2*a)
                x2=x1
                print "Корень уравнения:\n","x1 = x2 =",x1
            if D<0:
                print "Корни уравнения:"
                print 'x1 = '+str((-b)/(2*a))*bool(b)+'+'*bool(b)+str(cmath.sqrt(D)/(2*math.fabs(a)))
                print 'x2 = '+str((-b)/(2*a))*bool(b)+'-'*bool(b)+str(cmath.sqrt(D)/(2*math.fabs(a)))
        elif b:
            x1=-c/b
            x2=x1
            print'Корень уравнения:\n','x =',x1
        elif c:
            print'Уравнение неверно'
        else:
            print'Уравнение верно'
    #Тело программы             
    a,b,c=inputVar()
    a=int(a); b=int(b); c=int(c)
    printHeader(a,b,c)
    printRoots(a,b,c)

    Juris_Kabanis, 04 Марта 2011

    Комментарии (1)
  5. Pascal / Говнокод #5860

    +128

    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
    uses crt;
    var
    d,m,k:integer;
    begin
    write('Введите день - ');readln(d);
    write('Введите месяц - ');readln(m);
    case m of
    1: k:=365-d;
    2: k:=365-(31+d);
    3: k:=365- (31+28+d);
    4: k:=365- (31+28+31+d);
    5: k:=365- (31+28+31+30+d);
    6: k:=365- (31+28+31+30+31+d);
    7: k:=365- (31+28+31+31+30+30+d);
    8: k:= 365-(31+28+31+31+30+30+31+d);
    9: k:= 365- (31+28+31+31+30+31+30+31+d);
    10: k:=365- (31+28+31+31+30+31+31+30+30+d);
    11: k:=365- (31+28+31+31+30+31+31+30+30+31+d);
    12: k:=365- (31+28+31+31+30+31+31+30+31+30+30+d);
    end;
    writeln('До конца года осталось ',k,' дн.');
    end.

    Juris_Kabanis, 03 Марта 2011

    Комментарии (26)
  6. Pascal / Говнокод #5812

    +92

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    type BOOK= record
          Name:string[20];
          Avtor:string[20];
          Price:integer;
          end;
    
     BOOKS=Array[1..100] of BOOK;
     F= File of BOOK;
    procedure Vvod(var biblioteka: books; var File_tBIBL:F; var n:integer);
    Procedure AVTOR_KN(VAR File_tBIBl:F; VAR File_tBIBl_AVTOR:text);
    Procedure TIP_TEXT(VAR File_tBIBl:F; VAR File_tBIBl_text:text);
    Function MIN_CENA( var File_tBIBl:F ; n:integer ):integer;
    procedure Vvod(var biblioteka: books; var File_tBIBL:F; var n:integer);
      var i:integer;
      begin
       rewrite(File_tBIBL);
    
      FOR i:=1 to n do begin
                     Writeln('  Vvedite nazvanie knigi');
                       readln(biblioteka[i].Name);
                     Writeln('  Vvedite avtora');
                       readln(biblioteka[i].Avtor);
                     Writeln('  Vvedite cenu');
                       readln(biblioteka[i].Price);
                     Write(File_tBIBL,biblioteka[i]);
                     writeln;
                       end;
      close(File_tBIBL);
      end;
    
      Procedure TIP_TEXT(VAR File_tBIBl:F; VAR File_tBIBl_text:text);
       var BIBLIOTEKA:BOOk;
    
         BEGIN
    
       reset(File_tBIBl);
       rewrite(File_tBIBl_text);
    
       WHILE not eof(File_tBIBl) do begin
                                    read(File_tBIBl,BIBLIOTEKA);
                                    writeln(File_tBIBl_text,BIBLIOTEKA.Name);
                                    writeln(File_tBIBl_text,BIBLIOTEKA.Avtor);
                                    writeln(File_tBIBl_text,BIBLIOTEKA.Price);
                                    writeln(File_tBIBl_text);
                                    writeln(File_tBIBl_text);
                                    end;
       close(File_tBIBl);
       close(File_tBIBl_text);
       end;
    
      Procedure AVTOR_KN(VAR File_tBIBl:F; VAR File_tBIBl_AVTOR:text);
       var BIBLIOTEKA:BOOk; Av:string;
    
         BEGIN
    
    
       reset(File_tBIBl);
       rewrite(File_tBIBl_AVTOR);
    
       Writeln('Vvedite iskomogo avtora');
       readln(Av);
    
     WHILE not eof(File_tBIBl) do   begin
                                    read(File_tBIBl,BIBLIOTEKA);
                                    if BIBLIOTEKA.Avtor = Av then begin
                                                                 writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Name);
                                                                 writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Avtor);
                                                                 writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Price:4);
                                                                 writeln(File_tBIBl_AVTOR);
                                                                 end;
                                    end;
       close(File_tBIBl);
       close(File_tBIBl_AVTOR);
        end;
    
    var nomer,i,min:integer;BIBLIOTEKA:BOOks; SIZE:integer;
    begin
      reset(File_tBIBl);
     size:=1;
        while  not eof(File_tBIBl) do
            with BIBLIOTEKA[size] do
        begin
            readln(File_tBIBl , BIBLIOTEKA.name);
             Readln(File_tBIBl,BIBLIOTEKA.Avtor);
            readln(File_tBIBl,BIBLIOTEKA.Price);
    
            inc(size);
        end;
        dec(size);
     min:=BIBLIOTEKA[1].Price;
    for i:=1 to size  do
    if BIBLIOTEKA[i].Price< min then        begin
                                            min:=BIBLIOTEKA[i].Price;
                                            nomer:=i;
                                            end;

    Juris_Kabanis, 27 Февраля 2011

    Комментарии (8)