Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+113
program n1;
label one, two;
begin
asm
mov bh,1
mov bl,1
mov dx,0
mov ax,0
one: inc dx
mov cl,bl
add bl,bh
mov bh,cl
cmp dx,6
jne one
mov al,bl
two: inc dx
mov cl,bl
add bl,bh
mov bh,cl
cmp dx,10
jne two
add al,bl
end;
end.Так в КубГТУ на кафедре АПП изучают ассемблер.
xyz,
14 Сентября 2010
+121
const
Koeff: array [TTPKind] of record //
BC: integer;
Border: array [0 .. 4] of extended;
C: array [0 .. 3, 0 .. 10] of extended;
end = (
(BC: 4; Border: (-0.226, 1.923, 11.361, 19.739, 21.103); C: (
(0, 1.8891380E2, -9.3835290E1, 1.3068619E2, -2.2703580E2, 3.5145659E2, -3.8953900E2, 2.8239471E2, -1.2607281E2, 3.1353611E1, -3.3187769),
(1.334584505E1, 1.472644573E2, -1.844024844E1, 4.031129726, -6.249428360E-1, 6.468412046E-2, -4.458750426E-3, 1.994710149E-4, -5.313401790E-6, 6.481976217E-8, 0),
(-8.199599416E1, 1.553962042E2, -8.342197663, 4.279433549E-1, -1.191577910E-2, 1.492290091E-4, 0, 0, 0, 0, 0),
(3.406177836E4, -7.023729171E3, 5.582903813E2, -1.952394635E1, 2.560740231E-1, 0, 0, 0, 0, 0, 0)
) // R
),
(BC: 4; Border: (-0.235, 1.874, 10.332, 17.536, 18.694); C: (
(0, 1.84949460E2, -8.00504062E1, 1.02237430E2, -1.52248592E2, 1.88821343E2, -1.59085941E2, 8.23027880E1, -2.34181944E1, 2.79786260, 0),
(1.291507177E1, 1.466298863E2, -1.534713402E1, 3.145945973, -4.163257839E-1, 3.187963771E-2, -1.291637500E-3, 2.183475087E-5, -1.447379511E-7, 8.211272125E-9, 0),
(-8.087801117E1, 1.621573104E2, -8.536869453, 4.719686976E-1, -1.441693666E-2, 2.081618890E-4, 0, 0, 0, 0, 0),
(5.333875126E4, -1.235892298E4, 1.092657613E3, -4.265693686E1, 6.247205420E-1, 0, 0, 0, 0, 0, 0)
) // S
),
(BC: 2; Border: (0.291, 2.431, 13.820, 0, 0); C: (
(9.8423321E1, 6.9971500E2, -8.4765304E2, 1.0052644E3, -8.3345952E2, 4.5508542E2, -1.5523037E2, 2.9886750E1, -2.4742860, 0, 0),
(2.1315071E2, 2.8510504E2, -5.2742887E1, 9.9160804, -1.2965303, 1.1195870E-1, -6.0625199E-3, 1.8661696E-4, -2.4878585E-6, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // B
),
(BC: 3; Border: (-8.095, 0, 42.919, 69.553, 0); C: (
(0, 1.9528268E1, -1.2286185, -1.0752178, -5.9086933E-1, -1.7256713E-1, -2.8131513E-2, -2.3963370E-3, -8.3823321E-5, 0, 0),
(0, 1.978425E1, -2.001204E-1, 1.036969E-2, -2.549687E-4, 3.585153E-6, -5.344285E-8, 5.099890E-10, 0, 0, 0),
(-3.11358187E3, 3.00543684E2, -9.94773230, 1.70276630E-1, -1.43033468E-3, 4.73886084E-6, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // J
),
(BC: 2; Border: (-5.603, 0, 20.872, 0, 0); C: (
(0, 2.5949192E1, -2.1316967E-1, 7.9018692E-1, 4.2527777E-1, 1.3304473E-1, 2.0241446E-2, 1.2668171E-3, 0, 0, 0),
(0, 2.592800E1, -7.602961E-1, 4.637791E-2, -2.165394E-3, 6.048144E-5, -7.293422E-7, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // T
),
(BC: 2; Border: (-8.825, 0, 76.373, 0, 0); C: (
(0, 1.6977288E1, -4.3514970E-1, -1.5859697E-1, -9.2502871E-2, -2.6084314E-2, -4.1360199E-3, -3.4034030E-4, -1.1564890E-5, 0, 0),
(0, 1.7057035E1, -2.3301759E-1, 6.5435585E-3, -7.3562749E-5, -1.7896001E-6, 8.4036165E-8, -1.3735879E-9, 1.0629823E-11, -3.2447087E-14, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // E
),
(BC: 3; Border: (-5.891, 0, 20.644, 54.886, 0); C: (
(0, 2.5173462E1, -1.1662878, -1.0833638, -8.9773540E-1, -3.7342377E-1, -8.6632643E-2, -1.0450598E-2, -5.1920577E-4, 0, 0),
(0, 2.508355E1, 7.860106E-2, -2.503131E-1, 8.315270E-2, -1.228034E-2, 9.804036E-4, -4.413030E-5, 1.057734E-6, -1.052755E-8, 0),
(-1.318058E2, 4.830222E1, -1.646031, 5.464731E-2, -9.650715E-4, 8.802193E-6, -3.110810E-8, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // K
),
// тут ещё 6 типов было. (Пожалуйста, ограничьтесь 4000 символами.)
);Фрагмент типичной программы для научных расчётов
TarasB,
14 Сентября 2010
+101
type
// смотрите, как не надо делать и почему придумали ООП
TProc = procedure;
TGoProc = function: boolean;
TSizeProc = function: integer;
TGetConfigProc = function: string;
TApplyConfigProc = procedure(SM: PStringMap);
TDeviceProc = record
InitControls: TProc;
MoveControls: TProc;
Go: TGoProc;
MaxH, MinH: TSizeProc;
GetConfig: TGetConfigProc;
ApplyConfig: TApplyConfigProc;
end;
const
DeviceProcs: array [TDevice] of TDeviceProc = (
(InitControls: ETR.InitControls; MoveControls: ETR.MoveControls; Go: ETR.Go; MaxH: ETR.MaxH; MinH: ETR.MinH; GetConfig: ETR.GetConfig; ApplyConfig: ETR.ApplyConfig),
(InitControls: TS_NSH.InitControls; MoveControls: TS_NSH.MoveControls; Go: TS_NSH.Go; MaxH: TS_NSH.MaxH; MinH: TS_NSH.MinH; GetConfig: TS_NSH.GetConfig; ApplyConfig: TS_NSH.ApplyConfig),
(InitControls: TS_IND.InitControls; MoveControls: TS_IND.MoveControls; Go: TS_IND.Go; MaxH: TS_IND.MaxH; MinH: TS_IND.MinH; GetConfig: TS_IND.GetConfig; ApplyConfig: TS_IND.ApplyConfig),
(InitControls: TP_NSH.InitControls; MoveControls: TP_NSH.MoveControls; Go: TP_NSH.Go; MaxH: TP_NSH.MaxH; MinH: TP_NSH.MinH; GetConfig: TP_NSH.GetConfig; ApplyConfig: TP_NSH.ApplyConfig),
(InitControls: TP_IND.InitControls; MoveControls: TP_IND.MoveControls; Go: TP_IND.Go; MaxH: TP_IND.MaxH; MinH: TP_IND.MinH; GetConfig: TP_IND.GetConfig; ApplyConfig: TP_IND.ApplyConfig)
);
Вот до чего доводит ненависть к ООП.
ОПП - это хорошо, ООП не надо ненавидеть.
TarasB,
14 Сентября 2010
+105
implementation
uses Unit1,Unit2,Unit3,Unit4,Unit5,Unit6,Unit7,Unit8;
{$R *.dfm}
var
k,Zst,zk,Vm12,Vm23,Vm34,Vm45,Vm56,Z2pr,Z3pr,Z4pr,Z5pr,Z6pr,Lm12,Lm23,Lm34,Lm45,Lm56,Vk,Vst,Q,q11,q2ob,q3ob,q4ob,q5ob,q6ob,
Sst,P1st,P2st,p0k,p12k,p23k,p34k,p45k,p56k,L0,Dk,Dst,H,Hst: real;
J0,j, i: integer;
const a=1.1; g=9.81; Y=0.03; x1=605; Y1=48; X2=772; Y2=104;
x3=627; Y3=107; X4=646; Y4=379;
x5=X3; Y5=194; X6=576; Y6=200;
x7=582; Y7=193; X8=576;
x9=X3; Y9=285; X10=526; Y10=291;
x11=532; Y11=284; X12=X10;
x13=650; Y13=380; X14=395; Y14=399;
x15=479; Y15=377; X16=473;
x17=394; Y17=Y13; X18=314; Y18=Y14;
x19=398; Y19=Y15; X20=392;
x21=314; Y21=Y13; X22=233; Y22=Y14;
x23=317; Y23=Y15; X24=311;
x25=233; Y25=Y13; X26=152; Y26=Y14;
x27=235; Y27=Y15; X28=229;
x29=152; Y29=Y13; X30=70; Y30=Y14;
x31=154 ; Y31=Y15; X32=148;
X33=70;Y33=Y13;X34=3;Y34=Y14;
X35=72;Y35=Y15;X36=66;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form9.visible:=false;
end;куча Паскаля
bugmenot,
12 Сентября 2010
+105
type
THackImage = class(TGraphicControl)
public
property Canvas;
end;
procedure TColorPicker.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
{$IFDEF HACKS}
Assert(Sender is TImage, 'в Sender всегда передается экземпляр класса TImage');
FSelectedColor := THackImage(Sender).Canvas.Pixels[X, Y];
{$ELSE}
(* то, что было лень писать сразу *)Говнистая работа с библиотекой VCL. Не притрагивался к проекту около года, потом загрузил и почти час втыкал, за каким этот грёбаный хак здесь нужен.
bugmenot,
07 Сентября 2010
+92
if (x>13)or(x<13)or(x=13) then begin writeln('введено невероное значение X');halt end else begin
//Расчёт уравнения
..........
end;
в лабе в студента увидел o_O
конечно он получил 2 за лабу
но ка пример какокода супер
adli__82,
17 Августа 2010
+98
procedure TfmAllParams.NInsertParamSelebrationClick(Sender: TObject);
var
str: string;
begin
str := //Новый год
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '01.01.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
' values(1,1,null,null,null) ' +
//День св. Валентина
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '14.02.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
' values(14,2,null,null,null) ' +
//8 марта
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '08.03.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
' values(8,3,' + #39 + 'жін.' + #39 + ',null,null) ' +
//1 мая
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '01.05.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
' values(1,5,null,null,null) ' +
//Пасха
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '04.04.2010' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
' values(4,4,' + #39 + 'Pasha' + #39 + ',2010) ' +
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '24.04.2011' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
' values(24,4,' + #39 + 'Pasha' + #39 + ',2011) ' +
// И 10 таких же запросов на каждый год!
' if not exists (select id from sta_param_selebration ' +
' where date_selebration=' + #39 + '24.04.2022' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
' values(24,4,' + #39 + 'Pasha' + #39 + ',2022) ' +
stokito,
03 Августа 2010
+94
if MessageDlg('Удалить проводку №'+srcTransact.DataSet.FieldByName('Trans_ID').AsString+' и ее спецификацию?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
CMD.SQL.Add('EXEC dbo.asp_DelTransact '+srcTransact.DataSet.FieldByName('Trans_ID').AsString );
CMD.Execute;
_refresh(srcTransact.DataSet);
end;
end;
Из реального проекта (учётная система).
При определённых условиях можно удалить не только то что пользователь собирался удалить :).
Да и вообще, сам код - говно.
Fes,
30 Июля 2010
+120
begin
if not directoryexists('input') then createdir('input');
if not directoryexists('output') then createdir('output');
if not directoryexists('temp') then createdir('temp');
if not directoryexists('temp\temp') then createdir('temp\temp');
if not directoryexists('temp\temp_') then createdir('temp\temp_');
if not directoryexists('temp\temp__') then createdir('temp\temp__');
if not directoryexists('temp\temp___') then createdir('temp\temp___');
if not directoryexists('temp\temp____') then createdir('temp\temp____');
if not directoryexists('temp\temp_____') then createdir('temp\temp_____');
if not directoryexists('temp\temp______') then createdir('temp\temp______');
if not directoryexists('temp\temp_______') then createdir('temp\temp_______');
if not directoryexists('temp\temp________') then createdir('temp\temp________');
if not directoryexists('temp\temp_________') then createdir('temp\temp_________');
if not directoryexists('temp\temp__________') then createdir('temp\temp__________');
if not directoryexists('temp\temp___________') then createdir('temp\temp___________');
if not directoryexists('temp\temp____________') then createdir('temp\temp____________');
if not directoryexists('temp\temp_____________') then createdir('temp\temp_____________');
if not directoryexists('temp\temp______________') then createdir('temp\temp______________');
if not directoryexists('temp\temp_______________') then createdir('temp\temp_______________');
if not directoryexists('temp\temp________________') then createdir('temp\temp________________');
print_('Вас приветствует программа для сортировки слвоарей True Sort');
print_('Если у вас есть какие-то вопросы по её работе - нажмите Help');
turbo:=false;
end;Кинул знаковый в асю=\
BlincAttack,
23 Июля 2010
+108
...
var
fileName :string; // имя файла
mes :string; // текст мессаги
capt :string; // заголовок мессаги
f :thandle;
fils :integer;
BytesRead :D WORD;
c :byte;
begin
writeln('enter filename:'); // просим ввести имя файла
readln(fileName); // в fileName заносим имя файла
if not fileexists(fileName) then // если он несуществует
begin
writeln('file not found :( '); // виводит предупреждение
readln;
exit; // закриваем прогу
end;
writeln(''); // просим ввесли текст мессаги
writeln('enter message text (max 10):'); // максмальна длина 10 символов(так как в Project1.exe для нее зарезирвировано 10 байт) потому что длина HelloWorld=10
readln(mes);
writeln(''); // просим ввести заголовок мессаги
writeln('enter message caption (max 10):'); // опять максимальная длина 10 символов
readln(capt);
f:=fileopen(fileName,fmOpenReadWrite); // откриваем fileName
fils:=Windows.GetFileSize(f,nil); // получаем размер
writeln('size = '+inttostr(fils)+'b'); // виводим размер
// патчим байти для мессаги
// $2848,$2849,$284A,$284B,$284C,$284D,$284E,$284F,$2850,$2851
c:=ord(char(pchar(mes[1]))); // патчим первий байт
SetFilePointer(f, $2848, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[2]))); // патчим второй (2) байт
SetFilePointer(f, $2849, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[3]))); // патчим 3 байт
SetFilePointer(f, $284A, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[4]))); // патчим 4 байт;
SetFilePointer(f, $284B, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[5]))); // патчим 5 байт
SetFilePointer(f, $284C, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[6]))); // патчим 6 байт
SetFilePointer(f, $284D, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[7]))); // патчим 7 байт
SetFilePointer(f, $284E, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[8]))); // патчим 8 байт
SetFilePointer(f, $284F, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[9]))); // патчим 9 байт
SetFilePointer(f, $2850, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(mes[10]))); // патчим 10 байт
SetFilePointer(f, $2851, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
// патчим байти для заголовка мессаги
// адреса с $283C до $2845
c:=ord(char(pchar(capt[1]))); // патчим первий байт
SetFilePointer(f, $283C, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(capt[2]))); // патчим второй байт
SetFilePointer(f, $283D, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(capt[3]))); // третий символ и так дальше
SetFilePointer(f, $283E, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(capt[4])));
SetFilePointer(f, $283F, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
c:=ord(char(pchar(capt[5])));
SetFilePointer(f, $2840, nil, 0);
WriteFile(f, c, SizeOf(c), BytesRead, nil);
...Где-то нашёл =(
BlincAttack,
21 Июля 2010
Follow us!