Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Найти иголку в стоге сена...   Найти похожие ветки 

 
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)

зато технических затрат - минимум ;)


 
SkyRanger ©   (2006-03-27 01:04) [41]

Так! Сначало грамотно ставим ТЗ!
Что у нас есть для того чтобы найти иголку. т.е. унас есть магнит или сеялка или или мужики за бутфлку или еще чего???


 
Nous Mellon_   (2006-03-27 01:07) [42]

Все просто -- достаточно сесть попой на этот стог сена, и по закону Мерфи, иголка тут же вопьется тебе в задницу.


 
Petr V. Abramov ©   (2006-03-27 02:07) [43]

begin...end ©   (26.03.06 22:19) [35]
 поддерживаю, ибо потом после этого задача сведется к "найти иголку в куче пепла", а это уже не наша предметная область :)


 
grisme ©   (2006-03-27 07:15) [44]


> А вдруг корова сдохнет? :P

Расчленить и найти в промежутке горло - желудок..8))))


 
Думкин ©   (2006-03-27 08:20) [45]

Прочитать Успенского "Вниз по волшебной реке". Или фильм одноименный посмотреть.


 
Думкин ©   (2006-03-27 08:21) [46]

Ой, а фильм то иначе называется.
"Там на неведомых дорожках", кажется.


 
TUser ©   (2006-03-27 09:29) [47]

Аналогичная задачка. Где-то на просторах России у Вас есть грузовик, наполненный смесью гальки и древесной стружки. Все хорошо перемешано. Как эту смесь разделить?

Зы. Вступительная задача на сообразительность для школьников на Летнюю Экологическую Школу.


 
antonn ©   (2006-03-27 09:54) [48]

GEN++ ©   (26.03.06 21:22) [31]
Сено (все или частями) поместить в воду: уголка утонет, сено - нет

утонет сено, промокнет и утонет...



Страницы: 1 2 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.58 MB
Время: 0.028 c
15-1142881239
Fl@sh
2006-03-20 22:00
2006.04.16
Indy (IdTCPServer & TIdTCPClient)


2-1144212439
al-al
2006-04-05 08:47
2006.04.16
Реестр


15-1143094094
__DATA__
2006-03-23 09:08
2006.04.16
Очистить Desktop после рисования на нем


2-1142847274
Sonnetrut
2006-03-20 12:34
2006.04.16
База данных - файл Excel (2)


2-1143631296
ANB
2006-03-29 15:21
2006.04.16
Как заставить срабатывать гор.кнопки Action только на своей форме