Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 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
2-1143721976
Scavenger
2006-03-30 16:32
2006.04.16
RadioGroup


1-1141660248
Алик
2006-03-06 18:50
2006.04.16
Быстро выполнение FillRect


6-1136649778
Роман Снайпер
2006-01-07 19:02
2006.04.16
Перехват сетевых обращений программ


15-1143442543
NightLord
2006-03-27 10:55
2006.04.16
Сноведения


8-1132159663
Neville
2005-11-16 19:47
2006.04.16
Как остановить звук (Wave)?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский