По колено в коде — Говнокод.ру

Pascal / Говнокод #6768

+114

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    a,b,c,x:integer;
    chas, nedel1,nedel2,nedel3:integer;
begin
  a:=0;
  b:=0;
  c:=0;
  repeat
    chas:= strtoint (edit1.text);
    nedel1:= strtoint (edit2.text);
    nedel2:= strtoint (edit3.text);
    nedel3:= strtoint (edit4.text);
    x:=((nedel1*a)+(nedel2*b)+(nedel3*c));
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      a:=a+1;
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      b:=b+1;
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      c:=c+1;
  until chas=x;
  label1.Caption:=inttostr (a);
  label2.Caption:=inttostr (b);
  label3.Caption:=inttostr (c);
end;
end.

евклид плачет

bugmenot, 27 Мая 2011

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

PHP / Говнокод #6767

+163

1
2
3
4
5

$str = $note['count'];

$res = strpos($str, ',');

if($res){echo substr($str,0,$res);}else{echo $str;}

проверка на целое число

sanya, 27 Мая 2011

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

PHP / Говнокод #6766

+165

1
2
3
4
5
6
7
8
9

class email_selector {

private static $number_per_page = 30;//

public function getNumberPerPage() {
    return self::$number_per_page;
}

}

понятно, что это только кусок класса. увидев, просто не смог не запостить....

CRRaD, 27 Мая 2011

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

Haskell / Говнокод #6765

−357

01
02
03
04
05
06
07
08
09
10
11
12
13
14

chislo :: String -> Bool
chislo []=True
chislo (x:xs) =if (x=='1') then chislo xs
               else if (x=='2') then chislo xs
                 else if (x=='3') then chislo xs
                   else if (x=='4') then chislo xs
                     else if (x=='5') then chislo xs
                       else if (x=='6') then chislo xs
                         else if (x=='7') then chislo xs
                           else if (x=='8') then chislo xs
                             else if (x=='9') then chislo xs
                               else if (x=='0') then chislo xs
                                 else if (x=='.') then chislo xs
							 else False

haskell

resettik, 26 Мая 2011

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

C++ / Говнокод #6764

+175

1
2
3
4
5
6

if(v.isArray)value->setText("Array");
    else value->setText(v.value.value("value").value<QString>());
    if(v.value.value("color",QColor()).value<QColor>()!=QColor())
    {
        value->setBackgroundColor(v.value.value("color").value<QColor>());
    }

Value, value, value, value, value, value, value ...

petersvp, 26 Мая 2011

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

1C / Говнокод #6763

−128

1
2

тПодр	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущееПодразделениеОрганизации;
тДолжн	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущаяДолжность;

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

-ggorky, 26 Мая 2011

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

SQL / Говнокод #6762

−114

1
2
3
4
5
6

SELECT DISTINCT
    IF(`Дебет` <> 0, CONVERT('Расход' USING cp1251), CONVERT('Приход' USING cp1251)) AS value
FROM payments
ORDER BY
    value
LIMIT 0,2;

Получение доступных видов операций ('Приход', 'Расход')

KiaPlayer, 26 Мая 2011

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

PHP / Говнокод #6761

+158

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

public function getRelatedDataProvider($relationName,$config=array(),$params=array()){
		
		$md = $this->getMetaData();
		if(!isset($md->relations[$relationName])){
			throw new CDbException(Yii::t('yii','{class} does not have relation "{name}".',
				array('{class}'=>get_class($this), '{name}'=>$relationName)));
		}
		
		$relation = $md->relations[$relationName];
		if(!($relation instanceof CHasManyRelation || $relation instanceof CManyManyRelation)){
			throw new CDbException(Yii::t('yii','Связь {class}.{name} имеет тип, отличный от Has_Many и Many_Many.',
				array('{class}'=>get_class($this), '{name}'=>$relationName)));
		}
		
		// return new CArrayDataProvider($this->getRelated($relationName,true,$params), $config);
		
		var_dump($relation);
		
		// копируем критерии из связи
		$criteria = new CDbCriteria;
		foreach(array('select', 'condition', 'params', 'limit', 'offset', 'order', 'group', 'join', 'having', 'with', 'alias', 'index', 'together') as $param){
			$criteria->$param = $relation->$param;
		}
		
		// склеиваем параметры с критерией
		$criteria->mergeWith(
			is_string($params)
				? array('condition' => $params)
				: $params
		);
		
		// добавляем связь через fk
		// ВОТ ТУТ Я НИЧЕГО НЕ ПОНИМАЮ :)
		$thisTable = $this->getTableAlias();
		$childModel = CActiveRecord::model($relation->className);
		$childMd = $childModel->getMetaData();
		$childTable = empty($relation->alias) ? $childModel->getTableAlias() : $relation->alias;
		//$criteria->join .= " {$relation->joinType} {$thisTable} ON {$thisTable}.{$relation->foreignKey}={$childTable}.{$childMd->tableSchema->primaryKey}";
		$criteria->params[':fkrel'] = $this->{$relation->foreignKey};
		$criteria->addCondition("{$childTable}.{$relation->foreignKey}=:fkrel");
		
		
		// собираем кофиг для CActiveDataProvider
		$dpConfig = array(
			'criteria' => $criteria,
		) + $config;
		
		echo "CActiveDataProvider( {$relation->className} , criteria: ".var_export($dpConfig['criteria']->toArray(),true)." )";
		
		// 
		$dataProvider = new CActiveDataProvider(
			$relation->className,
			$dpConfig
		);
		
		return $dataProvider;
	}
	
}

res-nullis, 26 Мая 2011

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

PHP / Говнокод #6760

+147

1
2
3

<?php
///*********************************** PAYMENT MODULE START**************************//////
?>

из шаблона CMS oscommerce. открываем режим php чтобы написать комментарий

gorky, 26 Мая 2011

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

PHP / Говнокод #6759

+156

1

$value['VALUE'] = htmlspecialchars(str_replace(array("<",">"), "\"", $value['VALUE']));

Безопасность на высоте. То, что потом приходят совершенно нечитаемые данные -- это ничего.

ftr, 26 Мая 2011

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

Говнокод: по колено в коде.