- 1
- 2
- 3
- 4
- 5
- 6
- 7
$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}
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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
−136
ВыполнениеОплаченнойУслугиТранспорт="1"; // выполнение Услуги
ВыполнениеОплаченнойУслугиОплатаТруда="2"; // выполнение Услуги
ВыполнениеОплаченнойУслугиОтчисления="3"; // выполнение Услуги
ВыполнениеОплаченнойУслугиАрендаОС="4"; // выполнение Услуги
ВыполнениеОплаченнойУслугиАмортизацияОС="5"; // выполнение Услуги
ВыполнениеОплаченнойУслугиРемонтОС="6"; // выполнение Услуги
ВыполнениеОплаченнойУслугиИзносМБП="7"; // выполнение Услуги
ВыполнениеОплаченнойУслугиТопливо="8"; // выполнение Услуги
ВыполнениеОплаченнойУслугиХранение="9"; // выполнение Услуги
ВыполнениеОплаченнойУслугиРеклама="Q"; // выполнение Услуги
ВыполнениеОплаченнойУслугиПроценты="W"; // выполнение Услуги
ВыполнениеОплаченнойУслугиПотери="E"; // выполнение Услуги
ВыполнениеОплаченнойУслугиТара="R"; // выполнение Услуги
ВыполнениеОплаченнойУслугиПрочие="T"; // выполнение Услуги
ВыполнениеОплаченнойУслугиНеПринимаемые="Y"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиТранспорт="!"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиОплатаТруда="@"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиОтчисления="#"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиАрендаОС="$"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиАмортизацияОС="%"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиРемонтОС="^"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиИзносМБП="&"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиТопливо="*"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиХранение="("; // выполнение Услуги
НеоплаченноеВыполнениеУслугиРеклама="q"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиПроценты="w"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиПотери="e"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиТара="r"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиПрочие="t"; // выполнение Услуги
НеоплаченноеВыполнениеУслугиНеПринимаемые="y"; // выполнение Услуги
Шо це такое непонятно. Но впечатление производит пугающее
+165
//
// Dear maintainer:
//
// Once you are done trying to 'optimize' this routine,
// and have realized what a terrible mistake that was,
// please increment the following counter as a warning
// to the next guy:
//
// total_hours_wasted_here = 25
//
+1000
QString dump_str = "dump";
log4cplus::tstring tdump = (std::wstring((wchar_t*)dump_str.unicode(), dump_str.length()));
XLogger::dumper = log4cplus::Logger::getInstance(std::wstring(tdump));
Мой "шедевр"
Три преобразования подряд
Если кто подскажет как это по человечески приписать буду благодарен.
+142
enum class TClockWise
{
CW=true,
CCW=false
};
template<class T>
std::ostream& operator<<(std::ostream &out, const TClockWise Cow)
{
switch(Cow)
{
case TClockWise::CW: out << "CW"; break;
case TClockWise::CCW: out << "CCW"; break;
default: MUST_NEVER_CAL_THAT;
}
return out;
}