Перейти к содержимому


* * * - - 4 Голосов

Vставька


  • Войдите для ответа
Сообщений в теме: 192

#41 Пожертвовал 10916.00zloDGEk916

DGEk916

    Продвинутый извращенец


  • ЗЛОгрузчик 3lvl
  • Сообщений 1237
  • Торрентов 119
  • Лицо руководства 2012
  • ГородSamara

Отправлено 07 October 2010 - 20:58

11

:ph34r: всего то
press to win →
Все жалобы вот →сюдаFAQ для новичков

#42 DeKaN

DeKaN

    Заслуженный кодер

  • Сообщений 386
  • Торрентов 4

Отправлено 07 October 2010 - 21:31

		void swap_subarray(bool[][] matr, int i, int j)
		{
			while (i < j)
				Change(ref matr, i++, j--);
		}


		private void Counting(BackgroundWorker worker, DoWorkEventArgs e)
		{
			Har = 0;
			int N = 1;
			int[] temp = new int[count];
			for (int i = count; i > 0; i--)
			{
				N *= i;
				temp[i - 1] = i;
			}
			for (int i = 0; i < N; i++)
			{
				if (worker.CancellationPending)
				{
					e.Cancel = true;
				}
				else
				{
					bool finded = false;
					int index = matrix2.Length - 1;
					while (index > 0)
					{
						if (temp[index - 1] < temp[index])
						{
							// нашли место, вида ????? matr[i-1] < matr[i] > matr[i+1] > ... > matr[N - 1]
							// сейчас надо найти номер j > i, который минимальным образом превосходит matr[i - 1]
							int j_min = index;
							for (int j = index + 1; j < matrix2.Length; j++)
							{
								if ((temp[j] > temp[index - 1]) && (temp[j] < temp[j_min]))
									j_min = j;
							}
							// теперь обменяем элементы массива с индексами j_min и i - 1
							int c = temp[j_min];
							temp[j_min] = temp[index - 1];
							temp[index - 1] = c;
							Change(ref matrix2, j_min, index - 1);
							// теперь осталось только перевернуть часть массива с индексами [i, matr.Length - 1]
							Array.Reverse(temp, index, temp.Length - index);
							swap_subarray(matrix2, index, matrix2.Length - index);
							// очередной шаг сделан - можно возвращаться
							finded = true;
							break;
						}
						// обязательно двигаемся
						index--;
					}
					// у нас массив оказался упорядоченным по убыванию, значит необходимо упорядочить по возрастанию
					if (!finded)
					{
						Array.Reverse(temp);
						swap_subarray(matrix2, 0, matrix2.Length - 1);
					}
					UInt64 tempHar = Convert.ToUInt64(GetCode(worker, e, matrix2), 2);
					if (tempHar > Har) Har = tempHar;
					int progress = (int)((float)i / N * 100d);
					worker.ReportProgress(progress);
				}
			}
		}


учитывая, что я тебе прислал работающий алгоритм, который вдобавок полный и работает раз в 10-15 быстрее вашего алгоритма....
спрос появится мгновенно на него:ph34r:
Не говорите, что мне нужно делать, и я не буду говорить, куда вам нужно идти.
Пишу программы на заказ (C#, Java, C++, PHP, Delphi, Pascal)

За последний год: отдано 2948,62 Тб / скачано 395,71 Тб
Раздача ключей для KIS/KAV 6, 7, 8, 2010, 2011, Crystal, WKS или FS

#43 Rayman

Rayman

    Монстр общения

  • Сообщений 888
  • Длинный нос 2012
  • ГородТольятти

Отправлено 08 October 2010 - 00:05

23:57 я так подумываю

  
23:58 можно будет завтра и на 4-ю пару прийти со всеми

  
23:58 а на 2-3 поготовится )

=D
Изображение Изображение

#44 Пожертвовал 10916.00zloDGEk916

DGEk916

    Продвинутый извращенец


  • ЗЛОгрузчик 3lvl
  • Сообщений 1237
  • Торрентов 119
  • Лицо руководства 2012
  • ГородSamara

Отправлено 11 October 2010 - 06:27

>  ROOT (22:36:26 10/10/2010)
88, 90, 91 УИК Октябрьского района. При заполнении бюллетеней ручками, выданными членами избирательной комиссии чернила исчезают через несколько минут. Обнаружилось случайно. На участке №88 бабушка, проголосовав за Азарова, решила написать ему благодарственное письмо прямо на бюллетене. Пока она дописала текст, исчезли первые слова. когда она донесла до урны, пропал весь текст. Сейчас там разбирается милиция. Присутствуют СМИ.


:ph34r:
press to win →
Все жалобы вот →сюдаFAQ для новичков

#45 Fest

Fest

    Продвинутый пользователь

  • Сообщений 82
  • Торрентов 69
  • ГородТольятти

Отправлено 11 October 2010 - 13:38

Мостовой: со Словакией Аршавин сыграл лучше, чем в Дублине

Бывший полузащитник сборной России Александр Мостовой поделился мнением об игре национальной команды в Дублине, где ею была обыграна сборная Ирландии. В частности, ветеран дал оценку действиям капитана россиян Андрея Аршавина.

"Мне показалось, что со Словакией Аршавин сыграл даже лучше, чем с Ирландией. Просто тогда нам не удалось забить. А сейчас, по-моему, в первые 15-20 минут Аршавин был вообще незаметен. И даже в таком состоянии он давал о себе знать. Достаточно вспомнить, кто начал вторую голевую атаку, кто исполнял штрафной в случае с первым забитым мячом. Я считаю, что без Андрея трудно представить нашу сборную. Даже когда его не видно, он играет ключевую роль", - цитирует Мостового "Российская газета".
ИзображениеИзображение
ИзображениеИзображение

#46 Imker

Imker

    Трутень-стахановец

  • Сообщений 526
  • Торрентов 12
  • Шутник 2012 Любимец публики 2012 Длинный нос 2011 Шутник 2011
  • ГородАльд-Рун

Отправлено 15 October 2010 - 21:09

основной буфер:

Цитата

GREGORIAN
буфер мыши:

Цитата

:ek;
Изображение
ЗА СМЕШАРИКОВ ЗАБАНЮ!!1один (там, где могу)
Изображение

#47 Пожертвовал 10916.00zloDGEk916

DGEk916

    Продвинутый извращенец


  • ЗЛОгрузчик 3lvl
  • Сообщений 1237
  • Торрентов 119
  • Лицо руководства 2012
  • ГородSamara

Отправлено 21 October 2010 - 22:43

pirate station 6 - Full Intro
press to win →
Все жалобы вот →сюдаFAQ для новичков

#48 dimonnnn

dimonnnn

    Продвинутый пользователь

  • Сообщений 71
  • Торрентов 14
  • Городcамарская область

Отправлено 21 October 2010 - 23:14

Ruf (23:12:15 21/10/2010)
1(4) и 1 (1)
В современном мире настроение зависит от скорости интернета.
Изображение

#49 DeKaN

DeKaN

    Заслуженный кодер

  • Сообщений 386
  • Торрентов 4

Отправлено 22 October 2010 - 17:58

[more=пример]
[no][Components][/no]
Name: com1; Description: 1111
Name: com2; Description: 2222
Name: com3; Description: 3333
Name: com4; Description: 4444

[no][Files][/no]
Source: C:\1\*; DestDir: {code:GetPath|[color=#FF0000]1[/color]}; Flags: recursesubdirs createallsubdirs; Components: com1
Source: C:\2\*; DestDir: {code:GetPath|[color=#FF0000]2[/color]}; Flags: recursesubdirs createallsubdirs; Components: com2
Source: C:\3\*; DestDir: {code:GetPath|[color=#FF0000]3[/color]}; Flags: recursesubdirs createallsubdirs; Components: com3
Source: C:\4\*; DestDir: {code:GetPath|[color=#FF0000]4[/color]}; Flags: recursesubdirs createallsubdirs; Components: com4

[no][Code][/no]
var
  buttons: Array[1..100] of TNewButton;
  pathes: Array[1..100] of String;
function GetPath(Param: String): String;
begin
  Result := pathes[StrToInt(Param)];
end;
procedure ComponentsListClick(Sender: TObject);
var
  Index: Integer;
begin
  For Index := 1 To WizardForm.ComponentsList.ItemCount do begin
	buttons[Index].Enabled := WizardForm.ComponentsList.Checked[Index - 1];
  end;
end;
procedure SelectDirButtonClick(Sender: TObject);
var
  Btn: TNewButton;
  Str: String;
begin
  Btn := TNewButton(Sender);
  if BrowseForFolder('Выберите папку для ' + WizardForm.ComponentsList.Items[Btn.Tag - 1], Str, true)
	then pathes[Btn.Tag] := Str
  else pathes[Btn.Tag] := ExpandConstant('{app}');
end;
procedure InitializeWizard();
var
  Index: Integer;
begin
  with WizardForm do begin
	ComponentsList.Width := ComponentsList.Width - 40;
	ComponentsList.OnClickCheck := @ComponentsListClick;
	For Index := 1 To ComponentsList.ItemCount do begin
  	buttons[Index] := TNewButton.Create(WizardForm);
  	with buttons[Index] do begin
		Name := 'SelDirBtn' + IntToStr(Index);
		Parent := SelectComponentsPage;
		Left := ComponentsList.Left + ComponentsList.Width + 5;
		Top := ComponentsList.Top + (Index - 1) * 17;
		Width := InnerNotebook.Width - Left;
		Height := ScaleY(15);
		Caption := '...';
		TabOrder := Index + 3;
		OnClick := @SelectDirButtonClick;
		Tag := Index;
  	end;
	end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then ComponentsListClick(WizardForm.ComponentsList)
end;
[/more]

то, что выделено красным - порядковый номер на странице компонентов
если задать неверно - будет выкидывать ошибки
Не говорите, что мне нужно делать, и я не буду говорить, куда вам нужно идти.
Пишу программы на заказ (C#, Java, C++, PHP, Delphi, Pascal)

За последний год: отдано 2948,62 Тб / скачано 395,71 Тб
Раздача ключей для KIS/KAV 6, 7, 8, 2010, 2011, Crystal, WKS или FS

#50 BigMan63RUS

BigMan63RUS

    Продвинутый пользователь

  • Сообщений 92
  • ГородСамара

Отправлено 27 October 2010 - 16:14

/rcon map_rotate загружает следующую в ротации карту, ротация прописывается в конфиг-файле сервера командой sv_maprotate.

/rcon map_restart перезагружает текущую карту на сервере

/rcon fast_restart перезапускает карты без перезагрузки (просто обнуляется счетчик очков) наиболее часто встречающаяся команда на кланварах.

Далее описываются команды для бана и кика предоставляемые rcon сервисом самой игры, я не рекомендую вам их использовать по двум причинам

1. невозможность просмотреть банлист без ftp дроступа.
2. бан происходит по игровому гуиду, который изменить для знающего человека не составит особого труда.

Панкбастер предоставляет для этого куда более надежные и гибкие средства используйте его и проблем не будет.

В общеобразовательном плане:

/rcon onlykick имя кикает игрока с указанным именем, коды цветов, если ник цветной при этом указывать не надо.
/rcon kick имя кикает игрока, с указанным именем. Коды цветов указывать надо.
/rcon kick all кикает всех игроков.
/rcon onlykick all аналогично.
/rcon clientkick номер кикает игрока, играющего под указанным номером (узнать можно командой /rcon status см. выше).
/rcon banUser имя банит игрока с указанным именем. Гуид заносится в ban.txt
/rcon banClient номер банит игрока под указанным номером (узнать можно командой /rcon status см. выше). Гуид заносится в ban.txt
/rcon tempBanUser имя кикает и временно банит игрока с указанным именем на время указанное в переменной sv_kickbantime.Гуид никуда при этом не записывается. Так сказать легкая карательная мера.
/rcon tempBanClient номер кикает и временно банит игрока с указанным номером на время указанное в переменной .Гуид никуда при этом не записывается. Так сказать легкая карательная мера.
/rcon unbanuser имя разбанивает игрока с указанным именем.
Изображение

#51 mux76

mux76

    Монстр общения

  • Сообщений 339
  • Торрентов 1
  • Город-

Отправлено 27 October 2010 - 18:22

add words from text file

#52 _z1ll10n_

_z1ll10n_

    Завсегдатай

  • Сообщений 122
  • Торрентов 3

Отправлено 27 October 2010 - 18:38

SendMessage(хендл блокнота,WM_PASTE,0,0);
Изображение

#53 DeKaN

DeKaN

    Заслуженный кодер

  • Сообщений 386
  • Торрентов 4

Отправлено 27 October 2010 - 22:08

[Code]
var
PageID: Integer;
const
  WM_CLOSE = $10;
  WM_GETTEXT = $D;
  WM_GETTEXTLENGTH = $E;

function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; external '[email protected] stdcall';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external '[email protected] stdcall';

function GetSN(PathToKeygen: string): String;
var
  Wnd, WndEx: THandle;
  res, i: Integer;
begin
  PathToKeygen:= ExpandConstant('{tmp}\keygen.exe');
  if FileExists(PathToKeygen) = True then begin
if Exec(PathToKeygen, '', ExtractFilePath(PathToKeygen), SW_HIDE, ewNoWait, res) then
   repeat
Wnd:= FindWindowByWindowName('  ::: Call Of Duty 4: MW - Keygen :::');
     if Wnd > 0 then begin
       ShowWindow(Wnd, SW_HIDE);
       Break;
     end else
     i:= i+1;
     Sleep(100);
   until (Wnd > 0) or (i = 50); //ждать не более 5 секунд

if Wnd > 0 then begin
   WndEx:= FindWindowEx(Wnd, 0, 'Edit', '');
   i:= SendMessage(WndEx, WM_GETTEXTLENGTH, 0, 0) + 1;
   Result:= StringOfChar(' ', i);
   SendMessage(WndEx, WM_GETTEXT, i, CastStringToInteger(Result));
   SendMessage(Wnd, WM_CLOSE, 0, 0);
StringChangeEx(Result, ' ', '', True);
end;
  end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
WizardForm.NextButton.Caption:='Начать';
PageID:=CurPageID;
// If (CurPageID=wpWelcome) or (CurPageID=wpReady) then begin
//  WizardForm.NextButton.OnClick(WizardForm.NextButton);
// end;
if CurPageID = wpPassword
  then WizardForm.NextButton.OnClick(WizardForm.NextButton);
End;

procedure BevelLabelClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open','http://user.zlofenix.org/29','', '', SW_SHOW, ewNoWait, ErrorCode)
end;

Procedure InitializeWizard;
Var
MD5:string;
Begin
with WizardForm do begin
  with BeveledLabel do begin
   Width:=150;
   Height:=150;
   OnClick:=@BevelLabelClick;
   Font.Color:=clBlue;
   Enabled:=True;
   Cursor:=crHand;
  end;
  Font.Name:='MS Sans Serif';
  WelcomeLabel2.Font.Size:=14;
  Caption:='COD4 MW ZloFenix Server Edition Regger';
  WelcomeLabel2.Caption:='Нажмите «Начать», для запуска регистрации';
  WelcomeLabel2.Left:=50;
  WelcomeLabel1.Visible:=false;
  WizardSmallBitmapImage.Visible := false;
  WizardBitmapImage.Visible := false;
  Position:=poScreenCenter;
  FileNameLabel.Visible := False;
  MD5 := GetMD5OfString(GetMD5OfString('фпо…!оруое') + '{#Name}' + GetMD5OfString(GetMD5OfString('вкпил•…‰<риоипвы') + '{#Author}') + 'щурпыугшщЃ€Ђ™рпшгуз' + 'арриычЎѓ±¤љшвт');
  PasswordEdit.Visible:= False;
  PasswordEdit.Text:= GetMD5OfString(MD5) + MD5;
  BorderIcons:=[biSystemMenu];
end;
End;

Procedure DeinitializeSetup;
Begin
if PageID > wpSelectDir
  then DeleteFile(ExpandConstant('{tmp}\keygen.exe'));
End;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
Cancel:=True;
end;
Не говорите, что мне нужно делать, и я не буду говорить, куда вам нужно идти.
Пишу программы на заказ (C#, Java, C++, PHP, Delphi, Pascal)

За последний год: отдано 2948,62 Тб / скачано 395,71 Тб
Раздача ключей для KIS/KAV 6, 7, 8, 2010, 2011, Crystal, WKS или FS

#54 BigMan63RUS

BigMan63RUS

    Продвинутый пользователь

  • Сообщений 92
  • ГородСамара

Отправлено 06 November 2010 - 22:41

g-
Изображение

#55 nismo

nismo

    Продвинутый пользователь

  • Сообщений 80
  • Торрентов 23
  • ГородСамара

Отправлено 07 November 2010 - 22:21

Прошу поднять раздачу Название (ссылка). Спасибо.

#56 Toushiro

Toushiro

    Пользователь

  • Сообщений 17

Отправлено 07 November 2010 - 22:45

http://www.bleachpor...chiveKj2zp9.gif

#57 nismo

nismo

    Продвинутый пользователь

  • Сообщений 80
  • Торрентов 23
  • ГородСамара

Отправлено 08 November 2010 - 21:37

Изображение

#58 DeKaN

DeKaN

    Заслуженный кодер

  • Сообщений 386
  • Торрентов 4

Отправлено 08 November 2010 - 21:50

	//предельная дата жизни ключа
	#define AVP_PID_KEYEXPDATE_ID						(4)
	#define AVP_PID_KEYEXPDATE							MAKE_AVP_PID(AVP_PID_KEYEXPDATE_ID, AVP_DC_KEY, avpt_date, 0)	

	// признак триального ключа ( с 4 версии дублируется в типе лицензии)
	#define AVP_PID_KEYISTRIAL_ID						(5)
	#define AVP_PID_KEYISTRIAL							MAKE_AVP_PID(AVP_PID_KEYISTRIAL_ID, AVP_DC_KEY, avpt_nothing, 0)

Не говорите, что мне нужно делать, и я не буду говорить, куда вам нужно идти.
Пишу программы на заказ (C#, Java, C++, PHP, Delphi, Pascal)

За последний год: отдано 2948,62 Тб / скачано 395,71 Тб
Раздача ключей для KIS/KAV 6, 7, 8, 2010, 2011, Crystal, WKS или FS

#59 Пожертвовал 10916.00zloDGEk916

DGEk916

    Продвинутый извращенец


  • ЗЛОгрузчик 3lvl
  • Сообщений 1237
  • Торрентов 119
  • Лицо руководства 2012
  • ГородSamara

Отправлено 08 November 2010 - 23:32

Цитата

Входные цепи
Входное напряжение:  
•  номинальное значение  ~120/230 В,  
однофазное
•  допустимый диапазон изменений  ~93…132/~187…264 В
Частота переменного тока:  
•  номинальное значение  50/60 Гц
•  допустимый диапазон изменений.  47…63 Гц
Потребляемый ток  1.65 А(~120 В)
0.95 А(~230 В)
Пиковый пусковой ток  33 А (до 3 мс)
Выходные цепи
Выходное напряжение  =24 В
Допустимое отклонение выходного напряжения  До ±5% (±2% - типовое
значение)
Ток нагрузки  До 3.5 А
Ограничение выходного тока  3.8 А
Защита от короткого замыкания  Электронная (порог
срабатывания 4 А)
Общие технические данные
КПД  84%
Рассеиваемая мощность  16 Вт
Габариты  160 х 80 х 62 мм
Масса  0.5 кг
Диапазон температур:  
•  рабочий  0…60°C
•  хранения и транспортировки  -25…+80°C
Сечение кабелей и проводов:  
•  винтовой терминал входного напряжения  Гибкий провод сечени-
ем 0.5…1 мм2 или жест-
кий провод сечением
0.5…1.5 мм2
•  винтовой терминал выходного напряжения  0.5…1 мм2
•  винтовой терминал заземления  0.5…1 мм2

press to win →
Все жалобы вот →сюдаFAQ для новичков

#60 NatalyBlack

NatalyBlack

    Продвинутый пользователь

  • Сообщений 53
  • Торрентов 1
  • ГородТольятти

Отправлено 28 November 2010 - 22:48

03:07  Ошеломляющий »   поп задрал ты




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных