Форум: "Прочее";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
ВнизНайти иголку в стоге сена... Найти похожие ветки
← →
ArtemESC © (2006-03-25 21:39) [0]Как реализовать сабж с минимальными техническими
затратами?
← →
Sergey Masloff (2006-03-25 21:40) [1]Стог поджечь. Пепел сквозь сито. Технических затрат минимум.
← →
ArtemESC © (2006-03-25 21:42) [2]Sergey Masloff (25.03.06 21:40) [1]
А еще проще?
← →
palva © (2006-03-25 21:44) [3]Электромагнит сильный, которым металлолом грузят. И стог вилами ворошить.
← →
Sergey Masloff (2006-03-25 21:48) [4]palva © (25.03.06 21:44) [3]
Минимальные технические затраты? ;-)
← →
Virgo_Style © (2006-03-25 22:00) [5]- Слушайте, мужики, надо там иголку найти, найдете - с меня бутылка.
Только следить надо, чтоб не подбросили, а то десяток найдут.
← →
Serg1981 © (2006-03-25 22:05) [6]Максимум физических, но минимум технических затрат: каждую сломинку руками переломить, одна из них не переломится :)
← →
palva © (2006-03-25 22:11) [7]> Virgo_Style © (25.03.06 22:00) [5]
найдете - с меня бутылка.
За бутылку они самоходный магнит пригонят. И рельсы проложат.
← →
artemESC © (2006-03-26 01:06) [8]>>Serg1981 © (25.03.06 22:05) [6]
Это слишком сложно не находите?
← →
grisme © (2006-03-26 06:55) [9]Написать поисковик, послать броадкаст стогу, на возврат иголки...Сам отдаст - как миленький..:)
← →
Бугага © (2006-03-26 07:24) [10]http://www.yandex.ru/yandsearch?text=%ED%E0%E9%F2%E8+%E8%E3%EE%EB%EA%F3+%E2+%F1%F2%EE%E3%E5+%F1%E5%ED%E0&stype=www
← →
Бугага © (2006-03-26 07:29) [11]Или просто найти на www.torry.net фриварную компоненту для поиска иголки в стоге сена :)
← →
Serg1981 © (2006-03-26 10:18) [12]А у нас в магазинах напряженка с иголками ? :)
← →
Гарри Поттер © (2006-03-26 10:39) [13]Запостить на дельфимастере: Требуется найти иголку, плачу 5wmz.
Найдется масса желающих показать свою крутизну и найдут забесплатно.
← →
grisme © (2006-03-26 10:59) [14]
for i:=1 to senoCount do
begin
if seno[i]="игла" then
begin
messagebox(0,PChar("Вот иголка! с тебя пицца!!!:) "),PChar("Ура, теперь наемся...)"),mb_iconinformation);
break;
end;
end;
Вот так.)
← →
grisme © (2006-03-26 11:08) [15]распишем, если первое не ясно или не конкретно.))
program Igolka;
var seno:array[1..1000] of string;
i:integer;
ruki:string;
begin
ruki:="";
for i:=1 to 1000 do seno[i]:="сенка"; {сенка-это составляющая стога:)}
seno[random(999)+1]:="игла";{какой-то урод ее туда кладет}
for i:=1 to 1000 do if seno[i]="игла" then break;
ruki:=seno[i]; {кладем ее в руки}
end.
← →
AlexWlad © (2006-03-26 11:31) [16]
> grisme © (26.03.06 11:08) [15]
И ты хочешь сказать, что ТЫСЯЧА соломинок - это СТОГ сена? Это мааааааленькая кучка. Более того, соломинки и игла - это сложные ОБЪЕКТЫ. Где они??? Не вижу!!!
← →
Бугага © (2006-03-26 11:40) [17]К тому же нет зависимости от различных факторов: степени опьянения, влажности воздуха, времени :)
← →
grisme © (2006-03-26 11:40) [18]AlexWlad © (26.03.06 11:31) [16]
Чел, ты помоему слишком...хм...ну это стеб ведь...:)
Просто если хочешь пошутить - шути, но не лечи меня тут, ok?:)
← →
AlexWlad © (2006-03-26 11:45) [19]
> grisme © (26.03.06 11:40) [18]
Звиняй, забыл просмайлиться...
← →
grisme © (2006-03-26 11:47) [20]AlexWlad © (26.03.06 11:45) [19]
Все нормально...:) Предлагай свой вариант с объектами и классами...:)))
← →
Геро (2006-03-26 11:48) [21]
interface
type
THayItem = class(TObject)
// ...
end;
TStraw = class(THayItem)
// ...
end;
TNeedle = class(THayItem)
// ...
end;
THayStack = class(TObject)
FItemsCount: Integer;
FItems: TObjectList;
function Get(Index: Integer): THayItem;
public
property ItemsCount: Integer read FItemsCount;
property Items[Index: Integer]: THayItem read Get; default;
function FindNeedle: TNeedle;
end;
implementation
function THayStack.Get(Index: Integer): THayItem;
begin
Result := THayItem(FItems[Index]);
end;
function THayStack.FindNeedle: TNeedle;
var
i: Integer;
begin
Result := nil;
for i := 0 to ItemsCount - 1 do
if Items[i] is TNeedle then
begin
Result := Items[i];
Break;
end;
end;
← →
Serg1981 © (2006-03-26 12:17) [22]
> function THayStack.FindNeedle: TNeedle;
> var
> i: Integer;
тут я чую типом Integer не обойтись, нужен int64 :)
← →
Юрий Зотов © (2006-03-26 12:22) [23]Методом Вейерштрасса: разделим стог сена пополам... и т.д.
← →
ArtemESC © (2006-03-26 12:24) [24]Юрий Зотов © (26.03.06 12:22) [23]
Лет через тысячу найдем...
← →
grisme © (2006-03-26 12:25) [25]Юрий Зотов © (26.03.06 12:22) [23]
> Как реализовать сабж с минимальными техническими
> затратами?
:) Погорбиться придется...а тут компьютер пусть горбится..:)
← →
antonn © (2006-03-26 13:07) [26]рентгеном просветить стог:)
по снимкам следовать дальше
← →
Parus © (2006-03-26 14:17) [27]Заходишь на Http://www.STOG.ru
Набираешь :"ИГОЛКА"
и она найдена!
← →
Parus © (2006-03-26 14:19) [28]Ой извините а такой сайт есть: Http://www.STOG.ru
он Без поиска!
← →
VirEx © (2006-03-26 17:47) [29]
> [28] Parus © (26.03.06 14:19)
> Ой извините а такой сайт есть: Http://www.STOG.ru
> он Без поиска!
значит сабж нерешаем
← →
Zeqfreed © (2006-03-26 18:14) [30]
> он Без поиска!
http://www.stog.ru/search.aspx
А вот http://haystack.com/ действительно без поиска пока что :)
← →
GEN++ © (2006-03-26 21:22) [31]Сено (все или частями) поместить в воду: уголка утонет, сено - нет
← →
palva © (2006-03-26 21:35) [32]А потом развести руками и сказать: "Она утонула"
← →
Юрий © (2006-03-26 21:59) [33]
> Сено (все или частями) поместить в воду: уголка утонет,
> сено - нет
В принципе можно, только сено надо будет шевелить... Спецшевелилкой!
Иначе она так просто не провалится, всё таки вес то у неё небольшой.
← →
Карелин Артем © (2006-03-26 22:04) [34]Сено бросать с высотного дома на асфальтированную площадку в ветер. Сено унесет ветер, иголка упадет прямо вниз
← →
begin...end © (2006-03-26 22:19) [35]Поджечь кучу. Сено сгорит, а иголка — нет.
← →
ArtemESC © (2006-03-26 22:29) [36]Слушайте, вам что сено не жалко?
← →
Кручен-Верчен © (2006-03-26 22:45) [37]Если уж очень нужна иголка, то можно отдать сено коровам, а потом искать в том, во что это сено превратилось. Объем работы, я думаю, будет значительно меньше. :)
← →
Yeg (2006-03-26 22:47) [38]А вдруг корова сдохнет? :P
← →
Макс Черных © (2006-03-26 22:51) [39]Удалено модератором
← →
Дядя (2006-03-26 22:53) [40]> [38] Yeg (26.03.06 22:47)
зато технических затрат - минимум ;)
Страницы: 1 2 вся ветка
Форум: "Прочее";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 0.056 c