- 1
ЗАЛУПОНЯЛЫ
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−3
ЗАЛУПОНЯЛЫ
0
$sPreviewFile = $_SERVER["DOCUMENT_ROOT"].BX_PERSONAL_ROOT."/tmp/templates/__bx_preview/footer.php";
if($_GET['bx_template_preview_mode'] == 'Y' && $USER->CanDoOperation('edit_other_settings') && file_exists($sPreviewFile))
include_once($sPreviewFile);
else {
require $GLOBALS["BX_ICON"];
eval("?>$content<?");
}
?>
Где-то в битриксе.
0
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
...
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
GroupBox2: TGroupBox;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
GroupBox3: TGroupBox;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
...
GroupBox14: TGroupBox;
RadioButton52: TRadioButton;
RadioButton53: TRadioButton;
RadioButton54: TRadioButton;
RadioButton55: TRadioButton;
GroupBox15: TGroupBox;
RadioButton56: TRadioButton;
RadioButton57: TRadioButton;
RadioButton58: TRadioButton;
RadioButton59: TRadioButton;
...
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: integer;
begin
Button3.enabled:=true;
s:=0;
if Form1.RadioButton2.Checked then s:=s+1;
if Form1.RadioButton6.Checked then s:=s+1;
if Form1.RadioButton20.Checked then s:=s+1;
if Form1.RadioButton15.Checked then s:=s+1;
if Form1.RadioButton11.Checked then s:=s+1;
if Form1.RadioButton21.Checked then s:=s+1;
if Form1.RadioButton24.Checked then s:=s+1;
if Form1.RadioButton28.Checked then s:=s+1;
if Form1.RadioButton33.Checked then s:=s+1;
if Form1.RadioButton39.Checked then s:=s+1;
if Form1.RadioButton43.Checked then s:=s+1;
if Form1.RadioButton44.Checked then s:=s+1;
if Form1.RadioButton50.Checked then s:=s+1;
if Form1.RadioButton54.Checked then s:=s+1;
if Form1.RadioButton56.Checked then s:=s+1;
if s=15 then Label3.Caption:=' Молодец, ты ответил на все вопросы!(Твоя оценка 5)';
if s=14 then Label3.Caption:=' Молодец, ты ответил на четырнадцать вопросов!(Твоя оценка 5)';
if s=13 then Label3.Caption:=' Молодец, ты ответил на 13 вопросов!(Твоя оценка 5)';
if s=12 then Label3.Caption:=' Хорошо, ты ответил на 12!(Твоя оценка 4)';
if s=11 then Label3.Caption:=' Ты ответил на все 11!(Твоя оценка 4)';
if s=10 then Label3.Caption:='10 парвильных ответов молодец!(Твоя оценка 4)";
if s=9 then Label3.Caption:='9 ПРАВИЛЬНЫХ ОТВЕТОВ!(Твоя оценка 3)';
if s=8 then Label3.Caption:='Отлично! Ты ответил на 8 вопрос(Твоя оценка 3)';
if s=7 then Label3.Caption:='Молодец! Ты ответил на 7 вопрос(Твоя оценка 3)';
if s=6 then Label3.Caption:='6 Вопросов? Ты не плох!(Твоя оценка 3)';
if s=5 then Label3.Caption:='5 правильных вопросов! ура!(Твоя оценка 2)';
if s=4 then Label3.Caption:='Учи предмет лучше! Всего 4 правильных вопроса!(Твоя оценка 2)';
if s=3 then Label3.Caption:=' Слабо! Всего 3 правильных ответа!(Твоя оценка 2)';
if s=2 then label3.Caption:=' Всего 2 правильных ответа!( Твоя оценка 2)';
if s=1 then label3.Caption:=' Тебе не быть программистом! Всего 1 правильный ответ!(Твоя оценка 2)';
if s=0 then label3.Caption:=' Давай заново!(Твоя оценка 2)';
end;
Автор пытается сделать тест по информатике. Вроде бы для диплома.
0
procedure ustbet;
begin
if (200*GCtrl.CurLines>coins.realBalance) then begin
if (150*GCtrl.CurLines>coins.realBalance) then begin
if (100*GCtrl.CurLines>coins.realBalance) then begin
if (50*GCtrl.CurLines>coins.realBalance) then begin
if (40*GCtrl.CurLines>coins.realBalance) then begin
if (30*GCtrl.CurLines>coins.realBalance) then begin
if (20*GCtrl.CurLines>coins.realBalance) then begin
if (15*GCtrl.CurLines>coins.realBalance) then begin
if (10*GCtrl.CurLines>coins.realBalance) then begin
if (5*GCtrl.CurLines>coins.realBalance) then begin
if (4*GCtrl.CurLines>coins.realBalance) then begin
if (3*GCtrl.CurLines>coins.realBalance) then begin
if (2*GCtrl.CurLines>coins.realBalance) then begin
if (1*GCtrl.CurLines>coins.realBalance) then begin
end else Coins.CurBet:=1
end else Coins.CurBet:=2;
end else Coins.CurBet:=3;
end else Coins.CurBet:=4;
end else Coins.CurBet:=5;
end else Coins.CurBet:=10;
end else Coins.CurBet:=15;
end else Coins.CurBet:=20;
end else Coins.CurBet:=30;
end else Coins.CurBet:=40;
end else Coins.CurBet:=50;
end else Coins.CurBet:=100;
end else Coins.CurBet:=150;
end else Coins.CurBet:=200;
coins.AllBet:=Coins.CurBet*gctrl.curlines;
end;
Предположительно, установка текущей ставки в слотовой игре. Но это ещё далеко не самый трэш в этом говнопроекте.
−107
А вот когда вы кончили впервые в жизни (в восемь лет или в четырнадцать там), вы испугались? Типа - "ой, что это моя пися задёргалась, и почему мне так приятно"?
Побежали кричать мамке "я тут свою писю потрогал, а она вот так"?
+4
//// ВРЕМЕННО!!! НАКОСЯЧЕНО С ПЕРИОДАМИ!!! ЧТОБЫ РАБОТАЛО ДЕЛАЕМ СРЕЗ НА КОНЕЦ МЕСЯЦА
//// НУЖНО ПЕРЕДЕЛЫВАТЬ ЗАПРОС
Временно, оно же и навсегда.
0
//Процедура АНуКаДавайКаПлясатьВыходи(...) Экспорт
−1
if (typeof _dragon_pic_shift[el]['did'] === typeof undefined || typeof _dragon_pic_shift[el]['pic_id'] === typeof undefined ) {
continue;
}
if (_dragon_pic_shift[el]['did'].indexOf(active_dragon_id) >= 0
&& _dragon_pic_shift[el]['pic_id'].indexOf(active_dragon_lvl) >= 0
&& _dragon_pic_shift[el]['place'] == this_place) {
css_shift_class = _dragon_pic_shift[el]['css_shift'];
break;
}
это какой то новый уровень построения условий в js
+1
bool kiemtraso(std::string &a,int i)
{
char N[4];
/* N[0]=a[i+0];
N[1]=a[i+1];
N[2]=a[i+2];*/
for(int n=0;n<3;n++)
{
N[n]=a[i+n];
}
if(atoi(N)>255) return 0;
return 1;
}
bool isIPv4Address(std::string inputString)
{
int n=inputString.length();
//3 dau cham=====================================гугл перевел: "3 часа ночи"
int dem=0;
for(int i=0;i<n;i++)
{
if(inputString[i]==46) dem++;
}
if(dem!=3) return 0;
//co hon mot ki tu==============================
if(inputString[0]==46||inputString[n-1]==46) return 0; //ki tu dau va cuoi khac dau cham
for(int i=1;i<inputString.length()-1;i++)
{
if(inputString[i]==46 && inputString[i+1] == 46) return 0;
}
//khong co chu cai=========================================
for(int i=0 ; i<n ; i++)
{
if (inputString[i]==47||inputString[i]<46||inputString[i]>57) return 0;
}
//2 so o giua nho hon 255===========================================
int sokitu;
for(int i=0; i<n-1 ; i++)
{
if(inputString[i]==46)
{
for(int j=i+1 ; j < n ; j++)
{
if(inputString[j]==46)
{
sokitu = j-i-1;
if(sokitu==3&&kiemtraso(inputString,i+1)==0) return 0;
if(sokitu>3) return 0;
break;
}
}
i++;
continue;
}
}
//so dau nho hon 255 =====================================
int kitudau;
int m=0;
for(int i=0;i<n;i++)
{
if(inputString[i]==46)
{
if (i==3 && kiemtraso(inputString,m)==0) return 0;
if (i>3) return 0;
break;
}
}
//so cuoi nho hon 255=======================================
for(int i=inputString.length()-1;i>0;i--)
{
if(inputString[i]==46)
{
if(inputString.length()-i-1==3 && kiemtraso(inputString,i+1)==0) return 0;
if (inputString.length()-i-1 > 3) return 0;
break;
}
}
return 1;
}
Проверяет, является ли введенная строка IP адресом.
Не мое
решение одного, судя по всему, вьетнамца.
Я пока не очень силен в алгоритмах, может это типа нормально, подскажите.
−3
В сущности, CTEPTOP - тупой выебныш.