информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Атака на InternetВсе любят медСтрашный баг в Windows
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / humor
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Я говорю, что не канает синтаксис ;-0 24.09.03 12:38  Число просмотров: 1560
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка>
> "Трахаться, пока стоит пенис", а не "трахаться до того,
> когда встанет пенис". А while - должен стоять вначале, ибо
> нельзя трахаться с лежачим пенисом. Хотя, вполне возможно,
> что процедуры Delete(DressOf(Who)); и
> Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние
> YourPenisStay... Вообще надо это все на Сях переписать!
> :)))
>
> bugfix - верен.
Не верен. Надо While переносить тогда наверх вместо repeat или юзать оператор not:

Until NOT YourPenisStay
<humor>
нашел тут у себя исходник... 23.09.03 12:46  
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
─ "Отфильтpованные шутки" (2:5053/7.10) ────────────────────── HUMOR.FILTERED ─
Сооб : 8 из 37
От : Tony Leontyev 2:5020/517.517 10 Ноя 01 01:33:51
Кому : All 11 Ноя 01 20:45:22
Тема : 4hF: Party.PAS
───────────────────────────────────────────────────────────────────────────────

Пожалуйста, присылайте форварды с Subj = 4HF
*──────────────────────────────────────────────────────────────────
* Area : NETMAIL.4HF (Netmail 4HF)
* From : Eugene O. Lebedev, 2:463/288.139 (11 Oct 29 15:27)
Идея стара как мир, но всё равно приятно вспомнить...

* Перемещено Eugene O. Lebedev (2:463/431.139) из
* Area : PVT.NIGHTWING (PVT.NIGHTWING)
* Обл. : RU.ANEKDOT (RU.ANEKDOT)
* От : Andrew Maltsev, 2:5015/124 (09 Окт 01 18:03)
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

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);
Buy(Drugs);
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 Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }


Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

Г Л О С С А Р И Й ( Б А З А Р И К )

Prepare - пpиготовления
Buy - кyпить
Drug - наpкотик
TwoViewInEyes - двоение в глазах
Touch - касание, пpикосновение
Ass - задница
Brest - сиськи
More - больше
Dark - темный
OtherPartsOfBody - дpyгие части тела
FaceDown - моpдой вниз (об стол)

=============================================================================
* Crossposted in PVT.LEOPOLD.FORWARDS
* Crossposted in 4HF
Как жизнь, All ?


Hу и всего вам доброго.
L.E.O. -==[КУРИТЬ - S U X X x...]==---==[Drink Team]==---==[Team Pricol TL]==-
... "Женщина-это человеческое существо,которое одевается,болтает и
раздевается"(C)В

дыp mailto:l_e_o_@chat.ru,l.e.o.@iname.com|http://l_e_o_.chat.ru|ICQUIN:9962645
* Оригиналь: NetMail=2:463/(288,253,468).139 * Pricol TL BBS list
(2:463/288.139)
*──────────────────────────────────────────────────────────────────

Luck n' Love,
Tony aka jet fraer //

--- Jenseits ...
* Origin: -=<<Graffiti ARTs>>=- // STARBASE // HEFFALUMP ()() (2:5020/517.517)
Kak to videl ekvivalent na perle. 01.10.03 19:26  
Автор: Shnurok Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Tolko tam prikolnei i vrode bez narkoti :-)
А компилировать его кто-нибудь пробовал? А то компилятор кучу неизвестных функций выдает... может какую библиотеку подцепить надо? 24.09.03 09:37  
Автор: DPP <Dmitry P. Pimenov> Статус: The Elderman
<"чистая" ссылка>
Читай внимательнее - там написано что исходники модулей буду в след выпуске, тока у меня его нету Ж( 24.09.03 09:43  
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
bugfix 23.09.03 21:17  
Автор: :-) <:-)> Статус: Elderman
Отредактировано 23.09.03 21:18  Количество правок: 1
<"чистая" ссылка>
> Procedure Fuck( Who : Sex );
> Var
> HowMany: LongInt;
> Begin
...
> 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;
~~~~~~~~~~~~
вместо until нужно while:
while YourPenisStay;
> End;{ Fuck }
bugfix провалился ;-) 24.09.03 11:10  
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка>
> вместо until нужно while:
> while YourPenisStay;
> > End;{ Fuck }
Неа. Цикл на Паскале можноначинатьс While. К примеру:
While true Do WriteLn('I''m lamer!');

А вот та же конструкция с использовал Repeat:
Repeat
WriteLn('I''m lamer!');
Until false;
Когда условие станет истинным, цикл кончается ;-)
Но концептуально bugfix верен :-) 24.09.03 15:55  
Автор: :-) <:-)> Статус: Elderman
<"чистая" ссылка>
Сорри, стал забывать Паскалевский синтаксис =(
Но в исходнике и так есть синтаксические ошибки - после строчки Until YouHaveOrgasm идет незакрытый case of...
А может быть, для этого исходника нужен специальный компилятор, поддерживающий такие вещи? ;)
в трех сосенках... 24.09.03 11:21  
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 11:36  Количество правок: 4
<"чистая" ссылка>
> > вместо until нужно while:
> > while YourPenisStay;
> > > End;{ Fuck }
> Неа. Цикл на Паскале можноначинатьс While. К примеру:
> While true Do WriteLn('I''m lamer!');
>
> А вот та же конструкция с использовал Repeat:
> Repeat
> WriteLn('I''m lamer!');
> Until false;
> Когда условие станет истинным, цикл кончается ;-)

"Трахаться, пока стоит пенис", а не "трахаться до того, когда встанет пенис". А while - должен стоять вначале, ибо нельзя трахаться с лежачим пенисом. Хотя, вполне возможно, что процедуры Delete(DressOf(Who)); и Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние YourPenisStay... Вообще надо это все на Сях переписать! :)))

bugfix - верен.
Я говорю, что не канает синтаксис ;-0 24.09.03 12:38  
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка>
> "Трахаться, пока стоит пенис", а не "трахаться до того,
> когда встанет пенис". А while - должен стоять вначале, ибо
> нельзя трахаться с лежачим пенисом. Хотя, вполне возможно,
> что процедуры Delete(DressOf(Who)); и
> Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние
> YourPenisStay... Вообще надо это все на Сях переписать!
> :)))
>
> bugfix - верен.
Не верен. Надо While переносить тогда наверх вместо repeat или юзать оператор not:

Until NOT YourPenisStay
Не понимайцен, махен клар, битте 24.09.03 13:07  
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 13:17  Количество правок: 1
<"чистая" ссылка>
> > "Трахаться, пока стоит пенис", а не "трахаться до
> того,
> > когда встанет пенис". А while - должен стоять вначале,
> ибо
> > нельзя трахаться с лежачим пенисом. Хотя, вполне
> возможно,
> > что процедуры Delete(DressOf(Who)); и
> > Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние
> > YourPenisStay... Вообще надо это все на Сях
> переписать!
> > :)))
> >
> > bugfix - верен.
> Не верен. Надо While переносить тогда наверх вместо repeat
> или юзать оператор not:
>
> Until NOT YourPenisStay

Чем while внизу отличается от until not ? Не считая замены репита на ду...
Не понимайцен, махен клар, битте 24.09.03 13:38  
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
> Until NOT YourPenisStay
>
> Чем while внизу отличается от until not ? Не считая замены
> репита на ду...
в паскале нету конструкции вида
repeat
...
while xxx
зато есть
while xxx do
begin

end;
и
repeat
...
until xxx
Зато есть еще do while ! 24.09.03 13:41  
Автор: whiletrue <Роман> Статус: Elderman
<"чистая" ссылка>
это тока в С есть do .. while 24.09.03 13:43  
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
Ой. Глянул щас - и правда нету 24.09.03 13:47  
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 13:53  Количество правок: 1
<"чистая" ссылка>
Тада сори за флейм

http://www.lam3.be/graphics/lamers.jpg
ламеры наверно писали, да и я паскаль уже давно не юзал серъезно так что не заметил Ж) 23.09.03 23:06  
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
Вот, для этого Дельфи годится лучше всего! 23.09.03 13:39  
Автор: Zef <Alloo Zef> Статус: Elderman
<"чистая" ссылка>
Вот, для этого Дельфи годится лучше всего! 23.09.03 14:53  
Автор: Ktirf <Æ Rusakov> Статус: Elderman
Отредактировано 23.09.03 14:53  Количество правок: 1
<"чистая" ссылка>
Перестань на Delphi наезжать! Я щас сюда "В лесу родилась елочка" на сях запощу! И "Отче наш" на Java. Для извратов все языки одинаково подходят :)
""Отче наш" на Java" 8-) Долго ржал! Стоит наезжать, для того, хотя бы, чтобы ты такие перлы выдавал! 24.09.03 03:58  
Автор: Zef <Alloo Zef> Статус: Elderman
<"чистая" ссылка>
Ok, stay tuned, следите за выпусками :) Только в своем архиве найду :) 24.09.03 16:17  
Автор: Ktirf <Æ Rusakov> Статус: Elderman
<"чистая" ссылка>
Елочку на C видел, а вот "Отче наш" запости - пообсуждаем :-) 24.09.03 15:05  
Автор: amirul <Serge> Статус: The Elderman
<"чистая" ссылка>
1  |  2 >>  »  




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 1 s   Design: Vadim Derkach