Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Общие » Юмор » Юмор для програмистов

Модерирует : Dekker

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

GGBG

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
http://www.cs.bgu.ac.il/~ygleyzer/get-file.php?file=misc/texts/Party%20Algorithm.html
 
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 }

Всего записей: 99 | Зарегистр. 19-07-2003 | Отправлено: 00:36 30-03-2004
Sleepwalker



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
да е-мае... сколько можно одно и то же перекладывать из конфы в конфу...
 
хоть бы че-нить новенькое...

----------
...или я ничего не понимаю в этой жизни... или понимаю слишком хорошо...

Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 14:07 30-03-2004
dacuan

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Где-то из opennet.ru, если было, не пинайте
 

Цитата:
 
Date: Sat, 26 Jan 2002 17:34:37 +0300
From: "Leo V. Mironoff" <Leo.V.Mironoff@f293.n5020.z2.fidonet.org>
Subject: 4hf
 
 Area : .4HF
 From : Sergey Prohorenko (2:463/397@FidoNet.org), Sun Dec 09 2001 00:53
??????????????????????????????????????????????????????????????????????????????
* Из эхи  : PVT.KPI.STUDENTS (ECHO FROM MY FRIEND)
* Автор   : Maxim Lanovoy, 2:463/431.12 (03 декабря 2001 г., 22:54)
* Адресат : All
* Тема    : Вот в каком виде надо сдавать преподам программы :))))
 
 
 
#include <stdio.h>
#include <stdlib.h>
 
#define m(x)(x<0?-1:!!x)
#define g tj()-J
#define a(x)(x<0?-x:x)
#define h(x)((x)<=K?x:N-(x))
#define f 9999
#define A return
#define H printf(
#define R double
#define U int
#define V for
#define b else
#define u while
#define B if
U v,w,Y= -1,W,J,p,F,o=f,M,N,K,X,YY,_,P[f],s(); typedef U(*L)(); L q[f]; tj(){
U S=m(v)+(m(w)<<K); B(!S)A J; V(v=W+S; v!=J&&!q[v]; v+=S); A v; } k(){ _=K; A
 
v?a(v)>1||w-Y||!q[J]:(w-Y&&(w-Y*2||q[W+Y*(N+1)]|| (J>>K)-K+(Y-1)/
v?a(v)>2))||q[J];
 
} z(){ _=5; A v*w||g; } e(){ _= -2;
A(v*v*v-v||w*w*w-w)&&(J-W-2||(W&N)-4||(W>>K!=(Y-1?N:0))||
q[W+1]||q[W+2]||q[W+K]!=z||P[W+K]*Y<0); } R VR(){ int PZ=0x7fff;
A(R)(rand()&PZ)/(R)PZ; } l(){ _=K+1; A(v*w&&a(v)-a(w))||g; } R UC(){ R i=0,d;
u((i+=d=VR())<1.0); A d; } c(){ _= -11; A a(v)-a(w)||g; } I(ur,n,x){ W=ur;
J=n; B(P[W]!=Y||P[J]==Y)A J+1; v=(J&N)-(W&N); w=(J>>K)-(W>>K); A
q[W]()||(x&&QL(W,J,s)); } TT(W){ v=w=0; A q[W]()+K; } s(){ U j= -1,i; Y= -Y;
V(i=0; i<M; ++i){ B(j<0&&P[i]== -Y&&TT(i)&&_== -2) { j=i; i= -1; } b
 
B(j>=0&&!I(i,j,0))A Y= -Y; } A!(Y= -Y); } bb(){ _=1; A a(v*w)-2; } uv(){
 
V(v=0; v<f; ++v){ B(h(v>>K)==0){ U S=h(v&N);
q[v]=!S?z:(S==1?bb:(S==2?c:(v&N>K?l:e))); } b B(h(v>>K)==1)q[v]=k; b q[v]=0;
P[v]=!!q[v]*(28-v); } } y(){ U G=Y,i; J=0; V(i=0; i<M; ++i){
i%8||H"\n%4o ",i); B((Y=P[i]=m(P[i]))&& TT(i))H"%c ",_+93+Y*16); b H"- "); }
H"\n    "); do H"%2d",i++&N); u(i&N); Y=G; H"\n"); } O(W,J){
B((q[J]=q[W])==k&&h(J>>K)==0)q[J]=l; B(q[W]==e)B(J-W==2)O(J+1,J-1); b
B(W-J==2)O(W-1,W+1); P[J]=P[W]; q[W]=0; P[W]=0; } QL(W,J,D)L D; { U
HQ=P[J],YX; L AJ=q[J],XY=q[W]; O(W,J); YX=D(); O(J,W); q[J]=AJ; q[W]=XY;
P[J]=HQ; A YX; } C(){ U i,j,BZ=0; V(i=0; i<M; ++i){ L Z=q[i]; B(Z){ U
 
r=h(i>>K)+h(i&N),G=Y, S=Z==z?88:(Z==k?11 +r+(P[i]<0?N-(i>>K):(i>>K)):
 
(Z==l?124-((YY<8&&((i&N)!=K|| (i>>K)!=(P[i]>0?0:N)))?M:0):
(Z==c?41+r:(Z==e?f-r-r:36+r+r)))); Y=P[i]; V(j=0; j<M;
++j)B(!I(i,j,0))S+=(P[j]?5:1); BZ+=G==Y?S:-S; Y=G; } }
B(!(++X&M-1))write(1,".",1); A BZ; } PX(){ U i,Q=0,XP=0,JZ=M*M,E= -f,t,S=o;
B(!F--)A++F+C(); V(i=0; i<JZ; ++i)B(!I(i>>K+K,i&M-1,1)){ Y= -Y; o= -E; t=
-QL(i>>K+K,i&M-1,PX); Y= -Y; B(t>E){ ++XP; Q=i; E=t; B(E>=S) A++F,E; } }
B(!XP)E=s()?-f+1:0; p=Q; A++F,E; } RZ(){ U i,j,T=0; V(; ; ){ y(); o=f; do{
H"\n%d %d %d %s ",X,T,C(),s()?"!":">"); fflush(stdout); }
u(scanf("%o%o",&i,&j)!=2||I(i,j,1)); O(i,j); y(); X=0; ++YY; Y= -Y; T=PX();
 
i=p>>(K<<1); j=p&(M-1); B(I(i,j,1)){ H"Rats!\n"); A; } O(i,j); Y= -Y;
B(T>M*M)H"\nHar har.\n"); } } main(ac,av)char**av; { long
B(T>time(),j=time(&j);
 
R i=0; srand((U)j); V(M=0; M<=f; ++M)i+=UC(); M=i/100; B(M&3)++M; B(M&1)--M;
V(N=1; N*N<M; ++N); K= --N/2; F=ac>1?atoi(av[1]):2; uv(); RZ(); }
 
Кстати, полностью рабочий код. =))
 
-+-
 С уважением, Максим Лановой (*mailto:* maxim(_*at_*)lanovoy.kiev.ua)
                                    lanovoy(_*at_*)ln.ua
 
-+- np: Blind Guardian - Watcher In The Sky [Iron Savior]
 + Origin: [*Ария*] [*Hаутилус*] [*Blind Guardian*] [*Queen*] (2:463/431.12)
 

Всего записей: 545 | Зарегистр. 23-10-2003 | Отправлено: 15:38 30-03-2004 | Исправлено: dacuan, 15:43 30-03-2004
Signa



Звездный Ветер
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dacuan
я плакаль... честно...

Всего записей: 357 | Зарегистр. 02-07-2002 | Отправлено: 09:49 03-04-2004
evle



1 + int rand(100);
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На аукцион поступил шедевр:
Программа по шифрованию файлов случайными байтами с исходным код  
Описание:

Цитата:
Изобретен и реализован в виде программы для ЭВМ способ шифрования файлов случайными байтами. Каждый байт файла пользователя заменяется на случайный байт из множества, насчитывающего свыше 10 в степени миллион элементов. Это чудовищно больщое число, поэтому взлом исключен. Пароли - это произвольные по размеру и содержанию файлы. Поддерживаются произвольные сочетания открытых и закрытых паролей. Каждый закрытый пароль имеет три произвольных открытых пароля: гимн, герб и флаг пользователя. Файлы, зашифрованные открытыми паролями, расшифровываются только соответствующими закрытыми паролями. Поддерживается иерархия уровней управления. Всего допускается 6 уровней управления. Каждый вышестоящий уровень может расшифровать файлы нижестоящего уровня управления, но, не наоборот. Вход в программу по паролю, который у каждого уровня управления различен. Объем программы: exe - файл 12 Мегабайт для каждого уровня управления, исходный код 8 Мегабайт для каждого уровня управления.
 
Бегом покупать, пока не увели  

----------
For every complex problem, there is a solution that is simple, neat, and wrong.

Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 09:38 13-06-2005
Acmos



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Всего записей: 28 | Зарегистр. 31-08-2004 | Отправлено: 09:00 23-06-2005
xAmok



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Гыыыыыыы Код на Сях меня просто убил. Видел я нечитабельные исходники, но это шедевр.

Всего записей: 0 | Зарегистр. 25-04-2005 | Отправлено: 13:14 23-06-2005
AGASI

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
хихихии,юмор для особо одарённых и продвинутых юзеров

Всего записей: 29 | Зарегистр. 23-10-2004 | Отправлено: 15:12 03-07-2005
xAmok



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я бы сказал даже не для юзеров. Я не видел ни 1 юзьверя читающего исходники, как книжку наночь.

Всего записей: 0 | Зарегистр. 25-04-2005 | Отправлено: 22:38 16-07-2005
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Общие » Юмор » Юмор для програмистов


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru