Форум сети EciлNet

http://forum.esilnet...pic=2370&st=280

[TerkiN_Is_LegenD :sorry-1:

http://www.zaycev.net/

uses CLXChildWin, CLXAbout;

procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;

procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if OpenDialog.Execute then
CreateMDIChild(OpenDialog.FileName);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;

end.

5. Сортировка Шелла
Идея заключается в переупорядочении файла таким образом, чтобы придать ему следующее свой-
свойство: совокупность h-ых элементов исходного файла (начиная с любого) образует отсортированный
файл. В таком случае говорят, что файл h-упорядочен {h-sorted). Другими словами, //-упорядоченный файл представляет собой h независимо отсортированных взаимно проникающих друг в друга файлов. В
процессе h-сортировки при достаточно больших значениях h можно менять местами элементы массива,
расположенные достаточно далеко друг от друга, и тем самым ускорить последующую h-сортировку при меньших значениях h. Использование такого рода процедуры для любой последовательности значений h, которая заканчивается единицей, завершается получением упорядоченного файла: именно в этом и заключается суть сортировки методом Шелла.
Последовательность шагов 1 4 13 40 121 364 1093 3280 9841 ..., в которой соотношение соседних шагов составляет приблизительно одну треть, была рекомендована Кнутом в 1969 г. Она просто вычисляется (начав с 1, получить значение следующего шага, умножив предыдущее значение на 3 и добавив 1) и обеспечивает реализацию сравнительно эффективной сортировки даже в случае относительно больших файлов.


это я к госам готовлюсь
Сообщение отредактировал master_of_puppet: 08 июня 2008 - 00:39

встретились как-то любовь и дружба. Любовь спросила- зачем на свете нужна ты, если есть я? Дружба ответила ей- чтоюы оставлять улыбку там, где ты оставляешь слезы. Я очень рад, что у меня есть ты!=))Сегодня день друзей. Пришли это,всем своим друзьям и мне тоже незабудь.Если вернется 5 ты хороший друг,а 8 ты супер мега человек))

10. Куба

lveR~

LeeLA

1045-1090-6246-8353-3166-2968
цифорки какие то...

мужчин еще мальчиками приучают подчиняться женщинам


это не моя мысль

Photoshop 8 CS

............./ґЇ/)..............(\Ї`\
............/....//..............\\....\
.........../....//................\\....\
...../ґЇ/..../ґЇ\............../Ї` \....\Ї`\
.././.../..../..../.|_......._|.\....\....\...\.\..
(.(....(....(..../..)..)…...(..(.\....)....)....).)
.\................\/.../......\...\/................/
..\.................. /.........\................../
....\................(...........).............../
......\..............\.........../............./

Система Планеты и станции Цены за 1 ед (покуп)
Краа Гаалдок Продовльствие 14
Медикаменты 14
Техника 37
Роскошь 86
Минералы 5
Алкоголь 15
Оружие 42
Наркотики 169

Краа Гаалдок Продовльствие 16
Медикаменты 18
Техника 36
Роскошь 103
Минералы 6
Алкоголь 24
Оружие 47
Наркотики 129





О_о, это я таблицу по косм рейнджерам составлял
пока не узнал что цены там тоже меняюццо :smile262: на гаалдоке кризис епть

николь Ричи

теряю
:smile272:

{Lena}{Deema}{umka}{Rinat}{TaReN}{Таня}{VIP}{ksyushe`ka}{Trane999}{_alegra}{КаМиКаDЗе}{Alex}{Jason}{hop}{Dikeri}{SMERSH}{Milena}{
auron}{ALinchik}{Wri3TerZzz}{al3333}{Jambo}{DakE}{Amir}{Leela}{GLUk}{Nimfetka} {John[X]}{nicki}{Elvis}{КНО5КА}{Gilmor}{Flash}{Deko}{E1emenT}{STONE}{LeShkA} {Nika}{Sh@rk}{EvgeN}{Laim}








:smile127:

<KHO5KA>