- 1
Товарищ, помни! Выкладывание кода сюда скорее всего нарушает права на интеллектуальную собственность твоего белого господина!-
Куча / Говнокод #1320
+146
guest,
03 Июля 2009
Комментарии (5) -
Куча / Говнокод #1311
+73
- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
program test; uses crt; label ww,1,2,ww2,ee,ee2,rr,rr2,tt,tt2,tt3,yy,yy2,yy3,uu,uu2,uu3,ii,ii2,ii3,ii4,oo,oo2,oo3,oo4,00,z,x,c,v; var q,q2,w,e,r,t,w2,e2,r2,t2,t3,y,y2,y3,u,u2,u3,i,i2,i3,i4,o,o2,o3,o4:real; begin 1:clrscr; textcolor(4); writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); textcolor(2); writeln('+Если вы отвечаете "ДА",то нажимайте "1" ,а если "НЕТ",то "0"+ '); textcolor(4); writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); writeln; textcolor(2); writeln('Ответьте пожалуйста на следующие вопросы:'); writeln('*****************************************'); textcolor(8); writeln('Вы помните всю таблицу умножения?'); read(q); if q=1 then begin writeln('Вы давно были на рок-концерте?');read(w);goto ww end; if q=0 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end; ww:if w=1 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end; if w=0 then begin writeln('Вы йог?');read(e);goto ee end; ww2:if w2=1 then begin writeln('Вы летали на истребителе?');read(e2);goto ee2 end; if w2=0 then begin writeln('Вы йог?');read(e);goto ee end; ee:if e=1 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end; if e=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end; ee2:if e2=1 then begin writeln('У вас часто болит голова?');read(r);goto rr end; if e2=0 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end; rr:if r=1 then begin writeln('У вас смуглая кожа?');read(t);goto tt end; if r=0 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end; rr2:if r2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end; if r2=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end; tt:if t=1 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end; if t=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end; tt2:if t2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end; if t2=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end; tt3:if t3=1 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end; if t3=0 then begin writeln('Вы пишете роман?');read(y2);goto yy2 end; yy:if y=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end; if y=0 then begin writeln('Вам всегда жалко бездомных собак?');read(u);goto uu end; yy2:if y2=1 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end; if y2=0 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end; yy3:if y3=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end; if y3=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end; uu:if u=1 then begin writeln('Вы любите варёную рыбу?');read(i);goto ii end; if u=0 then begin writeln('Вы знаете что такое ДЕЖА ВЮ ?');read(u2);goto uu2 end; uu2:if u2=1 then begin writeln('Вы любите вареную рыбу?');read(i);goto ii end; if u2=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end; uu3:if u3=1 then begin writeln('У вас отключена горячая вода?');read(i4);goto ii4 end; if u3=0 then begin writeln('Макароны вы едите с хлебом ?');read(i3);goto ii3 end; ii:if i=1 then begin writeln('Вы могли бы рекламировать бельё?');read(i2);goto ii2 end; if i=0 then begin writeln('Вы любите петь?');read(o);goto oo end; ii2:if i2=1 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end; if i2=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end; ii3:if i3=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end; if i3=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end; ii4:if i4=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end; if i4=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end; oo:if o=1 then goto z; if o=0 then goto x; oo2:if o2=1 then goto z; if o2=0 then goto x; oo3:if o3=1 then goto c; if o3=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end; oo4:if o4=1 then goto v; if o4=0 then goto c; z:clrscr; textcolor(5); writeln(' ------ИТОГ: добрый ли вы человек?-------'); textcolor(14); writeln('Вы случайно не мать Тереза?Бескрайняя ваша доброта...почти также как и глупость'); writeln('Мало настрадались по своей вине?То ли ещё будет.');goto 00; x:clrscr; textcolor(5); writeln(' ------ИТОГ: добрый ли вы человек? -------'); textcolor(14); writeln('Вы не безнадёжны.В детстве с вами явно занимались.Но годы делают своё дело-'); writeln('ещё немного и от ваших лучших качеств не останется и следа.');goto 00; c:clrscr; textcolor(5); writeln(' -------ИТОГ: добрый ли вы человек?-------'); textcolor(14); writeln('Брр... С вами близко лучше не знакомиться.Кошек вы конечно не мучаете ,но и на'); writeln('гуманиста абсолютно не тянете.Надо за собой следить');goto 00; v:clrscr; textcolor(5); writeln(' ------ИТОГ: добрый ли вы человек? -------'); textcolor(14); writeln('Бесцветность вашей натуры не оставляет места для разговоров о добре и зле'); writeln('В вас всего по немногу-может это и есть идеальный вариант?');goto 00; 00:writeln; ... writeln('Если вы хотите ещё раз протестироваться нажмите "1",если нет "0"'); textcolor(4); writeln('-----------------------------------------------------------------'); read(q2); if q2=1 then goto 1; if q2=0 then goto 2; 2:end.Нашел свой старый код на паскале. Код был написан сразу после изучение конструкции if и goto. Было это в 10 классе, т.е. где-то лет 10 назад :))
Программа является реализацией точной копии теста из журнала "МК-бульвар" того времени guest,
02 Июля 2009
Комментарии (26) -
Куча / Говнокод #1283
+150
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
#! /bin/bash # получаем ссылки на изображения и снабжаем файл разделителями на страницы for ((i=1; i<=$1; i++)) do echo ==== page $i === >>get2.txt wget "http://chan.sankakucomplex.com/post?page=$i&tags=$2" -U "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7 (.NET CLR 3.5.30729)" -O - |pcregrep -o -e 'src[^ ]+preview[^ ]+'|sed -e 's/src\=\"//g' -e 's/\"//g' -e 's/\%20/ /g' -e 's/preview\///g' >>get2.txt done; # скачиваем всё, что качается wget -nc -t 0 -i get2.txt # очищаем и сортируем список ссылок cat get2.txt|pcregrep -o -e 'http.+'|sort > get2.jpg.txt # докачиваем png ls *.jpg|pcregrep.exe -e '^[^ ]+.jpg'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.jpg.txt cat get2.jpg.txt get.jpg.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/jpg/png/g' > get2.png.txt wget -nc -t 0 -i get2.png.txt # докачиваем gif ls *.png|pcregrep.exe -e '^[^ ]+.png'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.png.txt cat get.png.txt get2.png.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/png/gif/g' > get2.gif.txt wget -nc -i get2.gif.txt # докачиваем jpeg ls *.gif|pcregrep.exe -e '^[^ ]+.gif'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.gif.txt cat get.gif.txt get2.gif.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/gif/jpeg/g' > get2.jpeg.txt wget -nc -t 0 -i get2.jpeg.txt # делаем батник для переименования файлов echo -n Creating rename.bat;a=1;for i in `cat get2.txt|grep ^http | pcregrep -o -e '\/data\/[a-f0-9]+'|sed 's/\/data\///g'`; do echo move `dir $i*` `printf %06d $a`.`dir $i*`>>rename.bat;echo -n .; let "a=a+1"; done;echo Done! # убираем за собой #rm -f get*.txt *.htm*грабилка донборы на баше
guest,
29 Июня 2009
Комментарии (0) -
Куча / Говнокод #1264
+154
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
"IF ACK01 <> ""IB"" or ""IR"" { If Partner = ""CARDINAL HEALTH"" THEN { if ACK01= ""IA"" and not exist LIN.SCC.4017=1 THEN ""017"" ELSE ""011"" Else { if Partner = ""NOVANT HEALTH"" OR ""KAISER"" OR ""KAISER HAWAII"" then CASE (ACK01) ""IA"": THEN ""068"" ""IR"" : THEN ""100"" ""IC"" : THEN ""068"" else BLANK } } }"из ТЗ
guest,
26 Июня 2009
Комментарии (0) -
Куча / Говнокод #1259
+149
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
procedure main begin var i = 100; for(var y = 0; y<=i; y++) { echo i+y; echo "\n"; } end;что это за язык?
guest,
25 Июня 2009
Комментарии (4) -
Куча / Говнокод #1217
+153
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
(defun lagr-poly (lpoints) (lambda (x) (let ((prod-l nil) (sum-l nil)) (loop for point in lpoints do (let ((x0 (x-coord point)) (y0 (y-coord point))) (loop for pointn in lpoints do (let ((xn (x-coord pointn))) (if (not (eq point pointn)) (progn (push (/ (- x xn) (- x0 xn)) prod-l))))) (push (* (product prod-l) y0) sum-l) (setq prod-l nil))) (loop for l in sum-l sum l))))Полином Лагранжа, ёпта!
Давно написал, сейчас даже понять не могу как работает. guest,
17 Июня 2009
Комментарии (3) -
Куча / Говнокод #1216
+79.5
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
For Each LVRefWarnItem In Me.ListViewRefWarn.ListItems For Each LVDiagItem In Me.ListViewDiag.ListItems For Each LVReqdClassItem In Me.ListViewReqdClass.ListItems For Each LVReqdPayItem In Me.ListViewReqdPay.ListItems For Each LVReqdSpecItem In Me.ListViewReqdSpec.ListItems For Each LVReqingSpecItem In Me.ListViewReqingSpec.ListItems For Each LVSvcItem In Me.ListViewSvc.ListItems For Each LVReqdContItem In Me.ListViewReqdCont.ListItems For Each LVReqingContItem In Me.ListViewReqingCont.ListItems For Each LVReqingClassItem In ListViewReqingClass.ListItems For Each LVReqingPayItem In ListViewReqingPay.ListItems For Each LVHPCodesItem In ListViewHPCodes.ListItems For Each LVHPOptionCodesItem In ListViewHPOptionCodes.ListItems For Each LVPOSItem In ListViewPOS.ListItems For Each LVReqdProvIDItem In ListViewReqdProvID.ListItems For Each LVReqingProvIDItem In ListViewReqingProvID.ListItems For Each LVAuthTypeItem In ListViewAuthType.ListItems For Each LVMembCondItem In ListViewMemberCondition.ListItems TempDe1.InsertRule _ AdvancedRule, "Advanced", Me.TextGroup, Me.CheckAutoApprove.Value, _ CDate(Me.DTPickerFromDt), CDate(Me.DTPickerToDt), ExpDate, _ LVSvcItem.Text, LVSvcItem.ListSubItems(1).Text, LVDiagItem.Text, _ LVDiagItem.ListSubItems(1).Text, IIf(LVSvcItem.ListSubItems.Count = 1, _ "0", LVSvcItem.ListSubItems(LVSvcItem.ListSubItems.Count).Text), _ LVReqdSpecItem.Text, LVReqdSpecItem.ListSubItems(1).Text, _ LVReqdClassItem.Text, LVReqdClassItem.ListSubItems(1).Text, _ LVReqdContItem.Text, LVReqdContItem.ListSubItems(1).Text, _ LVReqdPayItem.Text, LVReqdPayItem.ListSubItems(1).Text, _ LVReqingSpecItem.Text, LVReqingSpecItem.ListSubItems(1).Text, LVReqingClassItem.Text, LVReqingClassItem.ListSubItems(1).Text, _ LVReqingContItem.Text, LVReqingContItem.ListSubItems(1).Text, _ LVReqingPayItem.Text, LVReqingPayItem.ListSubItems(1).Text, _ LVHPCodesItem.Text, LVHPCodesItem.ListSubItems(1).Text, _ LVPOSItem.Text, LVPOSItem.ListSubItems(1).Text, _ LVReqdProvIDItem.Text, LVReqdProvIDItem.ListSubItems(1).Text, _ LVReqingProvIDItem.Text, LVReqingProvIDItem.ListSubItems(1).Text, _ TextDesc.Text, TextAgeFrom.Text, TextAgeTo.Text, _ LVAuthTypeItem.Text, LVAuthTypeItem.ListSubItems(1).Text, _ LVMembCondItem.Text, LVMembCondItem.ListSubItems(1).Text, _ Me.cboRuleType.SelectedItem.Key, Me.txtRulePriority.Text, _ Int(LVRefWarnItem.Text), Int(LVRefWarnItem.ListSubItems(1).Text), _ LVHPOptionCodesItem.Text, LVHPOptionCodesItem.ListSubItems(1).Text Next Next LVAuthTypeItem Next LVReqingProvIDItem Next LVReqdProvIDItem Next LVPOSItem Next LVHPOptionCodesItem Next LVHPCodesItem Next LVReqingPayItem Next LVReqingClassItem Next LVReqingContItem Next LVReqdContItem Next LVSvcItem Next LVReqingSpecItem Next LVReqdSpecItem Next LVReqdPayItem Next LVReqdClassItem Next LVDiagItem Next LVRefWarnItem... ооп во всех позах :)
guest,
17 Июня 2009
Комментарии (5) -
Куча / Говнокод #1205
+125
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
# /* [ <!-- */ include <stdio.h> /* \ #{\ `""""true \\#{"\n#"}; \ \ if [ -n "$ZSH_VERSION" ]; then \ \ echo exec echo I\'m a zsh script.; \ \ elif [ -n "$BASH_VERSION" ]; then \ \ echo exec echo I\'m a bash script.; \ else \ echo exec echo I\'m a sh script.; \ fi`; #\ BEGIN{print"I'm a ", 0 ? "Ruby" :"Perl", " program.\n"; exit; } #\ %q~ set dummy =0; puts [list "I'm" "a" "tcl" "script."]; exit all: ; @echo "I'm a Makefile." \ #*/ /*: */ enum {a, b}; \ \ static int c99(void) { #ifndef __cplusplus /* bah */ unused1: if ((enum {b, a})0) \ (void)0; #endif unused2: return a; \ } \ static int trigraphs(void) { \ \ return sizeof "??!" == 2; \ } \ char X; \ \ int main(void) { \ \ struct X { \ \ char a[2]; \ };\ if (sizeof(X) != 1) { \ \ printf("I'm a C++ program (trigraphs %sabled).\n", \ \ trigraphs() ? "en" : "dis");\ \ }else if (1//**/2 )unused3 : { ; \ printf("I'm a C program (C%s, trigraphs %sabled).\n", \ c99() ? "89 with // comments" : "99", \ trigraphs() ? "en" : "dis"); \ } else { \ printf("I'm a C program (C89, trigraphs %sabled).\n", \ trigraphs() ? "en" : "dis"); \ } \ return 0; \ } /* # \ > main :: IO () -- -- \ > main = putStr "I'm a Literate Haskell program.\n" # \ ]>++++++++[<+++++++++>-]<+.>>++++[<++++++++++>-]<-.[-]>++++++++++ \ [<+++++++++++>-]<-.>>++++[<++++++++>-]<.>>++++++++++[<++++++++++> \ -]<- - -.<.>+.->>++++++++++[<+++++++++++>-]<++++.<.>>>++++++++++[ \ <++++++++++>-]<+++++.<<<<+.->>>>- - -.<+++.- - -<++.- ->>>>>+++++ \ +++++[<+++++++++++>-]<- - -.<<<<<.<+++.>>>.<<<-.- ->>>>+.<.<.<<.> \ ++++++++++++++.[-]++++++++++"""` # \ print "I'm a Python program."; """[-][--><html><head> <!--:--><title>I'm a HTML page</title></head><body> <!--:--><h1>I'm a <marquee><blink>horrible HTML</blink></marquee> page</h1> <!--:--><script language="Javascript"> <!--: # \ setTimeout( // \ function () { // \ document.body.innerHTML = "<h1>I'm a javascript-generated HTML page</h1>"; // \ }, 10000); // \ //--> </script><!--: \ </body></html><!-- } # \ say "I'm a Perl6 program", try { " ($?PUGS_VERSION)" } // "", "."; # """ # */ #define FOO ]-->~Программа-полиморф hello world на 15 языках. Работает в C, C++, Haskell, Ruby, Python, Perl(x2), HTML, tcl, bash, zsh, make, bash и brainfuck.
guest,
16 Июня 2009
Комментарии (26) -
Куча / Говнокод #1195
+146
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
( define ( lazy-reader reader ) ( lambda ( port ) ( make-lazy-list1 ( lambda ( ) ( let ( ( it ( reader port ) ) ) ( if ( eof-object? it ) ' ( ) it ) ) ) ) ) )Идиотское форматирование в Scheme
guest,
12 Июня 2009
Комментарии (1) -
Куча / Говнокод #1177
+129.6
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
TYPE Numbers=RECORD a:ARRAY 1000 OF INTEGER; N:INTEGER; END; ........ PROCEDURE Summ(OUT res:Numbers;IN a,b:Numbers); (*Проверена*) VAR max,i,sum:INTEGER; BEGIN (*Суммирование*) IF a.N>b.N THEN max:=a.N; ELSE max:=b.N; END; i:=0; sum:=0; WHILE i<=max DO IF i<=a.N THEN sum:=sum+a.a[i]; END; IF i<=b.N THEN sum:=sum+b.a[i]; END; res.a[i]:=sum MOD 10; sum:=sum DIV 10; i:=i+1; END; IF sum>0 THEN res.N:=max+1; res.a[max+1]:=sum; ELSE res.N:=max; END; END Summ;Кусок из написанной одним энтузиастом-программером реализации длинной арифметики (комментарии сохранены)
4 байта под каждую десятичную цифру. Много? Зато все понятно, как в школе ;)
шесть + семь = три, единица на ум пошла...
P.S. язык оберон - наследник паскаля guest,
10 Июня 2009
Комментарии (8)
Follow us!