Главная страница
    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)

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


 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.56 MB
Время: 0.051 c
15-1143206524
raymond
2006-03-24 16:22
2006.04.16
Сайты по КПК (Pocket PC)


4-1138199340
Dyakon_Frost
2006-01-25 17:29
2006.04.16
Использование StartService


6-1136699997
ezorcist
2006-01-08 08:59
2006.04.16
Запретить показывать ошибку


2-1143693035
Sw
2006-03-30 08:30
2006.04.16
DBGrid


15-1143552114
Victor_t
2006-03-28 17:21
2006.04.16
Простенькая задачка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский