![]() |
![]() |
Дед Щукарь 07.04.2004 - 09:12 | Алгоритм вечеринки для программистов: |
Дед Щукарь 1 - 07.04.2004 - 09:13 |
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); |
Дед Щукарь 2 - 07.04.2004 - 09:14 |
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; |
Дед Щукарь 3 - 07.04.2004 - 09:15 |
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 } |
mae 4 - 07.04.2004 - 09:23 | Да, круто! Читать текст этой проги - всё равно что смотреть клип продиджы "смэк май бич ап" =)) |
nex 5 - 07.04.2004 - 10:18 | а в чём отличие от алгоритма вечеринки для непрограммистов? |
enum 6 - 07.04.2004 - 10:38 | А кто такой Normal? |
enum 7 - 07.04.2004 - 10:46 |
Очень много ошибок, несовпадение типов почти в каждой строке, компиляция не пройдет, ... а жаль... |
Дед Щукарь 8 - 08.04.2004 - 08:14 | enum-> Если бы еще и работало, я б уже Нобелевскую премию получил :)) |