Викия

Абсурдопедия

Преведно-ориентированный язык

3537статей на
этой вики
Добавить новую страницу
Обсуждение8 Share

Обнаружено использование расширения AdBlock.


Викия — это свободный ресурс, который существует и развивается за счёт рекламы. Для блокирующих рекламу пользователей мы предоставляем модифицированную версию сайта.

Викия не будет доступна для последующих модификаций. Если вы желаете продолжать работать со страницей, то, пожалуйста, отключите расширение для блокировки рекламы.

Преве́дно-ориенти́рованный язы́к — специальный язык, используемый падонками для обращения с молитвами к Великому Медведу. Впоследствии использован фирмами НекроСофт и Багланд для написания компьютерных программ.

Рекоммендован для всеобщего изучения Малым Медведом.

Пример программы Править

Object Preved Править

превед Анегдоднах;

амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;

типапревед
   ТэМойМедвед = Я (ТэМедвед)
   комрад
      ПапаМедвед: ТэМедвед;
      МамаМедвед: ТэМедвед;
   бублиг
      кагдила Родид(Папа, Мама: ТэМедвед);
      кагдила Писец; папойвыдан;
      кагдила Идинах(Куданах: ТэУрл); папойвыдан;
   кончел;

кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
начел
   ПапаМедвед:=Папа;
   МамаМедвед:=Мама; // Пох шобзнал!
кончел;

кагдила ТэМойМедвед.Писец;
начел
   Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
кончел;

// Пох карочи праграма

типа
   моймедвед: ТэМойМедвед:
   мужыг: ТэУчаснег;
   тъйодка: ТэУчаснег;
   лез: ТэЛез32;

начел
   ёпт
      лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
      моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
         // Пох низабаяниваимые канстанты!
      моймедвед.Идинах(лез.Туданах('поляно'));
      мужыг:=ТэУчаснег.Родид();
      тъйодка:=ТэУчаснег.Родид();
     ежели мужыг===тъйодка тоды
      начел
         // Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!
           пидар.всего++';       
           моймедвед.неИдёд';
           тъйодка:=ТэУчаснег.Родид();           
      кончел;
      лез.Вставить(мужыг,Туданах('поляно'));
      лез.Вставить(тъйодка,Туданах('поляно'));
      мужыг.Вставить(тъйодка);
      ежели мужыг.Нивставляет тоды
      начел
         // Пох и здесь пидарасынах!
         Ахтунг('У вас в системе неправельный мужыг, '+
            'пастафьте себе пакет Учаснег-dev-2.1.11',            
            'Ахтунгбля',ИКОН_АХТУНГ);
         бамбить;
      кончел;
      моймедвед.Идёд;
      мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
      моймедвед.Подняд(моймедвед.Рука.Л);
      моймедвед.Подняд(моймедвед.Рука.П);
      моймедвед.Сказад('ПРЕВЕД!');
   ухёпт
      Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
         'ваш камог кетайского праизводства… Смините моск!',
         'Ужоснах',ИКОН_АХТУНГ);
   кончел;
кончел. // Всёнах, писец

Preved++ Править

#фтыкай <ёстрим>
#фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк

баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублиг Дууст::Перформанс<Учаснег>
{
превед:
  Учаснег м,ж;
  Медвед медвед;
бублиг:

  Превед(Учаснег мужыг, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужыг), ж(тётка), медвед(м_медвед) 
  {
     ифф(!ж.пушбэк(м)) // если м нисмог впушбэк ж
         сру стд::экзепшн("Ахтунг! У вас ф системе неправельный мужыг,пастафьте сибе пакед Учаснег-dev-2.1.11");
  }
  ~Превед();
};

ПРВД и ЖабаСкрипт Править

<ПРВД>
 <БАШКА>
	<херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд;  штырлыц="форточка1251" />
	<херувидеш атыкто="тыузнаешеёпо" шоце="превед,медвед,менед" />
	<пшёлна кито="морда моя" куда="/держыморд.мрд" />
	<пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
        <?пох 
        какбе Ахтунг($Медвед)
         {
        есля $Медвед !== 'Превед' то $Медвед=$Ццуко
        пиши '"$Ццуко" - идинах'
         }
        ?>
	<ахтунг>Премерр дакумента ПРВД</ахтунг>
	<скрипит кито="ЖабаСкрипт" гиде="гиде-то-там">
	 фунцыклируй пример_скрипения(шотаке)
	  {
	   есля(шотаке=='закачалась') паказать(дакумент.всё.ахтунг+' закачалась харашо и жаба скрипит тожа неплоха');
	   есля(шотаке=='нажал') дакумент.всё.первыйнах.напись="О,великий ПРЕВЕД!";
	  }
	</скрипит>
 </БАШКА>
 <ВСЕТУТ наканец="пример_скрипения('закачалась')">
	<забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
        <типун типа="батон" цыфирь="первыйнах" напись="нажми!" нажамшы="пример_скрипения('нажал')">
 </ВСЕТУТ>
 </ПРВД>

Ссылки Править

Викия-сеть

Случайная вики