- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
...
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+67
...
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
/*}*/
}
Скачал, посмотрел, офигел:D
+156
Запиши эти слова в файл (например, words.txt или slova.txt) и прочитай его с помощью функции fgetcsv().
<?php
$x=fopen("slova.txt","r");
$y=fgetcsv($x,filesize($x),' ');
foreach($y as $line)
{
echo $line;
};
?>
Разбиение строки на отдельные слова с сайта hashcode.ru
+134
зависающие маллок )))
void * __cdecl malloc(size_t size)
{
// No fail malloc!
void *pMem;
do {
pMem=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,size);
if(pMem==NULL) Sleep(2000);
} while(pMem==NULL);
return pMem;
}
void * __cdecl operator new( unsigned int cb )
{
// No fail new!
void *pMem;
do {
pMem=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,cb);
if(pMem==NULL) Sleep(2000);
} while(pMem==NULL);
return pMem;
}
что хотел аффтар ? !!! аццкий сотона
int GetCfgBool(char *cfgstr,const char *key)
{
return GetCfgNum(cfgstr,key)?TRUE:FALSE;
}
аффтар застрелись !!!
char *GetCfgStr(char *cfgstr,const char *key)
{
char *str=cfgstr;
// Skip past name of options list
while(*str!='\0') str++;
str++;
// Walk through options
while(*str!='\0') {
int nLen;
if(*str=='B') {
nLen=1;
str+=2;
if(strncmp(str,key,strlen(key))==0) break;
} else if(*str=='S') {
str+=2;
nLen=atoi(str);
while(*str!=']') str++;
str+=2;
if(strncmp(str,key,strlen(key))==0) break;
} else if(*str=='N') {
str+=2;
char *pb;
pb=str;
while(*str!=',') str++;
nLen=(DWORD)str-(DWORD)pb;
str++;
pb=str;
while(*str!=']') str++;
int nLen2=(DWORD)str-(DWORD)pb;
if(nLen2>nLen) nLen=nLen2;
str+=2;
if(strncmp(str,key,strlen(key))==0) break;
}
while(*str!='=') str++;
str++;
str+=(nLen+1);
}
if(*str!='\0') {
while(*str!='=') str++;
return str+1;
}
return NULL;
}
исходники BO2K гениально !!!))
и как не стыдно ЭТО распространять
http://www.bo2k.com/
+116
int min = 32000;
int max = 0;
int mind = 0;
int i;
int j;
double t;
double f;
int p = 0;
double[] x = new double[4];
double[] k = new double[4]; //массив для К
double[,] s = { { 2, 4, 5, 1, 0, 0, 0 }, { 1, 8, 6, 0, 1, 0, 0 }, { 7, 4, 5, 0, 0, 1, 0 }, { 4, 6, 7, 0, 0, 0, 1 } };
double[,] a = { { 2, 4, 5, 1, 0, 0, 0 }, { 1, 8, 6, 0, 1, 0, 0 }, { 7, 4, 5, 0, 0, 1, 0 }, { 4, 6, 7, 0, 0, 0, 1 } };
double[] b = { 120, 280, 240, 360 };
double[] c = { 10, 14, 12, 0, 0, 0, 0 };
double[] r = new double[7];
double[,] s1 = new double[4, 7];
for ( i = 0; i < 4; i++)
{
for (j = 0; j < 7; j++)
Console.Write(a[i, j] + "\t");
Console.WriteLine("\n");
}
for (j = 0; j < 4; j++)
Console.Write(b[j] + "\t");
Console.WriteLine();
for (j = 0; j < 7; j++)
Console.Write(c[j] + "\t");
Console.WriteLine();
Console.WriteLine();
//первая итерация
for (i = 0; i < 4; i++)
{
for (j = 0; j < 7; j++)
{
if (a[i, j] != 0)
s[i, j] = b[i] / a[i, j];
Console.Write(s[i, j] + "\t");
}
Console.WriteLine();
}
for (j = 0; j < 7; j++)
{
for (i = 0; i < 4; i++)
{
if (s[i, j] < min)
min = Convert.ToInt32(s[i, j]);
}
r[j] = min * c[j];
Console.Write(r[j] + "\t");
}
Console.WriteLine();
for (j = 0; j < 7; j++)
{
if (r[j] > max)
{
max = Convert.ToInt32(r[j]);
p = j;
}
}
for (i = 0; i < 4; i++)
{
for (j = 0; j < 7; j++)
{
k[i] = a[i, p];
}
}
min = 32000;
for (i = 0; i < 4; i++)
{
if (s[i, p] < min)
{
min = Convert.ToInt32(s[i, p]);
mind = i;
}
Console.WriteLine();
}
t = a[mind, p];
for (i = 0; i < 4; i++)
{
for (j = 0; j < 7; j++)
{
s[i, j] = a[i, j];
}
}
Полная версия: http://pastebin.com/p36MWPXR
Этот код был выложен на одном из форумов с просьбой объяснить "Что делает приложенный код".
Посмотрев строчек 50 из почти 300, понял, что мои нервы дороже этого говнокода.
Форматирование практически полностью сохранено.
Был один интересный пост к этой теме: "могу ошибаться, но по-моему - позорит автора", согласен с мнением автора этого поста.
+152
$mem = c("memo1")->text;
$count =count($mem);
for($i=0;$i<$count;$i++)
{
list($mai[$i], $pass[$i]) = explode(":", $mem[$i]);
// чекаешь на валид как уже надо if( $mail[$i] == true and $pass[$i] == true) {code}
}
http://community.develstudio.ru/showthread.php/4745-Как-достать-текст-до-знака-quot-quot-и-после-знака-quot-quot-(делаю-чекер)
+110
// Loop through the list of passwords and try them until one works
for (; passwordcounter < passwords.Length; passwordcounter++)
{
//shit goes here
}
...another one.
+1009
#define STRING_REF char*
#define STRING_ARRAY_REF char**
#define STRING_ARRAY_ARRAY_REF char***
#define INT_ARRAY_REF int*
#define INT_ARRAY_ARRAY_REF int**
#define INT_ARRAY_3D_REF int***
#define INT_ARRAY_4D_REF int****
#define BYTE_ARRAY_REF signed char*
#define BYTE_ARRAY_ARRAY_REF signed char**
#define BYTE_ARRAY_3D_REF signed char***
#define UNSIGNED_BYTE_ARRAY_REF unsigned char*
#define UNSIGNED_BYTE_ARRAY_ARRAY_REF unsigned char**
#define UNSIGNED_BYTE_ARRAY_3D_REF unsigned char***
#define SHORT_ARRAY_REF short*
#define SHORT_ARRAY_ARRAY_REF short**
#define SHORT_ARRAY_3D_REF short***
#define SHORT_ARRAY_4D_REF short****
#define SHORT_ARRAY_5D_REF short*****
Без комментариев
+964
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication7
{
class Program
{
static void Main(string[] args)
{
op: int b, c, d, e;
c = 0;
e = 1;
Console.WriteLine("a - посчитать сумму");
Console.WriteLine("b - посчитать произведение");
Console.Write("вариант=");
string p = Console.ReadLine();
if (p == "a")
{
ok: Console.Write("С какого числа считаем:"); d = Convert.ToInt32(Console.ReadLine());
if (d == 0) goto op;
else
{
Console.Write("Число до которого считаем:"); b = Convert.ToInt32(Console.ReadLine());
for (int a = d; a <= b; a++)
{
c = c + a;
Console.WriteLine(c);
}
Console.WriteLine("Сумма цифр от " + d + " до " + b + " = " + c);
Console.ReadLine();
goto ok;
}
}
if (p == "b")
{
ol: Console.Write("С какого числа считаем:"); d = Convert.ToInt32(Console.ReadLine());
if (d == 0) goto op;
else
{
Console.Write("Число до которого считаем:"); b = Convert.ToInt32(Console.ReadLine());
for (int a = d; a <= b; a++)
{
e = e * a;
Console.WriteLine(e);
}
Console.WriteLine("Произведение чисел от " + d + " до " + b + " = " + e);
Console.ReadLine();
goto ol;
}
}
else goto op;
}
}
}
Нашёл на одном форуме
−146
Процедура ОбработкаНоменклатуры()
НомерЛистаТипы = 1;
Попытка ExcelТипы = СоздатьОбъект("Excel.Application");
ФайлДанныхТипы = ExcelТипы.Workbooks.Open(НазваниеФайла);
Исключение
КонецПопытки;
//Лист = ФайлДанныхТипы.WorkSheets(НазваниеФайла);
ЗагрузкаТипы = ФайлДанныхТипы.Worksheets(НомерЛистаТипы).UsedRange;
//КоличествоСтрокЭкселеТипы = Лист.Rows.Count;
КоличествоСтрокЭкселеТипы = ФайлДанныхТипы.Worksheets(НомерЛистаТипы).UsedRange.Rows.Count;
ExcelТипы.Sheets(НомерЛистаТипы).Select();
Спр2 = СоздатьОбъект("Справочник.Номенклатура");
СпрВидНом = СоздатьОбъект("Справочник.ВидыНоменклатуры");
СпрНДС = СоздатьОбъект("Справочник.СтавкиНДС");
СпрНП = СоздатьОбъект("Справочник.СтавкиНП");
СпрЕд = СоздатьОбъект("Справочник.ЕдиницыИзмерений");
Для СтрТипы = НачСтр+1 По КонСтр Цикл
Спр = СоздатьОбъект("Справочник.Номенклатура");
Если Спр.НайтиПоНаименованию(Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,1).Value))) = 1 Тогда
Сообщить("Номенклатура найдена");
Если ВидыЦен = 1 Тогда
Спр.Себестоимость = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
ИначеЕсли ВидыЦен = 2 Тогда
Спр.Цена = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
КонецЕсли;
Спр.Записать();
Иначе
Спр.Новый();
Спр.ИспользоватьДату('01.11.2011');
Если Спр2.НайтиПоКоду("Сй111")=1 Тогда
Спр.Родитель =Спр2.ТекущийЭлемент();
Конецесли;
Спр.Наименование = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,1).Value));
Сообщить("Создается номенклатура" + Спр.Наименование);
Спр.ТипТовара = Перечисление.ТипыТоваров.Собственный;
Если СпрВидНом.НайтиПоНаименованию("Товар")=1 Тогда
Спр.ВидНоменклатуры = СпрВидНом.ТекущийЭлемент();
КонецЕсли;
Спр.ПолнНаименование = Спр.Наименование;
Если ВидыЦен = 1 Тогда
Спр.Себестоимость = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
ИначеЕсли ВидыЦен = 2 Тогда
Спр.Цена = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
КонецЕсли;
Спр.СтранаПроисхожд = 1;
Если СпрНДС.НайтиПоКоду("3")=1 Тогда
Спр.СтавкаНДС = СпрНДС.ТекущийЭлемент();
КонецЕсли;
Если СпрНП.НайтиПоКоду("1")=1 тогда
Спр.СтавкаНП = СпрНП.ТекущийЭлемент();
КонецЕсли;
Если СпрЕд.НайтиПоНаименованию("шт")=1 Тогда
Спр.ЕдиницаИзмерения = СпрЕд.ТекущийЭлемент();
КонецЕсли;
Спр.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
В бух 7.7 нужно было загрузить определенный данные из экселя. С 7.7 не работаю - начал сочинять. В начале писал по аналогии с 8.х:
Спр.СтавкаНДС = СпрНДС.НайтиПоКоду("3") и т.д.
Потом на инфостарте и мисте подсказали как правильно сделать и посоветовали создать здесь эту запись)
+120
' Program DISKRIMINANT
CLS
DO
PRINT "Vvedite peremennye"
INPUT "A"; A
INPUT "B"; B
INPUT "C"; C
D = B ^ 2 - 4 * A * C
CLS
PRINT "A ="; A
PRINT "B ="; B
PRINT "C ="; C
IF A = 0 THEN
CLS
WRITE "Urovnenie ne kvadratnoe"
WRITE "Ekstrenaja ostanovka programmy"
WRITE "Zavershenie raboty"
SLEEP 3
SYSTEM
END
END IF
PRINT "DISKRIMINANT ="; D
Dx = SQR(D)
P$ = "Pechal"
IF D > 0 THEN PRINT "x1 ="; ((0 - B) + Dx) / (2 * A), "x2="; ((0 - B) - Dx) / (2 * A)
IF D = 0 THEN PRINT "x ="; (0 - B) / (2 * A)
IF D < 0 THEN PRINT P$
INPUT "Rerty(YES = 1; NO = 2)"; CLr
IF CLr = 1 THEN CLS
LOOP WHILE CLr = 1
IF CLr = 2 THEN SYSTEM
END
Один из согруппников накодиль :D
Ну я свиснул тихонька. Удивлению не была границ :D