Вот каким должен быть встроенный язык:) #345029


#0 by Косой
#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; КОНЧЕЛ
#1 by Косой
В Абсурдопедии хороший код приведен: превед Анегдоднах; амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги; типапревед ТэМойМедвед = хули (ТэМедвед) комрад ПапаМедвед: ТэМедвед; МамаМедвед: ТэМедвед; бублиг кагдила Родид(Папа, Мама: ТэМедвед); кагдила Писец; папойвыдан; кагдила Идинах(Куданах: ТэУрл); папойвыдан; кончел; кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед); начел ПапаМедвед:=Папа; МамаМедвед:=Мама; // Пох шобзнал! кончел; кагдила ТэМойМедвед.Писец; начел Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ); кончел; // Пох карочи праграма типа моймедвед: ТэМойМедвед: мужыг: ТэУчаснег; тъйодка: ТэУчаснег; лез: ТэЛез32; начел ёпт лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]); моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved); // Пох низабаяниваимые канстанты! моймедвед.Идинах(лез.Туданах('поляно')); мужыг:=ТэУчаснег.Родид; тъйодка:=ТэУчаснег.Родид; ежели мужыг===тъйодка тоды начел // Неправельный тъйодка, тъйодка=мужыг, медвед не может идти! пидар.всего++'; моймедвед.неИдёд'; тъйодка:=ТэУчаснег.Родид; кончел; лез.Вставить(мужыг,Туданах('поляно')); лез.Вставить(тъйодка,Туданах('поляно')); мужыг.Вставить(тъйодка); ежели мужыг.Нивставляет тоды начел // Пох и здесь пидарасынах! Ахтунг('У вас в системе неправельный мужыг, '+ 'пастафьте себе пакет Учаснег-dev-2.1.11', 'Ахтунгбля',ИКОН_АХТУНГ); бамбить; кончел; моймедвед.Идёд; мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"… моймедвед.Подняд(моймедвед.Рука.Л); моймедвед.Подняд(моймедвед.Рука.П); моймедвед.Сказад('ПРЕВЕД!'); ухёпт Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+ 'ваш камог кетайского праизводства… Смините моск!', 'Ужоснах',ИКОН_АХТУНГ); кончел; кончел. // Всёнах, писец ЕЩЕ КОДЫ - см. Абсурдопедию
#2 by Косой
С тынца:
#3 by Salvador Limones
кг/ам
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С