- 1
- 2
- 3
- 4
- 5
- 6
int strnlen(const char *s, int size)
{
int i;
for(i=0; i<size; i++) if(!*s) break;
return i;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 3
+110
int strnlen(const char *s, int size)
{
int i;
for(i=0; i<size; i++) if(!*s) break;
return i;
}
+137
/*
sub iterm(i,ne(2),na(2),x(2),xx(2),d(2),p(2),mp,np,ii,im)
shared nkp
fl = 0
FOR k = 1 TO na(0, i): ma = na(k, i): me = ne(k, i)
FOR j = 1 TO mp
x=x(j,ma): d=x(j,me)-x: x=x+p(1,i)*d: x(j,ma)=x: ad=ABS(d)
IF ad > ABS(p(2, i) * x) AND it<im THEN fl = 1
NEXT j, k: it=it+1: IF fl = 1 THEN ii = p(nkp, i) - 1 else it=0
end sub: REM ИТЕР-БЛОК (мод.)
*/
void iterm(int i, int ne[4][7],int na[3][7], float x[3][6],
float d, float p[3][7], int mp, int np, int ii, int im)
{extern int nkp; float xx,ad; static int it=0;
int fl = 0, k, j, ma, me;
for (k = 1; k<=na[0][ i];++k)
{ ma = na[k][ i]; me = ne[k][ i];
for( j = 1;j<= mp;++j)
{xx=x[j][ma]; d=x[j][me]-xx; xx=xx+p[1][i]*d; x[j][ma]=xx; ad=fabs(d);
if( ad > fabs(p[2][ i] * xx) && it<im) fl = 1;
}} it=it+1; if( fl == 1) ii = p[nkp][ i] - 1; else it=0;
} // ИТЕР-БЛОК (мод.)
/*
cls
? fnpr$; REM ПОДГОТОВКА ДАННЫХ
REM ОРГАНИЗУЮЩАЯ ПОДПРОГРАММА
call op(ne(),na(),x(),s(),pr(),md(),n,mp,np,p(),mk,ki,im)
?: ?"Общее число итераций ="ki". Жми пробел.": S$=input$(1)
*/
как обычно вместо того чтобы написать программу с нуля,был найден код на бейсике и начал безжалостно копипаститься в С
ну и сам код на бэйсике естественно тоже говно
+61.8
CStringA * str = new CStringA; - создает и пашет на ура
CStringA * str = (CStringA *)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CStringA)); часов 5 назад так же пахало на ура, помылся в душе и ... бля мистика возвращает неверный указатель
был мне задан такой вопрос =)