Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−3
30 июня 2012 года Михаилу Подивилову (mihip, podivilov) пришла в голову создать свою систему счисления WCT.
Напоминаю, что цифры WCT ABCDEFGHIJKLMNPO соответствует цифрам HEX 0123456789ABCDEF соответственно.
А реализация компилятора была написана на Embarcadero Delphi.
Стертор, не ты ли это?
dm_fomenok,
29 Июня 2018
0
uses crt;
var i,pc2,vc2,tc2,chc2,q,pc,vc,tc,chc,kvt,k,a,b,c,d,t1,t2,t3:integer;
pc1,vc1,tc1,chc1,n,n1,n2:string;
begin
clrscr;
read (n);
n1:=n;
n2:=n;
a:=pos('.',n)+1;{a-nachalo vtorogo chisla}
t1:=pos('.',n);
delete (n,a-1,1);{ybrali iz IP pervuu tochky}
b:=pos('.',n)+2;{b-nachalo tret'ego chisla}
t2:=pos('.',n);
delete (n,b-2,1);{ybrali iz IP vtoruu tochky}
c:=pos('.',n)+3;{c-nachalo chetvertogo chisla}
t3:=pos('.',n);
delete (n,c-3,1);{ybr III tochky}
pc1:=copy(n2,1,a-2);{str chislo 1}
vc1:=copy(n2,a,((t2)-(length(pc1)+1))); {str chislo 2}
q:=t3-length(pc1)-length(vc1)-1;
tc1:=copy(n2,b,q);
q:=length(n2)-length(pc1)-length(vc1)-length(tc1);
chc1:=copy(n2,c,q);
val (pc1,pc2,d);
val (vc1,vc2,d);
val (tc1,tc2,d);
val (chc1,chc2,d);
for i:=1 to length(n) do
begin
if n2[i]='.' then kvt:=kvt+1;
if La-La-La
then
write ('1')
else
write ('0');
repeat until keypressed;
end.Определяем правильный ли IP-адрес...
Verenick,
28 Мая 2018
−1
Стертор, ты вообще пишешь полезный код (хотя бы на Delphi) или
занимаешься только тем, что постишь на говнокод советы по
использованию камерунских пенисов на основании своего личного опыта?
dm_fomenok,
07 Мая 2018
−1
type
TItemTag = (
яХз,
яКаркас,
яИгровой,
яЭлемент,
яКонструкция,
яТруба,
яСтойка,
// тут еще штук 15...
яМетиз);
//........
function TItemSerializator.GetTagIdByName(
const ATagName: string): TItemTag;
begin
if not FNameToTagIdMap.TryGetValue(ATagName.ToLower, Result) then
Result := яХз;
end;
//.....
function TItemSerializator.StringToTags(const ATextTags: string): TItemTags;
var
i: Integer;
LTag: TItemTag;
LTextTag: string;
begin
Result := [];
FParser.DelimitedText := ATextTags;
for i := 0 to FParser.Count - 1 do
begin
LTextTag := FParser[i].Trim;
if not LTextTag.IsEmpty then
begin
LTag := GetTagIdByName(LTextTag);
if LTag <> яХз then
Result := Result + [LTag];
end;
end;
end;
Решил воспользоваться кириллицей, потому что задолбался - тэгов двадцать штук уже.
Привет одинэсникам!
LabutinPA2,
06 Апреля 2018
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;Автор пытается сделать тест по информатике. Вроде бы для диплома.
Alex11223,
03 Апреля 2018
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;Предположительно, установка текущей ставки в слотовой игре. Но это ещё далеко не самый трэш в этом говнопроекте.
SadButTrue,
03 Апреля 2018
+1
program bio;
uses crt, graphABC;
const y1=200; r1=20;
var
x2,x3,r:real;
procedure del (x1,x11:integer);
begin
circle (x1,y1,r1);
sleep(1000);
ClearWindow();
r:=r1/2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
sleep(1000);
r:=r*2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
del(Trunc(x2),Trunc(x3));
end;
begin
SetWindowSize(600,400);
setBrushColor(clGreen);
del(300,300);
end.Симулятор деления клеток на паскале, который не работает.
SewerSurfer,
17 Марта 2018
+10
var
DPen: TGPPen;
Drawer: TGPGraphics;
DBrush: TGPSolidBrush;
DFntFam: TGPFontFamily;
DPath: TGPGraphicsPath;
IC,BC:Integer;
ICL, BCL:TGPColor;
W:WideString;
si:TGPRectF;
rt:TGPRectF;
GP:TGPPoint;
begin
W:=FWaterMark.Text;
IC:=ColortoRGB(FWaterMark.Font.Color);
BC:=ColorToRGB(FWaterMark.CircuitColor);
ICl:=MakeColor(GetRValue(IC), GetGValue(IC), GetBValue(IC));
BCL:=MakeColor(GetRValue(BC), GetGValue(BC), GetBValue(BC));
Drawer:=TGPGraphics.Create(FBitMap.Canvas.Handle);
Drawer.SetCompositingQuality(CompositingQualityHighQuality);
Drawer.SetSmoothingMode(SmoothingModeAntiAlias);
Drawer.SetTextRenderingHint(TextRenderingHintAntiAlias);
DPath:=TGPGraphicsPath.Create;
DPen:=TGPPen.Create(BCL, FWaterMark.FCircuitWidth);
DBrush:=TGPSolidBrush.Create(ICL);
DFntFam:=TGPFontFamily.Create(FWaterMark.Font.Name);
RT.X:=0;
RT.Y:=0;
RT.Width:=FBitMap.Width;
RT.Height:=FBitMap.Height;
DPath.AddString(W, Length(W), DFntFam, FontStyleBold, FWaterMark.Font.Size, GP, TGPStringFormat.Create());
DPath.GetBounds(RT, nil, DPen);
DPath.Reset;
//В общем, хз, как узнать ширину и высоту нарисованного.
//MeasureString/MeasureCharacterRanges не подходят,а в доке такая муть, что я чуть не спился.Нежнейший аромат...
Exception,
04 Марта 2018
−1
program voynasharov;
uses crt, graphABC;
type shar = class
col, x, y, r: integer;
pm: byte;
constructor Create (ccol, cx, cy, cr: integer);
begin
col:=ccol;
x:=cx;
y:=cy;
r:=cr;
end;
procedure make;
begin
setbrushcolor (col);
circle (x,y,r);
end;
procedure mov;
begin
pm:=random(5);
case pm of
1: x:=x+20;
2: x:=x-20;
3: y:=y-20;
4: y:=y+20;
end;
end;
end;
var first, second:shar;
begin
setwindowsize(1280,720);
first:=shar.Create(666,550,400,60);
second:=shar.Create(1488,740,300,60);
first.make;
second.make;
repeat
//clrscr;
first.mov;
second.mov;
first.make;
second.make;
delay(50);
until first.x=70;
end.Лёгкий способ наколдовать перекатывание кругов в паскале
SewerSurfer,
09 Января 2018
0
program sharokat;
uses crt, graphABC;
type shar = class
col, x, y, r: integer;
constructor Create (ccol, cx, cy, cr: integer);
begin
col:=ccol;
x:=cx;
y:=cy;
r:=cr;
end;
procedure make;
begin
setbrushcolor (col);
circle (x,y,r);
end;
end;
var my:shar;
begin
my:=shar.Create(666,100,100,60);
my.make;
end.Лёгкий способ наколдовать круг в паскале
SewerSurfer,
09 Января 2018
Follow us!