1. VisualBasic / Говнокод #3433

    −86

    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
    96. 96
    97. 97
    98. 98
    99. 99
    10 GOSUB 300
30 INPUT "Долгота (град)";B5,L5: INPUT "Часовая зона (час)";H
50 L5=L5/360: Z0=H/24
60 GOSUB 1170: T=(J-2451545)+F
70 TT=T/36525+1: ' TT = столетия, начиная с 1900.0
90 GOSUB 410: T=T+Z0
120 GOSUB 910: A(1)=A5: D(1)=D5 '  Получаем положение солнца
130 T=T+1
140 GOSUB 910: A(2)=A5: D(2)=D5
150 IF A(2)<A(1) THEN A(2)=A(2)+P2
160 Z1=DR*90.833: ' Вычисление зенита
170 S=SIN(B5*DR): C=COS(B5*DR)
180 Z=COS(Z1): M8=0: W8=0: PRINT
190 A0=A(1): D0=D(1)
200 DA=A(2)-A(1): DD=D(2)-D(1)
210 FOR C0=0 TO 23
220 P=(C0+1)/24
230 A2=A(1)+P*DA: D2=D(1)+P*DD
240 GOSUB 490
250 A0=A2: D0=D2: V0=V2
260 NEXT
270 GOSUB 820: ' Вывод информации
280 END
300 DIM A(2),D(2)      ' Константы
320 P1=3.14159265: P2=2*P1: DR=P1/180: K1=15*DR*1.0027379: S$="Заход солнца в "
330 R$="Восход солнца в ": M1$="В этот день солнце не восходит"     
370 M2$="В этот день солнце не заходит": M3$="Солнце заходит весь день"           
390 M4$="Солнце восходит весь день"          
400 RETURN                                   
410 T0=T/36525 '     Получение часового пояса
430 S=24110.5+8640184.813*T0
440 S=S+86636.6*Z0+86400*L5
450 S=S/86400: S=S-INT(S)
460 T0=S*360*DR
470 RETURN
490 L0=T0+C0*K1: L2=L0+K1  '  Просматриваем возможные события на полученный час
510 H0=L0-A0: H2=L2-A2
520 H1=(H2+H0)/2: '  Часовой угол,
530 D1=(D2+D0)/2: '  наклон в получасе
550 IF C0>0 THEN 570
560 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z
570 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z
580 IF SGN(V0)=SGN(V2) THEN 800
590 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z
600 A=2*V2-4*V1+2*V0: B=4*V1-3*V0-V2
610 D=B*B-4*A*V0: IF D<0 THEN 800
620 D=SQR(D)
630 IF V0<0 AND V2>0 THEN PRINT R$;
640 IF V0<0 AND V2>0 THEN M8=1
650 IF V0>0 AND V2<0 THEN PRINT S$;
660 IF V0>0 AND V2<0 THEN W8=1
670 E=(-B+D)/(2*A)
680 IF E>1 OR E<0 THEN E=(-B-D)/(2*A)
690 T3=C0+E+1/120: ' Округление
700 H3=INT(T3): M3=INT((T3-H3)*60)
710 PRINT USING "##:##";H3;M3;
720 H7=H0+E*(H2-H0)
730 N7=-COS(D1)*SIN(H7)
740 D7=C*SIN(D1)-S*COS(D1)*COS(H7)
750 AZ=ATN(N7/D7)/DR
760 IF D7<0 THEN AZ=AZ+180
770 IF AZ<0 THEN AZ=AZ+360
780 IF AZ>360 THEN AZ=AZ-360
790 PRINT USING ",  азимут ###.#";AZ
800 RETURN
820 IF M8=0 AND W8=0 THEN 870 ' Процедура вывода информации
840 IF M8=0 THEN PRINT M1$
850 IF W8=0 THEN PRINT M2$
860 GOTO 890
870 IF V2<0 THEN PRINT M3$
880 IF V2>0 THEN PRINT M4$
890 RETURN
910 L=.779072+.00273790931*T ' Фундаментальные константы (Van Flandern & Pulkkinen, 1979)
950 G=.993126+.0027377785*T
960 L=L-INT(L): G=G-INT(G): L=L*P2: G=G*P2
980 V=.39785*SIN(L): V=V-.01000*SIN(L-G)
1000 V=V+.00333*SIN(L+G): V=V-.00021*TT*SIN(L)
1020 U=1-.03349*COS(G): U=U-.00014*COS(2*L)
1040 U=U+.00008*COS(L): W=-.00010-.04129*SIN(2*L)
1060 W=W+.03211*SIN(G): W=W+.00104*SIN(2*L-G)
1080 W=W-.00035*SIN(2*L+G): W=W-.00008*TT*SIN(G)
1120 S=W/SQR(U-V*V) '    Вычисление солнечных координат
1130 A5=L+ATN(S/SQR(1-S*S))
1140 S=V/SQR(U):D5=ATN(S/SQR(1-S*S))
1150 R5=1.00021*SQR(U)
1160 RETURN
1170 INPUT "Год, Месяц, День";Y,M,D ' Календарь --> JD
1190 G=1: IF Y<1583 THEN G=0
1200 D1=INT(D): F=D-D1-.5
1210 J=-INT(7*(INT((M+9)/12)+Y)/4)
1220 IF G=0 THEN 1260
1230 S=SGN(M-9): A=ABS(M-9)
1240 J3=INT(Y+S*INT(A/7))
1250 J3=-INT((INT(J3/100)+1)*3/4)
1260 J=J+INT(275*M/9)+D1+G*J3
1270 J=J+1721027+2*G+367*Y
1280 IF F>=0 THEN 1300
1290 F=F+1: J=J-1
1300 RETURN

    Вот такой вот реликт. Вы всё ещё пользуетесь GOTO? Тогда мы идём к вам.
    Программа вычисляет время восхода и захода солнца по дате (с точностью до минуты) в пределах нескольких текущих столетий. Производит корректировку, если географическая точка находится в арктичиском или антарктическом регионе, где заход или восход солнца на текущую дату может не состояться. Вводимые данные: положительная северная широта и отрицательная западная долгота. Часовой пояс указывается относительно Гринвича (например, 5 для EST и 4 для EDT). Алгоритм обсуждался в "Sky & Telescope" за август 1994, страница 84.
    P. S. VisualBasic такой Visual...

    Stalker, 10 Июня 2010

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

  2. Java / Говнокод #3432

    +83

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    try {
    //snipped
} catch(OmgExtremeCriticalEmergencyException ignored) {
    //not important
}

    gvsmirnov, 10 Июня 2010

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

  3. Куча / Говнокод #3431

    +153

    1. 1
    2. 2
    3. 3
    // Является ли это говнокодом?
<form action="prog.php?a=1&b=2" method="POST">
...

    Говнокод или так можно делать?

    Tanger, 09 Июня 2010

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

  4. C++ / Говнокод #3430

    +158

    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
    double** QRSLAU_check(matrix n1, matrix n0, double eps){
    double** x;
    x = (double**) calloc(2,sizeof(double*));
    x[0]= (double*) calloc(n1.i,sizeof(double));
    x[1]=(double*) calloc(n1.i,sizeof(double));
    for (int a=0; a<n1.i; a++){ x[0][a]=1; x[1][a]=1;}

    for (int a=0; a<n1.i; a++)
        for (int b=a+1; b<n1.i; b++)
            if(n1.M[b][a]>eps || n1.M[b][a]<-eps) x[0][a]=0;
    for (int a=0; a<n1.i-1; a++)
        if(((n1.M[a][a]+n1.M[a+1][a+1])-(n0.M[a][a]+ n0.M[a+1][a+1]))>eps ||
           ((n1.M[a][a]+n1.M[a+1][a+1])-(n0.M[a][a]+ n0.M[a+1][a+1])) <-eps ||
           ((sqrt(-(n1.M[a][a]*n1.M[a][a]+ n1.M[a+1][a+1]*n1.M[a+1][a+1]-2*n1.M[a+1][a+1]*n1.M[a][a]+4*n1.M[a][a+1]*n1.M[a+1][a])))-
            (sqrt(-(n0.M[a][a]*n0.M[a][a]+ n0.M[a+1][a+1]*n0.M[a+1][a+1]-2*n0.M[a+1][a+1]*n0.M[a][a]+4*n0.M[a][a+1]*n0.M[a+1][a]))))>eps ||
           ((sqrt(-(n1.M[a][a]*n1.M[a][a]+ n1.M[a+1][a+1]*n1.M[a+1][a+1]-2*n1.M[a+1][a+1]*n1.M[a][a]+4*n1.M[a][a+1]*n1.M[a+1][a])))-
            (sqrt(-(n0.M[a][a]*n0.M[a][a]+ n0.M[a+1][a+1]*n0.M[a+1][a+1]-2*n0.M[a+1][a+1]*n0.M[a][a]+4*n0.M[a][a+1]*n0.M[a+1][a]))))<-eps){
        x[1][a]=0;
        if(a==n1.i-2)x[1][a+1]=0;
    }
    else a++;
    return x;
}

    какая-та штука для QR-алгоритма и поиска собственных значений

    Shiz89, 09 Июня 2010

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

  5. Си / Говнокод #3429

    +136

    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
    #include <stdio.h>
#include <string.h>
int reg (char str[])
{
	int i;
	int n=strlen(str);
	for (i=0; i<n; i++)
	if (str[i]<91) str[i]=str[i]+32;
	return str[i];
}
int main ()
{
	char str[100]="OlololOlolOloLolOlooLololOlOllllOOOloLoloOlO";
	int a=reg(str);
	int i,n=strlen(str);
	reg(str);
	printf("%s",str);
	return 0;
}

    Программа собственно переводит в нижний регистр. Но как-то жестко написана. Очень сокрушаюсь, что нас еще не научили strwlr и strupr в институте. Оправдано такое написание или все же лучше пользоваться библиотечными функциями?

    ForEveR, 09 Июня 2010

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

  6. Си / Говнокод #3428

    +133

    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
    #include<stdio.h>
int main()
{
	int a;
	printf("Vvedite svoy vozrast (0-200 let)");
	scanf("%d",&a);
	if ((a==11)||(a==12)||(a==13)||(a==14)){printf("mne %d let",a); return 0;}
	if ((a==111)||(a==112)||(a==113)||(a==114)){printf("mne %d let",a); return 0;}
	if (a%10==1){printf("mne %d god",a); return 0;}
	if (a%10==2){printf("mne %d goda",a); return 0;}
	if (a%10==3){printf("mne %d goda",a); return 0;}
	if (a%10==4){printf("mne %d goda",a); return 0;}
	if ((a%10==0)||(a%10==5)||(a%10==6)||(a%10==7)||(a%10==8)||(a%10==9)){printf("mne %d let",a); return 0;}
	return 0;
}

    Программа выводит год/года/лет. То есть возраст синтаксически правильно. Вопрос. Это как-нибудь можно написать покороче? Это считается говнокодом?

    ForEveR, 09 Июня 2010

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

  7. C++ / Говнокод #3427

    +178

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    #ifndef TSTACK_H
#define TSTACK_H

#include &lt;iostream.h&gt;

using namespace std

template.......

    Это начало программы "самостоятельно" написаной от руки на бумажке студентом с целью получения зачета по объектно ориентированному программированию. Дальше я читать не стал

    klavdiev, 09 Июня 2010

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

  8. PHP / Говнокод #3426

    +149

    1. 1
    2. 2
    3. 3
    4. 4
    <?php
      @require_once('something-that-doesnot-exists.php');
      echo 'My etogo uzhe ne prochitaem((';
?>

    Баг ПХП. 4 часа искал методом научного echo. Ошибки не выдает, завершает выполнение как будто вызвали exit() or die(). Растолкуйте в чем суть?
    Но всё-таки виновати разработчики CodeIgniter. Они нарушили принцип KISS (keep it simple). Я например, никогда не использую @ (даже незнаю к чему этот отросток).

    increazon, 08 Июня 2010

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

  9. PHP / Говнокод #3425

    +164

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    foreach($listuserson as $uinfo => $pinfo) {
	$class_check = TRUE;
	list($oid, $oname) = explode(".", $uinfo, 2);
	$sql2 = new db;
	$sql2->db_Select("user", "user_id", "user_admin > 0 ");
	$row_2 = $sql2->db_Fetch();
	$online_location = $pinfo;
	$online_location_page = substr(strrchr($online_location, "/"), 1);
	if (!strstr($online_location, "forum_") || !strstr($online_location, "content.php") || !strstr($online_location, "comment.php")) {
		$online_location_page = str_replace(".php", "", substr(strrchr($online_location, "/"), 1));
	}
	if ($online_location_page == "log" || $online_location_page == "error") {
		$online_location = "news.php";
		$online_location_page = NEWS;
	}
	if ($online_location_page == "request") {
		$online_location = "download.php";
	}
	if ($online_location_page == "article") {
		$online_location_page = ARTICLEPAGE;
	}
	if ($online_location_page == "chat") {
		$online_location_page = CHAT;
	}
	//if($online_location_page == "comment"){$online_location_page = COMMENT;}
	if ($online_location_page == "content") {
		$online_location_page = CONTENT;
	}
	if ($online_location_page == "download") {
		$online_location_page = DOWNLOAD;
	}
	if ($online_location_page == "email") {
		$online_location_page = EMAIL;
	}
	if ($online_location_page == "forum") {
		$online_location_page = FORUM;
	}
	if ($online_location_page == "links") {
		$online_location_page = LINKS;
	}
	if ($online_location_page == "news") {
		$online_location_page = NEWS;
	}
	if ($online_location_page == "oldpolls") {
		$online_location_page = OLDPOLLS;
	}
	if ($online_location_page == "print") {
		$online_location_page = PRINTPAGE;
	}
	if ($online_location_page == "login") {
		$online_location_page = LOGIN;
	}
	if ($online_location_page == "search") {
		$online_location_page = SEARCH;
	}
	if ($online_location_page == "stats") {
		$online_location_page = STATS;
	}
	if ($online_location_page == "submitnews") {
		$online_location_page = SUBMITNEWS;
	}
	if ($online_location_page == "upload") {
		$online_location_page = UPLOAD;
	}
	if ($online_location_page == "user") {
		$online_location_page = USERPAGE;
	}
	if ($online_location_page == "usersettings") {
		$online_location_page = USERSETTINGS;
	}
	if ($online_location_page == "new") {
		$online_location_page = LISTNEW;
	}
	if ($online_location_page == "online") {
		$online_location_page = ONLINE;
	}
	if ($online_location_page == "userposts") {
		$online_location_page = USERPOSTS;
	}
	if ($online_location_page == "subcontent") {
		$online_location_page = SUBCONTENT;
	}
	if ($online_location_page == "top") {
		$online_location_page = TOP;
	}
	//commonly used plugin pages
	if ($online_location_page == "bugtracker") {
		$online_location_page = BUGTRACKER;
	}
	if ($online_location_page == "event") {
		$online_location_page = EVENT;
	}
	if ($online_location_page == "calendar") {
		$online_location_page = CALENDAR;
	}
	if ($online_location_page == "faq") {
		$online_location_page = FAQ;
	}
	if ($online_location_page == "pm") {
		$online_location_page = PM;

    Шарился по винту, наткнулся на архив с CMS e107, машинально зашёл в него и открыл первый попавшийся файл...
    ROBUST
    @
    SCALABLE

    telnet, 08 Июня 2010

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

  10. Java / Говнокод #3424

    +144

    1. 1
    textPane.setText(<span style="font-size: 20pt">Big</span>);

    http://www.dynamicdrive.com/forums/showthread.php?t=18899

    O_O

    я подозревал, что вас обрезают, но что бы так?

    Lure Of Chaos, 08 Июня 2010

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