Улыбнитесь! ;-)

click_and_die
Петросяна ненавижу!!

 

хе-хе, не встречал это мы тут вчера придумывали

еще вариант: Винни-Пох

 

im1111
ага.
Тож на дух не переношу.

У него в самом начале хорошие монологи были а щас - фтопку фсе
Да и вообще современные юмористы --- по ним GHAZEN WAGEN плачет

 

... а филин был лентяй и тунеядец, ибо сказано в имени его: "Пох-Пох"

 

Забава для особо одаренных: http://www.ra-obraz.ru/aguanta2.htm

 

гыы... Дальше не стал, надоело.

---------------------------
Microsoft Internet Explorer
---------------------------
You hold 187.941 seconds... salutations Fp
---------------------------
ОК
---------------------------

 

ptech
походу на первом пне апплеты тормозят...

 

206.131

пилоты америки мастдай

 

click_and_die ptech Вы как так делаете? у вас движение со временем ускоряется?

 

Да. ))

 

asd
ты же программист!
Найди закономерность и будет тебе счастие

 

asd
Ага. И мозг отключается)))))))

click_and_die
---------------------------
Microsoft Internet Explorer
---------------------------
You hold 218.274 seconds... salutations Fp
---------------------------
ОК
---------------------------
млин, правой кнопкой запорол((((

 

asd

Исходник же можно посмотреть

 

Негативное управление

 

фточку! йа тоже)))

 

ДжорджБуш

 

Program Party;
Uses Vine, Zakus, Condoms;

{$I Variable.Pas}

{ Файл с описаниями пеpеменных,типов и дpyгих ф-ций и }
{ пpоцедyp, а также модyлей Vine, Zakus и Condoms }
{ - в одном из следyющих выпyсков CAD/CAM NEWS. }

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(BreastOfGirl);
End
Else Begin
Go(DrinkingRoom);
Lets(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End;{ Dances }

Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl 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 }

Обpатите внимание, что кpитический yчасток выписан на асме.

 

Про флаг переполнения забыл.

ListIndexIsOutOfBoundsException Ибо OtherParthsOfBody - массив или перечисляемый тип.

NullPointerException и MethodNotFoundException сам знаешь почему

 

Я это с фидошки перепечатал, вот тольк это не понял
Case HowMany of
Inc(HowMany);

разве так можно ?

 

нет