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

2009-03-26T13:54:33Z

85.198.132.107:

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

Рекоммендован для всеобщего изучения [[Малый Медвед|Малым Медведом]].
== Пример программы ==

=== 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

{{превед}}

[[Категория:Языки]]

Абсурдопедия - Вклад [ru]

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