Алгоритм вечеринки для программистов...

Список разделов Общие разделы Юмор

Описание: Расскажите свою смешную историю, ваш самый любимый анекдот...
Модератор: Nere1D

Сообщение #1 Werdis » 19.11.2005, 23:32

<b>Алгоритм вечеринки для программистов...</b>

Program Party;
Uses Vine, Food, Condoms;
{$I Variable.Pas}
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Food);
Call(Friends);
Call(Girls);
End;{ Prepare }
Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Food:=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(BreastOfGirl);
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,Breast,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 }

<i>http://www.roboclub.ru/forum/tex/exp_9134.html</i>
В споре рождается истина. © Сократ
Тогда зачем тратить время??? Werdis © 2010
Werdis M
Автор темы, Майор
Майор
Аватара
Возраст: 33
Откуда: Слуцк

Сообщение #2 Nere1D » 21.11.2005, 04:03

что-то я в этом не сильно соображаю...
Бо я табе з-пад шыбеніцы кажу, Народзе, што тагды толькі зажывеш шчасліва, калі над табою Маскаля ўжэ не будзе. Кастусь Каліноўскі
Nere1D
Полковник
Полковник
Аватара
Возраст: 29
Откуда: Слуцк

Сообщение #3 Зной » 21.11.2005, 14:59

Ужас какой-то... мне кажется, что большинство людей форума, как и я, мало чего в этом поймут!
2 Вердис: А на русском можно?
Дьявол должен быть красивым...ибо обязан соблазнять!
Зной M
Подполковник
Подполковник
Аватара
Возраст: 31
Откуда: Слуцк-Минск

Сообщение #4 Kron » 22.11.2005, 13:04

:)) срочно требуется переводчик! :))
«Человек без врагов ничего не стоит» (с)
Kron
Подполковник
Подполковник
Аватара

Сообщение #5 Werdis » 22.11.2005, 21:39

Да-а-а...
Похоже в этом только VEG и Никита Лесников разберутся...
Насчет перевода - не знаю... Как-то тупо все получится... Весь прикол пропадет...

P.S. Хотя может на днях и попробую...
В споре рождается истина. © Сократ
Тогда зачем тратить время??? Werdis © 2010
Werdis M
Автор темы, Майор
Майор
Аватара
Возраст: 33
Откуда: Слуцк

Сообщение #6 Vodka » 22.11.2005, 21:52

Werdis, про меня забыл!
Автор благодарит алфавит за любезно предоставленные буквы.
Vodka M
Майор
Майор
Возраст: 29
Откуда: Слуцк

Сообщение #7 Зной » 23.11.2005, 13:02

Вы знаете... сел набрался терпения и всё прочитал от корки до корки... Всё понял... немного посмеялся... но весь юмор оказался только в том, что практически порно сцена написана на языке програмирования или на чём-то похожем... (блин пришлось школьные знания вспоминать)
Дьявол должен быть красивым...ибо обязан соблазнять!
Зной M
Подполковник
Подполковник
Аватара
Возраст: 31
Откуда: Слуцк-Минск

Сообщение #8 naemnik » 23.11.2005, 19:53

А может мне на С++ написать? Но в общем понятно, хотя язык мне не очень знаком.
Я все сказал! Хоуг!
naemnik M
Старший лейтенант
Старший лейтенант
Аватара
Возраст: 30
Откуда: Слуцк-Минск


Вернуться в Юмор

Кто сейчас на форуме (по активности за 10 минут)

Сейчас этот раздел просматривают: 1 гость