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

    Всего: 3

  2. Pascal / Говнокод #21129

    +8

    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
    Program L_121;
uses crt;
Var N : integer;
b,z : string;
f1 : text;

Begin
     assign(f1,'Единица измерения.txt');
     writeln('1 Соотношение конкретной единицы измерения длины');
     writeln('2 Соотношение единиц измерения длины');
     writeln('3 Обозначение единиц измерения длины');
     writeln('4 Назначение единиц измерения длины');
     read(N);clrscr;
     reset(f1);
     case N of
     
     1:begin
            write('Введите единицу измерения : ');
            read(b);clrscr;
            readln(f1,z);writeln(z);
            if b='миллиметр' then begin readln(f1,z);writeln(z); end;
            if b='сантиметр' then begin readln(f1,z);readln(f1,z);writeln(z); end;
            if b='дециметр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
            if b='метр'      then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
            if b='километр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z); end;
       end;
     2:begin
            readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
       end;
     3:begin
            readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
            writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
       end;
     4:begin
            readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
            readln(f1,z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
       end;
     end;
End.

    4 года назад я так писал код)

    Genome, 07 Сентября 2016

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

  3. PHP / Говнокод #16396

    +156

    1. 1
    2. 2
    $k[($obf[((3630-(708))-2915)])] = array ( "\u0430" => "а", "\u0410" => "А", "\u0431" => "б", "\u0411" => "Б", "\u0432" => "в", "\u0412" => "В", "\u0433" => "г", "\u0413" => "Г", "\u0434" => "д", "\u0414" => "Д", "\u0435" => "е", "\u0415" => "Е", "\u0451" => "ё", "\u0401" => "Ё", "\u0436" => "ж", "\u0416" => "Ж", "\u0437" => "з", "\u0417" => "З", "\u0438" => "и", "\u0418" => "И", "\u0439" => "й", "\u0419" => "Й", "\u043a" => "к", "\u041a" => "К", "\u043b" => "л", "\u041b" => "Л", "\u043c" => "м", "\u041c" => "М", "\u043d" => "н", "\u041d" => "Н", "\u043e" => "о", "\u041e" => "О", "\u043f" => "п", "\u041f" => "П", "\u0440" => "р", "\u0420" => "Р", "\u0441" => "с", "\u0421" => "С", "\u0442" => "т", "\u0422" => "Т", "\u0443" => "у", "\u0423" => "У", "\u0444" => "ф", "\u0424" => "Ф", "\u0445" => "х", "\u0425" => "Х", "\u0446" => "ц", "\u0426" => "Ц", "\u0447" => "ч", "\u0427" => "Ч", "\u0448" => "ш", "\u0428" => "Ш", "\u0449" => "щ", "\u0429" => "Щ", "\u044a" => "ъ", "\u042a" => "Ъ", "\u044b" => "ы", "\u042b" => "Ы", "\u044c" => "ь", "\u042c" => "Ь", "\u044d" => "э", "\u042d" => "Э", "\u044e" => "ю", "\u042e" => "Ю", "\u044f" => "я", "\u042f" => "Я", "r" => "", "n" => "
", "t" => "" );

    без комментариев...

    Genome, 21 Июля 2014

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

  4. PHP / Говнокод #16372

    +155

    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
    <?
$obf = array("0" => "Соединение,,","1" => "Путь","2" => "Контроллер","3" => "DOCUMENT_ROOT",);
$pm[($obf[((5889-(3114))-2775)])] = end($kk);
$k[($obf[((5307-(7))-5299)])] = "/pm/Library/4.2/".$pm[($obf[((5889-(3114))-2775)])][($obf[((4174-(685))-3487)])]."/Ready_Script.php"; 
$k[($obf[((5307-(7))-5299)])] = iconv("UTF-8", "WINDOWS-1251", $k[($obf[((5307-(7))-5299)])]); 
print $_SERVER[($obf[((8714-(1196))-7515)])].$k[($obf[((5307-(7))-5299)])];
include $_SERVER[($obf[((8714-(1196))-7515)])].$k[($obf[((5307-(7))-5299)])];
?>



<? 
$pm["Переключатель"] = "/pm/bibl.php";
 if ($_SERVER["HTTP_HOST"] == "localhost:6448"): 
 	$pm["Переключатель"] = "/pm/k.php";
 endif;

 $pm["Чпу"]["Обрабатываем ЧПУ 0/1"] = "1";
 
 if ($pm["Чпу"]["Обрабатываем ЧПУ 0/1"]): 
 	$kk[] = array( 
 		"Контроллер" => "PHP Файл Подключить", 
 		"Файл" => "/pm/Настройки/Главные.php", 
 		); 

	 include $_SERVER["DOCUMENT_ROOT"].$pm["Переключатель"]; 
	 
	 $kk[] = array( "Контроллер" => "PHP Файл Подключить", "Файл" => "/pm/Настройки/Чпу.php", );
	 
	 include $_SERVER["DOCUMENT_ROOT"].$pm["Переключатель"]; 
	 
	 if ( !$pm["Чпу"]["Страница подключена 0/1"] ): 
	 	$kk[] = array( "Контроллер" => "PHP Файл Подключить", "Файл" => "/pm/Проекты/".$pm["Настройки"]["Проект"]."/_Настройки/Чпу.php", ); 
	 
	 	include $_SERVER["DOCUMENT_ROOT"].$pm["Переключатель"]; $pm["Чпу"]["Страница подключена 0/1"] = "1"; 
	 endif;
 endif;
?>

    Заказчик попросил починить сайт, а тут это...

    Genome, 17 Июля 2014

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