Если очень хочется...

еще, детка! не останавливайся! целуй меня воздушно в лоб... :-d

вырвали((( кровь идет немного и назло есть так охото))))

:ultra: :-D

При приянятии решения предлагаю использовать следующую процедурку)) :
procedure КакПоступить(СилаХотения,НРБЧНС,Последствия,КакПоступить,ВыМужчина);
//Вначале объявим переменные, которые будут участвовать в нашей процедуре по поиску решения

var
СилаХотения : integer; //Сила хотения по 100 бальной шкале
НРБЧНС: integer; //НеприятноРасстраиватьБлизкогоЧеловекаНаСколько? По 100 бальной шкале.
Последствия: integer; //Негативные последствия данного поступка, по 100 бальной шкале
КакПоступить: boolean; // True - хотелка важнее, False - близкий чел важнее; Рассчитывается в ходе работы программы
ВыМужчина: integer; // По 100 бальной шкале, если 0 – вы женщина, если 100 – вы мужчина-шовенист))

//Теперь непосредственно сам алгоритм расчета
begin
case ВыМужчина of
95..100: КакПоступить:=True;
70..94: if 1,15*СилаХотения < НРБЧНС+Последствия then КакПоступить:=False;
30..69: if СилаХотения < НРБЧНС+Последствия then КакПоступить:=False;
0..29:
begin
Randomize; if Random(2) = 1 then КакПоступить:=True else КакПоступить:=False //Random(1) – выдает случайное число от 1 до 2
end;
end;

//Теперь выведем результаты расчетов на экран:
if КакПоступить = True then MessageDlg('Ваше хотение самое главное в этой жизни, вперед!', mtInformation, [mbOK], 0)
else MessageDlg('Поздравляю, возможно вы адекватный человек, уважающий чувства других. В данном случае вам лучше наступить на горло своей хотелке', mtInformation, [mbOK], 0);
end;

Фотография из Фотогалереи на E1.ru

http://www.sk-master.ru/tmp/vredina.exe - качайте...


[Сообщение изменено пользователем 21.04.2008 14:42]

если очень ъочется, можно сделать и никому про это не сказать, правдо веть? :-)

но может так случиться что тайное станет явным. где та грань которая уравновесит риск того что об этом узнают и желание сделать то что очень хочется.

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

знания половым путем не передаются (с)

Близких расстраивать нельзя
:-)

:-)

знания о половых путях как раз и передаются половым путём.

:-d
пойдешь ко мне программером?:-d
превед:-)

привед :-) Думаю, мне надо еще потренироваться... ;-) Сейчас проверял алгоритм и нашел ошибку... :-d В начале, КакПоступить нужно присвоить значение True, либо так
70..95 if 1,15*СилаХотения < НРБЧНС+Последствия then КакПоступить:=False
else КакПоступить:=True ;
30..70 if СилаХотения < НРБЧНС+Последствия then КакПоступить:=False
else КакПоступить:=True ;

Вообще интересно, кроме тебя, еще, хоть кто-нить позырил че там написано?! В принципе ведь все прозрачно для обыденного понимания, если хоть немного знать английский :-) Ну а чтобы знать английский делюсь еще одной своей суперразработкой, пользуйтесь кто хочет)
http://www.sk-master.ru/tmp/VocubularyDist.exe
:-)

Фотография из Фотогалереи на E1.ru

[Сообщение изменено пользователем 21.04.2008 13:12]

Ну вот, реализовал вышеописанный код.... Пргограмма бесплатная, принимаются предложения по доработке и все такое... :-D
Скачать можно здесь:
http://www.sk-master.ru/tmp/vredina.exe


Фотография из Фотогалереи на E1.ru

:-D

:-D

Если нельзя, но очинь хочецца, то МОЖНА!!!!

етим и рукаважус.... :-D

Вот к чему приводит безделье на работе)) Иногда такое исполнишь, что сам себе удивляешься :-D



мля... программ сцуко несовершенна))), хотя...


[Сообщение изменено пользователем 21.04.2008 14:32]

расскажи мне о своюх желаниях, деттка! :mad:

жгунишко :-d

Андрей, думаешь в жизни можно посчитать все? Давай ты будешь моей ясновидящей, а то я в их пассы руками не верю, а тут все по уму алгоритм все дела :-d

:-D Сочту за честь) А вообще в алгоритм уложить можно многое, вопрос лишь в том, что совершенный алгоритм слишком дорого стоит, кроме того лучший программист, конечно, Бог, т.е. ты права... ;-)

[Сообщение изменено пользователем 21.04.2008 14:44]

может я игоистка...но мне кажется любой человек думает только о себе впервую очередь и делает как ему удобно... просто на автомате...но некоторые и со зла или еще с чего угодно...вопчем не по добру...а я вопче никогда не думаю а просто все как то получается и усе...ну если это не очень что то серьезное...хотя....все равно все получается так КАК ОНО ПОЛУЧАЕТСЯ...и вы считаю все равно сделаете так КАК СДЕЛАЕТЕ :-) ;-)

всеже Random, очень верная часть кода в отношении девушек :-D

понимаешь какое дело, иногда, думая о себе, я поступаю вопреки своим первичным желаниям, т.е. видеть близких счастливыми, а не расстроенными - это ведь тоже желание?! Другое дело, что для одних ценность состояния духа близких стоит большего, для других меньшего, возможно для тебя меньшего....

плюс миллион....
вот я и не могу понять тех у кого состояние духа близкого, мотивируется тем что "тебя это не касается"...
мне кажется касается все и прежде чем что то сделать пять раз подумай, а хотел бы ты чтобы так поступили с тобой?
Есть конечно другая сторона медальки в ней участвуют черты характера, что для одного смерть - другому смекуёчки... А тут как быть? :-)

сейчас придумаю код :-D ;-)

:-D :-D :-D а чувства туда вписываются? в эти алгоритмы? ;-) по моему эта переменная не имеетединиц...

дак это все понятно но и близкий человек...тоже разный бывает...если он полный нуль как человек дак и ты думаю не будешь на себе волосы рвать...хотя по первости может и такое быть :-) ;-)

А такое бывает?!? 0_о