форум вебмастероff на AlfaSpace.NET

// 
// Превед.cpp : Defines the entry point for the console application. 
// 

#include <iostream> 
#include <locale.h> 

//------------------------------------------------------------------ 
// The PREVED Language Kernel area. Do not touch!  

#if !defined (_MSC_VER) || _MSC_VER < 1400 
#error Wrong compiler! Use MSVS 8.0 
#endif 

#define НАЧЕЛ      { 
#define КОНЧЕЛ     ;} 
#define ТИПА       int 
#define ВДРУГ      if ( 
#define ТАДА       ) 
#define НИХРИНА    else 
#define ВЗАД       return 
#define КАГДИЛА    ( 
#define ЙО         ; 
#define ЖЖОШ(p,n)  for (; (p) <= (n); (p)++) 

#define БАЗАР      std::cout << 
#define СЛЫШЬ      << 
#define СТОЙ       system ("echo. & pause"); 
#define БЛИН       _wsetlocale (LC_ALL, L"Russian_Russia.ACP"); 

#define ВРОДЕ      try 
#define ИБАНУЦЦО   throw 
#define АПСТЕНУ    catch (const char* __чё__) 

#define ПРЕВЕД     ТИПА main КАГДИЛА ТАДА 
#define МЕДВЕД     ВЗАД 0; КОНЧЕЛ 

// End of area 
//------------------------------------------------------------------ 

ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА 
    НАЧЕЛ 
    БАЗАР "ВАЩЕ " ЙО 
    ВДРУГ фигня == 8 ТАДА ИБАНУЦЦО "мля! " ЙО 
    ВЗАД 0 
    КОНЧЕЛ 

ПРЕВЕД 
    НАЧЕЛ 
    БЛИН 

    ВРОДЕ НАЧЕЛ 

    ТИПА фишка = 0 ЙО 

    ЖЖОШ (фишка, 10) 
        НАЧЕЛ 
        БАЗАР фишка СЛЫШЬ " "; 
        ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО 
        КОНЧЕЛ 

    КОНЧЕЛ АПСТЕНУ НАЧЕЛ 
        БАЗАР "ИБАНУЦЦО invoked: " СЛЫШЬ __чё__; 
    КОНЧЕЛ 

    СТОЙ 
    МЕДВЕД 

// Програма Партии Любителей Пива 
// Версия 0.1.17 21/10/96 

// Реализация этих функций выполняется каждым членом партии самостоятельно! 
extern float GetMoney(void); 
extern float TwoBeer(float money); 
extern float OneMore(float money); 
extern float Full(float beer); 
extern void Drink(float beer); 
extern void Go00(float beer); 
extern void Talk(void); 

#define err_NoMoney 1 
#define err_NoBeer 2 
#define BeerCost 3200 // Конкретное значение зависит от региона! 

int main(void) 
{ 
float money=0; 
float beer=0; 
float cap; 
int count; 

while ((money+=GetMoney())>=BeerCost*2) 
for (cap=TwoBeer(BeerCost*2),money-=BeerCost*2 
;money>=BeerCost 
;cap=OneMore(BeerCost),money-=BeerCost) 
{ 
if (!cap) return err_NoBeer; // ~ 
if (Full(beer)) Go00(beer); 
for (count=50;count–>0 
{ 
Drink(0.02*cap); 
Talk(); 
} 
beer+=cap; 
} 
return err_NoMoney; // :~( 
}