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

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Procedure ks(s:string;q:char; var k:byte);
    var i:byte;
Begin
k:=0;
For i:=1 To Length(s) Do
   If s[i]=q Then inc(k);
End;

    Гавно код

    megaruliz, 07 Мая 2011

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

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

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    s1:=‘789’; s2:=’34.6’;       	s3:=‘3+2a’;
Val(s1,p,w); writeLn(p:4,w:2);
Val(s2,q,w); writeLn(q:6:1,w:2);
WriteLn(p+q:7:1);
Val(s3,p,w); writeLn(w);
s1:=‘Я Вас люблю’; WriteLn(s1);
q:=Length(s1); WriteLn(q);
p:=Pos(‘о’,s1); WriteLn(p);
p:=Pos(‘к’,s1); WriteLn(p);

    megaruliz, 07 Мая 2011

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

  3. Pascal / Говнокод #6587

    +147

    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
    unit Unit113145;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, OleCtrls, SHDocVw, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  msg:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
msg1:string;
msg:string;
msg2:string;
begin
msg:=ansiToUtf8(edit1.text);
msg1:=ansiToUtf8(edit2.text);
msg2:=ansiToUtf8(edit3.text);
ShellExecute(Handle, 'open', 'http://galaxy.mobstudio.ru//services/index.php?userID=&password=&usercur=&a=lottery_house&choise=right&lot_id=+&&kbv=92&lngg=ru&dbl=2%20HTTP/1.1', nil, nil, SW_RESTORE);
end;

end.

    Говно Код
    Что то тут не так помогите изменить чтоб все было правильно
    Всяким антиначаям и скачям
    не писать

    megaruliz, 07 Мая 2011

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

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

    +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
    if (!$vid['video_code']) {
        $vars['player'] = 'Онлайн промотр недоступен (не указан плеер)';
        if ($vid['image'] != '') {
            $vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
            $vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
        } else {
            $vars['image'] = false;
        }
    } else {
        if (!$user->Auth and $config['video']['hide_video_guest']) {
            $vars['player'] = '<a href="index.php?name=user&op=registration">Зарегистрируйтесь для просмотра видео онлайн.</a>';
            if ($vid['image'] != '') {
                $vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
                $vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
            } else {
                $vars['image'] = false;
            }
        } else {
            $vars['player'] = $vid['video_code'];
            $vars['image'] = false;
        }
    }

    Мартин, 07 Мая 2011

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

  5. Pascal / Говнокод #6585

    +117

    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
    program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  a,b : Integer;
  c : Extended;
BEGIN
 readln(a,b);
TRY
 c := sqrt(a-b);
 WriteLn('A > B');
EXCEPT
 WriteLn('A < B');
END;
 ReadLn;
END.

    Дело было вечером, делать было нечего, решил just for education порешать пару задач по программированию. Залез значит в Зултрк, ищу. На глаза сразу попалась небольшая книжица с названием "128 Задач по началам программирования." В.В Пупырышева. Скачал, начал решать. И вот какая задачка мне попалась:
    "II-15*. Максимум из двух
    Напишите программу, которая запрашивает джва числа и сообщает, какое из них больше другого."
    Вроде бы ничего сложного, но ВНЕЗАПНО у задачи обнаружилось примечание: "Эта задача должна быть решена без использования ветвления." Первая мысль, пришедшая в голову, была использовать функции, но ведь и они подразумевали ветвление. Так что начался мозговой штурм. После получаса раздумий, высралось ЭТО. В конце, посмотрев в ответы, я просто охренел. Спойлер: "Эта задача представляет собой подготовку к следующей ступени (задачи с ветвлением). Но решить её можно и без использования ветвлений, если придумать две формулы для вычилсения максимума и минимума из двух чисел. Тогда если обозначить исходные числа как Х и Y, а упомянутые формулы - как MAX(x,y) и MIN(x,y) соответственно, то для получения правильного ответа достаточно будет вывести строку типа: "Число-", MAX(x,y), "-не меньше числа -", MIN(x,y)." После этого я книгу с компа удалил, не помещая в корзину.

    Govnocoder#0xFF, 07 Мая 2011

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

  6. PHP / Говнокод #6584

    +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
    class mysql_act extends main { 
    function mysql_count($zap, $m) { 
        $q = mysql_query($zap); 
        if ($m == 'count') { 
            $qc = mysql_num_rows($zap); 
        } else  
        $qc = mysql_fetch_array($q); 
        return $qc; 
    } 
    function mysql_method($method ,$arr, $db, $wh) { 
        $i = 0; 
        foreach ($arr as $k => $v) { 
            $i++; 
            if (count($arr)==$i) 
            $par .= '`'. $k .'`=\''.$v.'\''; 
            else 
            $par .= '`'. $k .'`=\''.$v.'\' &&'; 
        } 
        $n=0; 
        foreach ($wh as $k => $v) { 
            $n++; 
            if (count($arr)==$n) 
            $parw .= '`'. $k .'`=\''.$v.'\''; 
            else 
            $parw .= '`'. $k .'`=\''.$v.'\' &&'; 
        } 
        switch ($method) { 
        case 'SELECT':  
            $req = 'SELECT * FROM '. $db .' WHERE '. $par;  
            break; 
        case 'UPDATE': 
            $req = 'UPDATE '.$db.' SET '.$parw.' WHERE '. $par; 
        } 
        $q['req'] = mysql_query($req); 
        $q['arr'] = mysql_fetch_array($q['req']); 
        return $q; 
    }

    skad0, 07 Мая 2011

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

  7. JavaScript / Говнокод #6583

    +162

    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
    // first wtf part:
if (__captcha.ammount > 0) {
    var captcha = new Array();
    
    for (var i in __captcha.queue) {
        captcha = __captcha.queue[i];
        delete __captcha.queue[i];
        break;
    }
    
    __captcha.ammount--;
    __update();
    
    return captcha;
}
// second wtf part:
__captcha.queue[__captcha.ammount++] = new Array(
	$("form.__LBH-form #recaptcha_challenge_field").val(),
	$("form.__LBH-form #recaptcha_response_field").val()
);

    Нашёл в каком-то кривом юзерскрипте.
    Первое -- это такая хитрая реализация pop. Видимо, простой вызов array.pop() автору чем-то не угодил.
    Второе -- вообще чудо. Вместо array.length автор зачем-то создал свой ammount (заметьте, две "m"!), а вместо array.append() юзает какую-то кривую шнягу.

    popoffka, 07 Мая 2011

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

  8. JavaScript / Говнокод #6582

    +153

    1. 1
    $('a ul.switcher').click(function(){

    Писал спросони, минут 5 не мог понять, почему не работает этот код :)

    Jetti, 07 Мая 2011

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

  9. C++ / Говнокод #6581

    +160

    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
    #include <stdio.h>
#include <boost/typeof/typeof.hpp>

template<class T>
struct __macro
{
	__declspec(thread) static T _;
};

template<class T>
T __macro<T>::_;

#define def(c) (__macro<typeof(c)>::_ = c)
#define acc(c) (__macro<typeof(c)>::_)

#define is_digit(x) (def(x),(acc(x) >= '0' && acc(x) <= '9') ? true : false)
#define is_bugit(x) ((x >= '0' && x <= '9') ? true : false)

int main()
{
	char hj;
	
	hj = '9';
	printf("test->") && is_bugit(hj++) && printf("ok\n") || puts("no");

	hj = '9';
	printf("test->") && is_digit(hj++) && printf("ok\n") || puts("no");
}

    e113c08d6cf14afb, 07 Мая 2011

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

  10. PHP / Говнокод #6580

    +172

    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
    function load_that_shop_page( $modulename, $pagename) {
            global $my, $db, $perm, $ps_function, $ps_module, $ps_html, $ps_vendor_id, $page, $database,$mosConfig_absolute_path, $cart, $start, $option, $vmLogger, $vmDoCaching,
            $product_id,$VM_LANG, $PHPSHOP_LANG, $sess,$vendor_image,$vendor_country_2_code, $vendor_country_3_code , $vendor_image_url, $PSHOP_SHIPPING_MODULES,
            $_VERSION, $vendor_name, $vendor_address, $vendor_city,$vendor_country,$vendor_mail, $category_id, $mainframe, $mosConfig_list_limit, $limitstart, $limit,
            $vendor_store_name, $vendor_state, $vendor_zip, $vendor_phone, $vendor_currency, $vendor_store_desc, $vendor_freeshipping, $ps_shipping, $ps_order_status,
            $module_description, $vendor_currency_display_style, $vendor_full_image, $mosConfig_live_site, $vendor_id, $CURRENCY_DISPLAY, $keyword, $mm_action_url,
            $ps_payment_method,$ps_zone,$ps_product, $ps_product_category, $ps_order, $sess, $page, $func, $pagename, $modulename, $vars, $cmd, $ok, $mosConfig_lang, $mosConfig_useractivation,
            $auth, $ps_checkout,$error, $error_type, $func_perms, $func_list, $func_class, $func_method, $func_list, $dir_list, $mosConfig_allowUserRegistration, $mosConfig_caching;

            if( !stristr( $_SERVER['PHP_SELF'], "index2.php") ) {
                   $mainframe->addCustomHeadTag( "<script type=\"text/javascript\" src=\"$mosConfig_live_site/components/$option/js/sleight.js\"></script>
<link type=\"text/css\" rel=\"stylesheet\" media=\"screen, projection\" href=\"$mosConfig_live_site/components/$option/css/shop.css\" />" );
            } else {
				?>
<script type="text/javascript" src="<?php echo "$mosConfig_live_site/components/$option" ?>/js/sleight.js"></script>
<link type="text/css" rel="stylesheet" media="screen, projection" href="components/<?php echo $option ?>/css/shop.css" />
				<?php
			}

    небольшой отрывок из компоненты com_virtuemart движка joomla.
    ППЦ!!! и они ЭТО называют ООП? там все в перемешку, вполне в норме кучи echo в перемешку с sql запросами, про шаблонизацию и отделения логики от данных и данных от представления они видимо вообще не в курсе...

    nikll, 07 Мая 2011

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