Вверх ↑
Этот топик читают: Гость
Ответов: 16446
Рейтинг: 1210
#61: 2011-05-15 10:09:21 ЛС | профиль | цитата
Roma писал(а):
На второе место может потянет и эта схема
Меня это совершенно не колышит.
Просто предвидел все возражения.

На будущее : Условия задачи должны быть четко сформулированы.
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1321
Рейтинг: 37
#62: 2011-05-15 10:10:50 ЛС | профиль | цитата
Tad, уже добавил


карма: 0

0
Ответов: 16446
Рейтинг: 1210
#63: 2011-05-15 10:17:19 ЛС | профиль | цитата
Tad писал(а):
уже добавил
Не добавлять надо после пятой страницы, а начинать надо с четкой постановки с первой.
Специально для этого и применил IC.
------------ Дoбавленo в 10.17:
Roma писал(а):
А вы просто представьте что это идеальный алгоритм
Roma, не могу я представить, что это идеальный алгоритм. Такой алгоритм разве что в страшном сне приснится.
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1761
Рейтинг: 158
#64: 2011-05-15 14:47:40 ЛС | профиль | цитата
Решение задачи №3 в аттаче.
карма: 5

1
Голосовали:Roma
Ответов: 1321
Рейтинг: 37
#65: 2011-05-15 14:48:24 ЛС | профиль | цитата
Внимание
Ответы принимаются до 23.00
Затем следует окончание соревнования №3
карма: 0

0
Ответов: 3464
Рейтинг: 233
#66: 2011-05-15 18:09:49 ЛС | профиль | цитата
code_23961.txt
------------ Дoбавленo в 18.06:
Просто так
------------ Дoбавленo в 18.09:
Add(MainForm,2953706,336,364)
{
BorderStyle=3
Position=1
link(onCreate,15053634:doRandomize,[(380,384)(380,342)])
}
Add(Button,12889080,245,322)
{
Left=5
Top=10
Width=115
Caption="Заполнить массив"
link(onClick,8973692:doEvent1,[])
}
Add(ListBox,14809461,469,329)
{
Left=130
Top=10
Width=260
Height=260
}
Add(Button,990649,413,434)
{
Left=5
Top=35
Width=115
Height=55
Caption="Сортировать и найти минимум и максимум"
link(onClick,8163180:doSort,[])
}
Add(Random,15053634,392,329)
{
Min=-100
Max=500
link(onRandom,14806759:doWork2,[])
}
Add(For,3168423,336,329)
{
End=9
link(onEvent,15053634:doRandom,[])
}
Add(Label,13541956,602,490)
{
Left=10
Top=100
Width=58
Height=17
Caption="Минимум: "
}
Add(Label,13820053,693,448)
{
Left=10
Top=125
Width=64
Height=17
Caption="Максимум: "
}
Add(Hub,8973692,287,322)
{
link(onEvent1,2716009:doWork2,[(323,328)(323,315)(235,315)(235,420)(428,420)(428,342)])
link(onEvent2,3168423:doFor,[])
}
Add(ArraySort,8163180,483,434)
{
ArrayType=2
link(onEndSort,6222988:doEvent1,[])
link(Array,10540688:Var2,[])
}
Add(ArrayEnum,4620704,567,441)
{
link(onItem,4960085:doEvent1,[])
link(onEndEnum,13010695:doRead,[(605,454)(605,485)(457,485)(457,496)])
link(Array,8163180:ArraySort,[(573,422)(558,422)(558,479)(489,479)])
}
Add(HubEx,14806759,448,329)
{
link(onEvent,14809461:doAdd,[])
}
Add(Hub,6222988,525,434)
{
link(onEvent1,2716009:doWork3,[(551,440)(551,392)(452,392)])
link(onEvent2,4620704:doEnum,[])
}
Add(HubEx,2716009,448,336)
{
link(onEvent,14809461:doClear,[])
}
Add(GetDataEx,10540688,483,406)
{
link(Data,14809461:Array,[])
}
Add(FormatStr,8780165,546,490)
{
Mask="Минимум: %1"
link(onFString,13541956:doText,[])
}
Add(ArrayRW,13010695,469,490)
{
Index=Integer(0)
link(onRead,8780165:doString,[])
link(Array,10540688:Var1,[(475,411)])
}
Add(FormatStr,2937173,637,448)
{
Mask="Максимум: %1"
link(onFString,13820053:doText,[])
}
Add(Hub,4960085,609,441)
{
link(onEvent1,14806759:doWork3,[(636,447)(636,317)(452,317)])
link(onEvent2,2937173:doString,[])
}


------------ Дoбавленo в 18.09:
Так лучше
карма: 0

0
файлы: 1code_23961.txt [2.5KB] [147]
Ответов: 1321
Рейтинг: 37
#67: 2011-05-15 18:20:29 ЛС | профиль | цитата
Ivann, если ты просто так схему прислал ,то схема не плохая
А если для соревнований - смена алгоритма - не принято
карма: 0

0
Ответов: 1073
Рейтинг: 76
#68: 2011-05-15 18:29:46 ЛС | профиль | цитата
[offtop]Хы, условия вроде понятны. Не соглашусь токо с алгоритмом, алгоритм менять можно было бы и разрешить, особенно если предложенный, раз в -дцать качественней и быстрей.
Единственное что не допускать использование сторонних компонентов и соответственно IC.

[/offtop]


карма: 0

0
Ответов: 1321
Рейтинг: 37
#69: 2011-05-15 18:35:32 ЛС | профиль | цитата
[flood]tom-it, сменить алгоритм - слишком просто, легче чем оптимизировать[/flood]
карма: 0

0
Ответов: 16446
Рейтинг: 1210
#70: 2011-05-15 18:42:26 ЛС | профиль | цитата
tom-it писал(а):
Единственное что не допускать использование сторонних компонентов и соответственно IC.
чему соответственно ? Сторонним компонентам ?
IC полноправный компонент. И очень печально, что не все им умеют пользоваться.Может быть поэтому и выступают против.
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1073
Рейтинг: 76
#71: 2011-05-15 18:46:16 ЛС | профиль | цитата
[offtop]Оптимизация тоже не маловажный фактор схемостроения, но для новичков неплохо бы еще научится строить оптимальные алгоритмы.
Я вспоминаю себя в первые дни знакомства со средой и теперь глядя на свои старые схемы сам шарахаюсь.
Из 200 компонентов использованных в то время, 150 можно выбросить.
------------ Дoбавленo в 18.46:
Tad писал(а):
IC полноправный компонент

Я имел ввиду менять алгоритм не с помощью дополнительно написанного кода.
Ведь в таком случае ктото набросает 50 компонентов, а другой напишет один IC выполняющий действия 50-ти компонентов. [/offtop]
карма: 0

0
Ответов: 1321
Рейтинг: 37
#72: 2011-05-15 18:58:30 ЛС | профиль | цитата
Tad, я за IC
но Ravilr против
Я был бы счастлив использовать IC во всех своих программах
------------ Дoбавленo в 18.52:
Наверное надо добавить ещё один тип контеста
"Оптимизация алгоритма"
------------ Дoбавленo в 18.58:
Как я знаю Ravilr и не знает IC
карма: 0

0
Ответов: 3464
Рейтинг: 233
#73: 2011-05-15 19:04:31 ЛС | профиль | цитата
Roma писал(а):
не знает IC

Не люблю такую фразу. Мне кажется лучше "не знает Delphi"
Roma, Откуда такие выводы?
карма: 0

0
Ответов: 1073
Рейтинг: 76
#74: 2011-05-15 19:06:13 ЛС | профиль | цитата
[offtop]
Roma писал(а):
Как я знаю Ravilr и не знает IC

Roma это не удивительно, здесь многие не знают IC и Delphi в целом. И зачастую не потому что лень учить, а потому что времени не хватает.
Вот пришел с работы и перед тобой выбор:

   сидеть за компом, читать книжки, учить програмирование
   лечь на диванчик и посмотреть телек с бутылочкой пивка

Учитывая что ввесь день на ногах возле станка проторчал как ты думаешь кто что выберет? [/offtop]
карма: 0

0
Ответов: 1321
Рейтинг: 37
#75: 2011-05-15 19:18:24 ЛС | профиль | цитата
tom-it, логично
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)