Клуб Любителей Секса (КЛС): Вот такой алгоритмик....

Вы не вошли [ Войти ]

Конференции · Поиск в отчетах · Поиск · Регистрация ·
Правила · FAQ · Кто онлайн · Пользователи

Литературное творчество и Юмор >> Анекдоты и Приколы

Новичкам: Правила КЛС
Список сокращений КЛС

Поиск отчетов по
параметрам девушек

Страницы: 1

NewUser

На форуме: 24 г 129 д
(с 24/07/2000)

Тем: 7
Сообщений: 37

Вот такой алгоритмик....
#22386 - 19/07/2001 13:30:13

...на Паскале...
Осталось только отладить ;)

Program SexSession;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}
Procedure Prepare;
Begin
____Find(House);
____Buy(Bottles);
____Buy(Zakus);
____Call(Friends);
____Call(Girls);
End;{ Prepare }
Procedure Drinks;
Begin
____Open(Bottles);
____Repeat
________Drink(Next(Gramms100));
________Zakus:=Eat(Next(Foods));
____Until TwoViewInEyes;
End;{ Drinks }
Procedure Dances;
Begin
____Music:=True;
____Call(OneGirl);
____Go(DancingRoom);
____With Music.Jump Do Begin
________If Girl(Drink)>Normal(Drink) Then
____________Begin
________________Touch(AssOfGirl);
________________Touch(BrestOfGirl);
____________End
________Else
____________Begin
________________Go(DrinkingRoom);
________________Let`s(Girl):=Drinks(More);
________________Return(DancingRoom);
____________End;
____End;
End;{ Dances }
Procedure Fuck( Who : Sex );
Var
____HowMany: LongInt;
Begin
____If WhoGirl Then Write('Are yor sodomite ??!');
____Find(DarkRoom);
____Close(Door_and_windows);
____If Not Find(BedInRoom) Then BedInRoom:=AnyTable;
____HowMany:=0;
____Repeat
________Call(Next(Who));
________Delete(DressOf(Who));
________Kiss(Lips,Brest,OtherPartsOfBody);
________Repeat
____________Asm
________________PUSH YourPenis
________________POP YourPenis
____________End;
________Until YouHaveOrgasm;
________Case HowMany of Inc(HowMany);
________If (HowMany mod 15 = 0) then Write('You are BIG man !!!');
____Until YourPenisStay;
End;{ Fuck }
Begin { Party - Main Program }
____Prepare;
____Drinks;
____If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
____Dances;
____Fuck(Girls);
____Go(AtHomes);
End.{ Main Program }

Действия:

Распечатать это сообщение

Информировать вас о новых ответах на это сообщение

Brigello

На форуме: 23 г 163 д
(с 20/06/2001)

Тем: 3
Сообщений: 70

Гео: Москва

Re: Вот такой алгоритмик.... [Re: NewUser]
#22395 - 19/07/2001 14:34:26

Программа конечно интересная, но учитывая используемый язык программирования, велик риск свалиться в переполнение стека!

Тут нужен только Assembler и SIMD инструкции!

А то push, pop - старо это и не современно...

Куда мощнее movq qword ptr[soulstore], mm1
movq mm5, qword ptr[soulstore]
femms

"Женщина - всегда зло, но дважды бывает хорошей: либо на ложе любви, либо на смертном одре..." (Проспер Мериме)

Сообщение изменил Brigello 19/07/2001 15:39.

--------------------

[ж]"Женщина - всегда зло, но дважды бывает хорошей: либо на ложе любви, либо на смертном одре..." (Проспер Мериме)[/ж]

Действия:

Распечатать это сообщение

Информировать вас о новых ответах на это сообщение

NewUser

На форуме: 24 г 129 д
(с 24/07/2000)

Тем: 7
Сообщений: 37

Дык.. [Re: Brigello]
#22402 - 19/07/2001 14:48:40

Так там самая главная часть на асемблере написана ;)
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;

Действия:

Распечатать это сообщение

Информировать вас о новых ответах на это сообщение

Brigello

На форуме: 23 г 163 д
(с 20/06/2001)

Тем: 3
Сообщений: 70

Гео: Москва

Re: Дык.. [Re: NewUser]
#22407 - 19/07/2001 14:58:00

Так вот тут-то и возможно переполнение стека, а как следствие Int 0E (для Protected Mode)...
После чего имеем Hlt и на пол-шестого!

"Женщина - всегда зло, но дважды бывает хорошей: либо на ложе любви, либо на смертном одре..." (Проспер Мериме)

--------------------

[ж]"Женщина - всегда зло, но дважды бывает хорошей: либо на ложе любви, либо на смертном одре..." (Проспер Мериме)[/ж]

Действия:

Распечатать это сообщение

Информировать вас о новых ответах на это сообщение

Страницы: 1

Дополнительная информация:

Модератор(ы): Совет Модераторов, Appo, crazysm, Вых, Косматый геолог, ЮристЪ

Распечатать тему

Права:
      Вы не можете открывать новые темы
      Вы не можете отвечать на сообщения других пользователей
      HTML вкл.
      Спецразметка вкл.

Рейтинг (оценка) темы:

Перейти в конференцию:

Служба техподдержки

Как разместить рекламу