Преведно-ориентированный язык: различия между версиями

← Предыдущая правка

@@ Строка 1: / Строка 1: @@
-<noinclude><table cellpadding=0 cellspacing=0 style="border: 1px dotted black; border-left: none; position: absolute; z-index: 99;"><td valign=center width=1% style="background-color: #ff6060; color: #ffffff; font-family: Old English Text MT; font-size: 50px; font-weight: bold;" title="Уведомление"> ! </td><td style="padding: 23px 6px 20px 6px; font-size: 120%;"><b>Абсурдопедия переехала и теперь находится по адресу [[:pt:ru:Заглавная_страница|absurdopedia.net]].</b><br />См. [[:pt:ru:{{PAGENAME}}|http://absurdopedia.net/wiki/{{PAGENAME}}]]</td></table><hr /></noinclude>
+'''Преве́дно-ориенти́рованный язы́к''' — специальный язык, используемый [[Падонки|падонками]] для обращения с молитвами к [[Превед|Великому Медведу]]. Впоследствии использован фирмами [[НекроСофт]] и [[Багланд]] для написания [[компьютер]]ных программ.
+Рекоммендован для всеобщего изучения [[Малый Медвед|Малым Медведом]].
+== Пример программы ==
+=== Object Preved ===
+ '''превед''' Анегдоднах;
+ '''амонявзядъ''' ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;
+ '''типапревед'''
+    ТэМойМедвед = '''Я''' (ТэМедвед)
+    '''комрад'''
+       ПапаМедвед: ТэМедвед;
+       МамаМедвед: ТэМедвед;
+    '''бублиг'''
+       '''кагдила''' Родид(Папа, Мама: ТэМедвед);
+       '''кагдила''' Писец; '''папойвыдан''';
+       '''кагдила''' Идинах(Куданах: ТэУрл); '''папойвыдан''';
+    '''кончел''';
+ '''кагдила''' ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
+ '''начел'''
+    ПапаМедвед:=Папа;
+    МамаМедвед:=Мама; ''// Пох шобзнал!''
+ '''кончел''';
+ '''кагдила''' ТэМойМедвед.Писец;
+ '''начел'''
+    Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
+ '''кончел''';
+ ''// Пох карочи праграма''
+ '''типа'''
+    моймедвед: ТэМойМедвед:
+    мужыг: ТэУчаснег;
+    тъйодка: ТэУчаснег;
+    лез: ТэЛез32;
+ '''начел'''
+    '''ёпт'''
+       лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
+       моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
+          ''// Пох низабаяниваимые канстанты!''
+       моймедвед.Идинах(лез.Туданах('поляно'));
+       мужыг:=ТэУчаснег.Родид();
+       тъйодка:=ТэУчаснег.Родид();
+      '''ежели''' мужыг===тъйодка '''тоды'''
+       '''начел'''
+          ''// Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!''
+            пидар.всего++';
+            моймедвед.неИдёд';
+            тъйодка:=ТэУчаснег.Родид();
+       '''кончел''';
+       лез.Вставить(мужыг,Туданах('поляно'));
+       лез.Вставить(тъйодка,Туданах('поляно'));
+       мужыг.Вставить(тъйодка);
+       '''ежели''' мужыг.Нивставляет '''тоды'''
+       '''начел'''
+          ''// Пох и здесь пидарасынах!''
+          Ахтунг('У вас в системе неправельный мужыг, '+
+             'пастафьте себе пакет Учаснег-dev-2.1.11',
+             'Ахтунгбля',ИКОН_АХТУНГ);
+          '''бамбить''';
+       '''кончел''';
+       моймедвед.Идёд;
+       мужыг.Reposition; ''// Пох идинственая албанская команда в "Преведе"…''
+       моймедвед.Подняд(моймедвед.Рука.Л);
+       моймедвед.Подняд(моймедвед.Рука.П);
+       моймедвед.Сказад('ПРЕВЕД!');
+    '''ухёпт'''
+       Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
+          'ваш камог кетайского праизводства… Смините моск!',
+          'Ужоснах',ИКОН_АХТУНГ);
+    '''кончел''';
+ '''кончел'''. ''// Всёнах, писец''
+=== Preved++ ===
+<pre><nowiki>
+#фтыкай <ёстрим>
+#фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк
+баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублиг Дууст::Перформанс<Учаснег>
+{
+превед:
+  Учаснег м,ж;
+  Медвед медвед;
+бублиг:
+  Превед(Учаснег мужыг, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужыг), ж(тётка), медвед(м_медвед)
+  {
+     ифф(!ж.пушбэк(м)) // если м нисмог впушбэк ж
+         сру стд::экзепшн("Ахтунг! У вас ф системе неправельный мужыг,пастафьте сибе пакед Учаснег-dev-2.1.11");
+  }
+  ~Превед();
+};
+</nowiki></pre>
+=== ПРВД и ЖабаСкрипт ===
+<pre>
+<ПРВД>
+ <БАШКА>
+	<херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд;  штырлыц="форточка1251" />
+	<херувидеш атыкто="тыузнаешеёпо" шоце="превед,медвед,менед" />
+	<пшёлна кито="морда моя" куда="/держыморд.мрд" />
+	<пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
+        <?пох
+        какбе Ахтунг($Медвед)
+         {
+        есля $Медвед !== 'Превед' то $Медвед=$Ццуко
+        пиши '"$Ццуко" - идинах'
+         }
+        ?>
+	<ахтунг>Премерр дакумента ПРВД</ахтунг>
+	<скрипит кито="ЖабаСкрипт" гиде="гиде-то-там">
+	 фунцыклируй пример_скрипения(шотаке)
+	  {
+	   есля(шотаке=='закачалась') паказать(дакумент.всё.ахтунг+' закачалась харашо и жаба скрипит тожа неплоха');
+	   есля(шотаке=='нажал') дакумент.всё.первыйнах.напись="О,великий ПРЕВЕД!";
+	  }
+	</скрипит>
+ </БАШКА>
+ <ВСЕТУТ наканец="пример_скрипения('закачалась')">
+	<забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
+        <типун типа="батон" цыфирь="первыйнах" напись="нажми!" нажамшы="пример_скрипения('нажал')">
+ </ВСЕТУТ>
+ </ПРВД>
+</pre>
+== Ссылки ==
+* [http://sizeof.livejournal.com/23169.html Полностью работающий код], NecroSoft Visual Medved 8 only
+{{превед}}
+[[Категория:Языки]]