https://babalena.bbon.ru/ Форум для одногруппников ru-ru Mon, 23 Oct 2023 20:09:15 +0300 MyBB/mybb.ru https://babalena.bbon.ru/viewtopic.php?pid=34#p34 <p>Профессиональные услуги клининга: уборка после ремонта, генеральная, поддерживающая, химчистка мягкой мебели, удаление жировых отложений на кухне парогенератором, мытье окон + альпинист и многое другое. Мы также предлагаем ЭКО-чистку детских игрушек, колясок, комнат и различных предметов.&#160; Заказ по тел. +7 915 204 1047 Наш канал: t.me/wwcleaning Москва и Московская область Услуги клининга офиса, квартиры: грязь, пыль, разводы, зеркала, плитка, цемент, краска, светильники, люстры, свч, холодильник, духовка, плита, варочная панель, вытяжка, розетки, выключатели, керамика, смесители, скотч, мусор, шкафы, сантехника, плинтуса, фартук, столешница, стирка, глажка, пятна, загрязнения, диван, кровать &#9989;Уборка квартиры после ремонта &#9989;Уборка после ремонта цена&#160; &#9989;Уборка после ремонта москва&#160; &#9989;Уборка квартиры после ремонта цена&#160; &#9989;Уборка помещений после ремонта&#160; &#9989;Услуги клининга цены&#160; &#9989;Клининг компания услуги&#160; &#9989;Услуги клининга офиса&#160; &#9989;Химчистка мягкой мебели москва&#160; &#9989;Химчистка мягкой мебели +на дому&#160; &#9989;Химчистка мягкой мебели +и ковров&#160; &#9989;Мытье окон +в москве&#160; &#9989;Мытье окон без разводов&#160; &#9989;Клининг компания услуги&#160; &#9989;ЭКО чистка детских кресел&#160; &#9989;Экологическая очистка детских комнат&#160; &#9989;Услуги клининга квартир&#160; Заказ по тел. +7 915 204 1047 Наш канал: <a href="https://t.me/wwcleaning" rel="nofollow" target="_blank">https://t.me/wwcleaning</a>&#160; &#160;Вотсап: <a href="https://wa.me/79152041047" rel="nofollow" target="_blank">https://wa.me/79152041047</a>&#160; Перейти: <a href="https://u.to/IFkKIA" rel="nofollow" target="_blank">https://u.to/IFkKIA</a></p> mybb@mybb.ru (qjeghjizmp) Mon, 23 Oct 2023 20:09:15 +0300 https://babalena.bbon.ru/viewtopic.php?pid=34#p34 https://babalena.bbon.ru/viewtopic.php?pid=33#p33 <p><strong>T A R A N T U L</strong><br />Я тебя понял)) я кстати поменял обложку форума)) теперь по прикольнее выглядит все))</p> mybb@mybb.ru (Реван) Sun, 19 Oct 2008 20:59:34 +0400 https://babalena.bbon.ru/viewtopic.php?pid=33#p33 https://babalena.bbon.ru/viewtopic.php?pid=30#p30 <p>Введение.<br />Герб и государство - эти два понятия тесно связаны друг с другом. Возникновение государства почти сразу же обуславливается появлением некоего изображения, которое отражает, как правило, внутреннее устройство этого государства, его могущество, территории, входящие в его состав, и т.д. Существуют особые правила составления этого рисунка, которые устанавливает и изучает наука геральдика. В ней существуют два направления - геральдическое и историко-геральдическое. Первое занимается изучением гербов как “рисунков”, по которым можно определить принадлежность хозяина этого рисунка к той или иной фамилии, его происхождение и т.п. Историко-геральдическое направление предполагает собой изучение герба в контексте того или иного исторического процесса. Здесь нельзя ограничивать свои знания лишь правилами составления герба, но и, что немаловажно, необходимо довольно хорошо знать историю того государства или рода, о котором идет речь. Существует множество работ, связанных с этой темой, однако я не нашел работы, в которой бы именно герб Российской империи рассматривался в этом аспекте. В частности современные ученые - геральдики, такие как Георгий Вилинбахов или Владимир Лебедев, в своих трудах касаются этой темы, но это лишь экскурс по отдельным периодам нашей истории, а не по ней в целом. Это и подтолкнуло меня к написанию данной работы.<br />В ней я попытался, отталкиваясь от событий, которые происходили в русской истории, найти их отражение на гербе России. Так как российская геральдика официально зародилась лишь при Алексее Михайловиче Романове, то рассмотрение российских гербов до него составляет большие трудности. Это заставило меня обратиться к литературе, в которой, как правило, ранние российские гербы рассматриваются субъективно. Поэтому, при описании гербов того времени я опирался на точки зрения того или иного автора.</p> <p>Историю развития российского герба, как и историю России, можно разделить на несколько периодов, и, согласно им, я разбил свою работу на главы, назвав каждую из них по названию периода. Дело в том, что развитие орла, как гербовой эмблемы, началось с Византии, и лишь потом он появился на Руси. Посчитав это довольно важной проблемой, я решил, что историю взаимоотношений между этими странами стоит рассмотреть в отдельной главе. Сразу же после появления орла на Руси началось его становление как государственного герба. Однако герб того времени почти никогда не подчинялся геральдическим правилам. Лишь Петр I установил изображение орла правильным, благодаря чему обширное развитие получила русская геральдика. Именно с него начинается новая веха в истории герба России. Логическим завершением становления государственного герба России явилось появление Большого, Среднего и Малого гербов Российской империи. На нем были отражены символы могущества и единства российского государства. Основными историческими событиями, которые отражаются на государственном гербе, являются изменение границ или заключение мира с каким-нибудь государством. Однако и смена правителей, и их личные привязанности, и их личные качества также сказываются на государственном гербе. Это заметно, например, когда на престол восходит женщина - государственный герб становится более изящным, контуры более плавными и т.д. На Российском гербе это отражалось лишь дважды - при Елизавете Петровне и Екатерине II.<br />Сам орел, как государственная эмблема, известен с незапамятных времен. Его изображение используется в гербах многих стран мира. Назову лишь некоторые из них: Австрия, Германия, Ирак, Испания, Мексика, Польша, Сирия, США.<br />Но двуглавый орел сохранился лишь в гербе Албании и Сербии, что подчеркивает их древнее происхождение. Российский же двуглавый орел претерпел множество изменений с момента его появления и становления как элемента государственного герба.</p> <p>Россия и Византия.<br />Появление двуглавого орла<br />Гербы в России появились давно, но это были лишь рисунки, которые не подчинялись геральдическим правилам. Из-за отсутствия рыцарства на Руси гербы были мало распространены.<br />В самом своем начале (вплоть до XVI века) Россия была разрозненным государством, поэтому и речи о государственном гербе России идти не могло. Однако, несмотря на то, что окончательной датой объединения Руси считают XVI век, государственный герб в России появляется уже при Иване III (1462-1505). Именно ему приписывается учреждение государственного герба, как такового. В качестве герба в то время выступала его печать. На ее лицевой стороне изображен всадник, протыкающий копьем змия, на оборотной - двуглавый орел.<br />Происхождение двуглавого орла уходит своими корнями далеко в прошлое. Первые, известные нам, его изображения, датируются XIII веком до н.э. Это наскальное изображение двуглавого орла, схватившего двух зайцев. Он служил гербом хеттских царей.<br />Затем двуглавый орел обнаруживается в Мидийском царстве - древней державе, раскинувшейся на территории Передней Азии,- во времена правления мидийского царя Киаксара (625-585 года до н.э.). Шли столетия. И вот мы уже видим двуглавого орла на эмблемах Рима. Здесь он появился при Константине Великом. Им в 326 году двуглавый орел был выбран в качестве своей эмблемы. <br />После основания новой столицы - Константинополя - в 330 году двуглавый орел стал государственной эмблемой Римской империи.<br />На Руси двуглавый орел появился после брака Иоанна III Васильевича и Софьи Палеолог, племянницы последнего Византийского императора Константина XII Палеолога. История взаимоотношений Руси и Византии очень глубока и интересна и является темой для отдельной работы. Однако, обратимся вкратце к этому вопросу.<br />Первые исторические упоминания об отношениях России и Византии датируются 957 годом - годом, когда княгиня Ольга совершила путешествие в Царьград и приняла христианство.<br />Но далее отношения с Византией у Руси ухудшаются. Так в 969-972 годах между ними развязалась война за Болгарию, которая была завоевана Святославом.<br />Позднее, в 988 году Владимир Святой крестил Русь. “Принятие Русью христианства из Византии широко открыло двери влиянию византийской культуры, византийских идей и учреждений. Это влияние сказалось существенным образом в области политической. Вместе с христианством стала проникать на Русь струя новых политических понятий и отношений. На киевского князя пришлое духовенство переносило византийское понятие о государе, поставленном от бога не для внешней только защиты страны, но и для установления и поддержания внутреннего общественного порядка...”.<br />Однако далее исторических подтверждений отношений Руси и Византии не имеется вплоть до 1469 года, когда римский папа Павел II предложил дочь Фомы Палеолога Софью в жены русскому государю Иоанну III Васильевичу, свадьба которых состоялась в 1472 году. Брак этот не привел Москву к религиозному соединению с Римом, но имел важные последствия для возвышения монархической власти в Москве. Как супруг последней византийской царевны, великий князь Московский становится как бы преемником византийского императора, почитавшегося главою всего православного Востока. <br />По желанию и по советам Софии в Московском Кремле при дворе великого князя стал заводиться пышный, сложный и строгий церемониал по образцам византийского двора. С конца XV века постепенно прекращается господствовавшая ранее простота отношений и непосредственное обращение государя со своими подданными, и он поднимается над ними на недосягаемую высоту. Вместо прежнего простого и “домашнего” титула “великий князь Иван Васильевич” Иван III принимает пышный титул: “Иоанн, Божьею милостью Государь всея Руси и Великий князь Владимирский и Московский и Новгородский и Псковский и Тверской и Югорский и Пермский и Болгарский и иных”. В отношениях с малыми соседними землями появляется уже титул царя всея Руси. Другой титул, принятый московскими государями, “самодержец” представляет собой перевод византийского императорского титула autocrator; титул этот означал первоначально самостоятельного государя, не подчиненного никакой внешней власти, но Иван Грозный придал ему значение абсолютной, неограниченной власти монарха над своими подданными.<br />С конца XV века на печатях московского государя появляется византийский герб - двуглавый орел (который комбинируется с прежним московским гербом - изображением Георгия Победоносца). Так Русь обозначила свою преемственность от Византии, что является первым отражением ее развития на гербе.</p> <p>Становление Российского герба<br />от Ивана III до Петра I<br />Уже в самом начале развития российского герба мы видим его переплетение с историей Руси. Интересен тот факт, что орел на печатях Иоанна III изображался с закрытым клювом и больше походил на орленка, нежели на орла. Если же посмотреть на Россию того периода, то можно увидеть, что она является молодым государством, которое только начинает формироваться как централизованное. Первым достоверным свидетельством использования двуглавого орла в качестве государственной эмблемы является печать <br />Иоанна III Васильевича на меновой грамоте 1497 с племянниками его, князьями Федором и Иваном&#160; Волоцкими.<br />В царствование Василия III Иоанновича (1505-1533) двуглавый орел изображается уже с раскрытыми клювами, из которых высовываются язычки. Об этом, например, свидетельствует печать, приложенная в 1523 году к записи государя и великого князя Василия Иоанновича при отбытии его с войском в Казань. Вкратце, если подойти с чисто художественной точки, то можно сказать, что орел начинает злиться. В то же время, рассмотрев Россию того времени, заметим, что она укрепляет свои позиции, становится новым центром православия. Этот факт нашел свое воплощение в теории монаха Филофея ”Москва - III Рим”, известный из послания монаха Василию III.<br />В царствование Иоанна IV Васильевича (1533-1584) Русь одержала решающие победы над Казанским и Астраханским ханствами, присоединила Сибирь. Рост могущества русского государства отразился и на его гербе. Двуглавый орел на государственной печати увенчан одной короной с восьмиконечным православным крестом над ней. <br />На лицевой стороне печати на груди орла изображен щит вырезанной, или “германской”, формы с единорогом - личным знаком царя. Дело в том, что все символы, используемые в личной символике Иоанна IV взяты из Псалтыря, что свидетельствует об укоренении христианства на Руси. На оборотной стороне печати, на груди орла - щит с изображением святого Георгия, побивающим змея. Впоследствии эта сторона печати сыграет важную роль в формировании российского герба. Изображение московского герба на груди орла становится традиционным. Однако, в соответствии с древнерусской иконописной традицией святой Георгий обращен в правую от зрителя сторону, что противоречит геральдическим правилам.<br />21 февраля 1613 года Земский собор избрал на царство Михаила Федоровича Романова. Это положило конец Смутам, которые в период между кончиной Ивана Грозного и восшествием на престол Михаила Романова подорвали дух русского народа и чуть не искоренили русскую государственность. Россия выходила на путь процветания и величия. В этот период орел на гербе “встрепенулся” и впервые распустил крылья, что могло означать “пробуждение” России после длительного сна, и начало новой эры в истории государства. К этому периоду Россия полностью окончила свое объединение и уже сумела стать единым и довольно прочным государством. И этот факт символично отразился в государственном гербе. Над орлом вместо восьмиконечного креста появилась третья корона, что означало Святую Троицу, однако трактовалось многими как символ единства великорусов, малороссов и белорусов.<br />Алексей Михайлович Романов (1645-1676) сумел завершить русско-польский конфликт, установив Андрусовское перемирие с Польшей (1667), при нем Россия смогла “показать себя” всей Европе. Российское государство занимает довольно значительное место рядом с европейскими государствами. <br />В период царствования Алексея Романова отмечено также появление нового изображения гербового орла. Это связано с тем, что по просьбе царя, император Священной Римской империи Леопольд I прислал в Москву своего герольдмейстера Лаврентия Хурелевича, который в 1673 году написал сочинение “О родословии российских великих князей и государей, с показанием имевшегося, посредством браков, сродства между Россией и восемью европейскими державами, то есть Цезарем римским, королями английским, датским, гишпанским, польским, португальским и шведским, и с изображением оных королевских гербов, а в середине их великого князя св. Владимира, на конце же портрета царя Алексея Михайловича”. Она явилась отправной точкой для развития российской геральдики. Государственный орел Алексея Михайловича явился прототипом последующих официальных изображений русского гербового орла. У орла высоко подняты вверх и полностью раскрыты крылья, что символизировало собой полное утверждение России, как солидного и мощного государства; главы его венчают три царские короны, на груди помещен щит с московским гербом, в лапах - скипетр и держава. Интересен тот факт, что до появления в лапах орла атрибутов монархической власти когти орла, начиная от орла на мраморной плите Ксиропотамского монастыря в Афоне (Византия. 451-453 годы), постепенно разжимались, как бы в надежде что-нибудь схватить, пока не взяли державу и скипетр, символизировав тем самым утверждение абсолютной монархии на Руси.<br />В 1667 году при помощи Лаврентия Хурелевича впервые было дано официальное разъяснение российского герба: “Орел двоеглавый есть герб державный Великого Государя, Царя и Великого Князя Алексея Михайловича всея Великия и Малыя и Белыя России самодержца, его Царского Величества Российского царствия, на котором три коруны изображены, знаменующие три великия Казанское, Астраханское, Сибирское славныя царства, покоряющиеся Богом хранимому и высочайшей Его Царского Величества милостивейшаго Государя державе и повелению... на персях изображение наследника; в пазонктех скипетр и яблоко, и являют милостивейшаго Государя, Его Царского Величества Самодержца и Обладателя”. Как видим, описание дает новое толкование элементов гербового орла. Оно продиктовано дипломатическими соображениями и должно свидетельствовать о величии России.<br /> </p> <p>Российский государственный герб<br />от Петра I до Александра II</p> <p>В 1682 году на Российский престол взошел Петр I (1682-1725). Россия очень изменилась во времена его правления. Если обобщить, то заслуги этого императора можно свести к тому, что Российская империя стала одной из ведущих держав и стояла выше, чем большинство европейских государств.<br />Петр был хорошо образованным человеком. Он внес очень большой вклад в российскую геральдику. При нем гербовой орел по геральдическим правилам стал изображаться черным (до него орел, как правило, изображался золотым). На этот факт повлияла Северная война. После нее Россия предстала перед Европой в облике могущественного государства. А, следовательно, и ее герб должен был быть не только “украшением” государственных бумаг и грамот, но и отражать силу русского государства.<br />В связи с принятием Петром I 22 октября 1721 года императорского титула на гербах взамен царских корон стали изображать императорские. В 1722 году он учредил герольдмейстерскую контору (1722-1796) и должность герольдмейстера.<br />Государственный герб при Петре I претерпел множество изменений. Помимо изменения цвета орла, на крыльях его впервые стали размещать щиты с гербами Великих княжеств и Царств. На правом крыле (левом от зрителя) были размещены щиты с гербами (сверху вниз): Киевским, Новгородским, Астраханским; на левом крыле: Владимирским, Казанским, Сибирским. Таким образом, при Петре I сложился основной комплекс атрибутов гербового орла. Такое изменение в государственном гербе можно, если подойти с исторической точки зрения, трактовать как символ быстрого и успешного скачка в развитии России. <br />Однако после выхода России на “бескрайние просторы Сибири и Дальнего Востока” ”двуглавый орел стал символом нераздельности Европейской и Азиатской России, объединенных под одной императорской короной, так как одна коронованная голова смотрит на запад, другая на восток”.<br />Послепетровская эпоха характеризуется напряженной борьбой на вершине государственной власти, известной как “эпоха дворцовых переворотов”, что в 30-е годы XVIII привело к чрезмерному влиянию в государстве выходцев из Германии, отнюдь не способствовавшие усилению России.<br />В 1740 год швейцарский гравер Гедлингер, приглашенный Анной Иоанновной в Россию в 1736 году, изготовил государственную печать, которая использовалась до 1856 года и, по существу, закрепила классический облик русского двуглавого орла.<br />До конца XVIII века коренных изменений в рисунке герба не было, однако заметны специфические черты, соответствующие времени правления императоров и императриц, особенно во времена Елизаветы Петровны и Екатерины Великой. В это время орел больше похож не на орла, а на орлицу. Как ни странно, но во времена Екатерины II государственный герб почти не изменился, хотя, как известно, она провела большое количество реформ в области государственного устройства и образования. Ею государственный Сенат, выродившийся в громоздкое и неповоротливое учреждение, неспособное не только при необходимости заменять монарха (как замышлял Петр I), но и решать текущие вопросы, по проекту Н.И. Панина в 1763 году был разделен на шесть департаментов, каждый из которых имел строго оговоренный круг обязанностей и полномочий. <br />Также было упразднено гетманство на Украине (1764), что окончательно уничтожило украинскую автономию. <br />В отношении с церковью она сначала отменила секуляризацию церковных земель, однако потом вновь вернулась к этому вопросу, проведя секуляризацию в 1763-1764 гг. Тем самым духовенство потеряло имущественную самостоятельность и оказалось на содержании государства. Так был завершен процесс превращения духовенства в особый ряд чиновничества.<br />Взойдя на престол, Павел I (1796-1801) сразу же попытался модифицировать российский герб. Указом от 5 апреля 1797 года двуглавый орел становится неотъемлемой частью герба императорской фамилии.<br />Так как Павел I был магистром Мальтийского ордена, то это отразилось и на государственном гербе. 10 августа 1799 года был издан указ императора Павла I об изображении двуглавого орла с мальтийским крестом на груди. На верхнем конце этого креста помещалась корона Великого магистра.<br />Павел I также явился “отцом” Большого российского герба. Его манифестом от 16 декабря 1800 года было дано его полное описание. Большой российский герб должен был символизировать собой внутреннее единство и могущество России. Однако проект Павла I не был реализован.<br />Александр I (1801-1825), взойдя на престол, отменил мальтийский крест на государственном гербе. Но тут же на двуглавом орле отразилось французское влияние. При Александре I на гербе крылья орла широко раскинуты в сторону, перья опущены вниз. Одна голова более наклонена, чем другая. Вместо традиционных скипетра и державы в лапах орла появляются новые атрибуты: перуны или громовые стрелы, факел, лавровый венок (иногда ветвь), ликторский пучок, перевитый лентами. Подобные орлы характерны для первой четверти XIX века. Правление Николая I (1825-1855) характеризуется твердостью и решительностью. Им все восставшие декабристы были подвергнуты суду - 5 расстреляны, остальные сосланы в Сибирь. </p> <p>После восстания в Польше (1830-1832) Николай I ограничил ее статус, который лишил Польшу государственного управления, сейма, государственного совета и национальных войск. Именно при нем с 1830 года гербовой орел стал окончательно изображаться с поднятыми крыльями, что стало его неотъемлемой признаком до 1917 года. В этом скрыт некий смысл, который символизировал окончательное установление России. В 1829 году Николай I короновался на царство Польское. И с 1832 года герб этого царства помещен на крылья орла, то есть впервые включен в российский герб...<br />В конце царствования Николая I барон Б. В. Кене, который тогда управлял департаментом герольдии, предпринял попытки придать гербу черты западноевропейской геральдики. В частности изображение орла должно было стать более строгим. Герб Москвы должен был изображаться лишь во французском щите, всадника необходимо было повернуть согласно геральдическим правилам в левую от зрителя сторону. Но его проекты реализованы лишь при Александре II, так как в 1855 году Николай I скончался, не успев реализовать проекты Б.В. Кене.<br /> </p> <p>Большой, Средний и Малый гербы<br />Российской империи</p> <p>Большой государственный герб Российской империи введен 11 апреля 1857 года по указу императора Александра II (1855-1881). Идея герба, изложенная еще в манифесте 1800 года императора Павла I, была реализована.<br />Большой герб России, как и в идеи Павла I, отражает в себе символ единства и могущества России. В нем отражена древняя традиция изображать вокруг двуглавого орла гербы территорий, входящих в состав русского государства. Это сходно с идеей объединений русских княжеств вокруг Москвы.<br />В центре Большого государственного герба помещен французский щит с золотым полем, на котором изображен двуглавый орел. Сам орел черного цвета, увенчан тремя императорскими коронами, которые соединены голубой лентой: две малых увенчивают голову, большая расположена между головами и возвышается над ними; в лапах скипетр и держава; на груди изображен “герб Московский: в червленом золотыми краями щите святой великомученик и Победоносец Георгий в серебряном вооружении и лазоревой приволке на серебряном коне...”. Щит, на котором изображен орел, сверху увенчан шлемом святого великого князя Александра Невского, вокруг главного щита - цепь и орден святого Андрея Первозванного. По сторонам щита расположены щитодержатели: с правой стороны (с левой от зрителя) - святой Архистратиг Михаил, с левой - Архангел Гавриил. Центральная часть объединяется под сенью большой императорской короны и государственной хоругвью над ней. Слева и справа от государственной хоругви, на одной горизонтальной линии с ней расположены шесть щитов с соединенными гербами княжеств и волостей - три справа и три слева от хоругви, создающие почти целый полукруг. Девять щитов, увенчанных коронами с гербами Великих княжеств и царств и гербом Его Императорского Величества, составляют продолжение и большую часть того круга, который начали соединенные гербы княжеств и волостей. Гербы таковы (против часовой стрелки): Герб Астраханского царства, герб Сибирского царства, Родовой герб Его Императорского Величества, соединенные гербы Великих княжеств, герб Великого княжества Финляндского, герб Херсониса-Таврического (так в книге - В.Л.) , герб Польского царства, герб Казанского царства.<br />Верхние шесть щитов расположены следующим образом (слева направо): соединенные гербы княжеств и областей Великороссийских, соединенные гербы княжеств и областей Юго-Западных, соединенные гербы Прибалтийских областей и герб Туркестанский.<br />В тоже время были приняты Средний и Малый государственные гербы. Средний государственный герб представлял собой то же, что и Большой, но без государственных хоругвей и шести гербов над сенью; Малый - то же, что и Средний, но без сени, изображений святых и родового герба Его Императорского Величества.<br />Принятый указом Александра III от 3 ноября 1882 года Большой Государственный герб отличался от принятого в 1857 году. Добавлен щит с гербом Туркестана (вошел в состав России в 1867 году), соединены в один щит гербы княжеств Литовских и Белорусских, и т.д.<br />Большой государственный герб теперь обрамляют лавровые и дубовые ветви. Они символизируют славу, честь, заслуги (лавровые ветви), доблесть, мужество (дубовые ветви).</p> <p>Средствами геральдической символики в Большом государственном гербе отражена “триединая сущность русской идеи: За веру, Царя и Отечество”. Вера выражена в символах русского православия: множество крестов, святой Архистратиг Михаил и святой Архангел Гавриил, девиз “Съ нами Богъ”, восьмиконечный православный крест над государственной хоругвью. Царь, идея самодержца выражена в атрибутах власти - государственные регалии России: большая императорская корона, другие российские исторические короны, скипетр, держава, цепь ордена святого ордена святого Андрея Первозванного. Отечество отражено в гербе Москвы, гербах русских и российских земель, в шлеме святого великого князя Александра Невского. Круговое расположение гербов подчеркивает равенство между ними, а центральное расположение герба Москвы - стремление к единению Руси вокруг Москвы - исторического центра земли русской. Большой государственный герб Российской империи создает монументальный образ великой, единой и неделимой России, каковой она в то время и являлась. Здесь мы и находим еще одну очевидную взаимосвязь геральдики и государственной истории.</p> <p>Заключение</p> <p>В данной работе показан весь путь развития русского государства, начиная от объединения княжеств вокруг Москвы и становления Руси как централизованного государства, роста его территорий за счет присоединяемых земель, таких как Переяславское княжество, Ростовское княжество, Суздальско-Нижегородское, княжество Смоленское, Владимирское, Северные уделы, Казанское княжество, Астраханское царство, Сибирское царство, Украина, Прибалтийские земли, княжества Финляндское и Белорусское, царство Польское, Туркестан и др. Начавшееся развитие Руси, как слабого, малоизвестного государства, продолжалось в течение столетий. Россия превращалась в мощное государство, завоевывала мировой авторитет. И, наконец, Российская империя стала великой державой, готовая соперничать с любым государством.<br />Как и российское государство, ее герб также менялся с течением времени. Он начинался с “орленка”, однако вскоре начал раскрывать крылья, над его головой появились сначала царские, а затем и императорские короны, в лапах появились атрибуты монархической власти: скипетр и держава, на груди появился герб Москвы, символизирующий ее столичный статус, на крыльях стали появляться гербы царств и великих княжеств, входящих в состав России. И, наконец, были приняты Большой, Средний и Малый гербы Российской империи, которые были составлены согласно всем геральдическим правилам, и должны были символизировать собой единство и могущество России.<br />В 1917 году орел перестал быть гербом России. Его символика показалась большевикам символом самодержавия. Любопытно, что, выражая уважение к традициям и памяти других народов, советские авторы считали, что русский народ не имеет права на свои исторические, национальные символы. </p> <p>Они не принимали во внимание то, что двуглавый орел был символом русской государственности. Напомню, что с 1917 года советское руководство даже и не ставило вопроса о символе русской государственности. Нам известен герб Российской Федерации, субъектами которой являлись автономные республики и другие национальные образования. В каком качестве входил в эту федерацию русский народ? Каждая из республик, субъектов Российской Федерации, имела свой национальный герб. Где же герб русских?<br />Знаменательным событием стало то, что 19-21 августа 1991 года была произведена попытка государственного переворота. Вследствие чего в России была свергнута власть коммунистов, и к власти пришли демократы во главе с <br />Б. Н. Ельциным.<br />22 августа 1991 года Государственным флагом России становится вновь бело-сине-красный флаг. 30 ноября 1993 года президент России Б. Н. Ельцин подписал указ “О государственном гербе Российской Федерации”. Двуглавый орел вновь стал гербом России.<br />Его история отражает путь Российской державы, полный величия и драматизма. На протяжении четырех с половиной столетий двуглавый орел неизменно оставался главной эмблемой русского государства, хотя облик его менялся от правителя к правителю.<br />Перед вами основные вехи в долгой истории обретения русским народом символа своей государственности. Сейчас двуглавый орел, как и прежде, символизирует могущество и единство Российского государства. И будем надеяться, повторив слова Есенина, что “Русь взмахнет крылами”.</p> <p>Приложение к реферату:<br />Герб Томской области<br />Дата принятия: 29 мая 1997 года<br />Описание:<br />Большой (праздничный) герб Томской области представляет собой французский щит с отношением сторон 9:8, с зеленым полем, в щите скачущий в правую сторону серебряный конь с червлеными (красными) глазами и языком. Щит увенчан большой императорской короной и окружен золотыми дубовыми ветвями, перевитыми лентой, имеющей цвета флага Томской области. На ветвях могут быть расположены изображения гербов муниципальных образований области. Автор герба Томской области - А.Ю.Акимов <br />&#160; Малый герб Томской области представляет собой французский щит с зеленым полем, в щите скачущий в правую сторону серебряный конь с червлеными (красными) глазами и языком. Щит увенчан большой императорской короной. Допускается изображение малого герба без большой императорской короны. <br />Томская губерния была образована в 1804 году. Ее герб был утвержден уже 12 марта 1804 года.&#160; Последняя редакция герба датирована 5 июля 1878 года.&#160; В послереволюционное время официальной символики не существовало, но изображение элементов исторического герба использовалось часто, причем в искаженном виде. Только 17 июня 1991 года президиум томского городского Совета народных депутатов утвердил малый герб города Томска (из описания: &quot;в зеленом щите - скачущий серебряный конь&quot;).</p> mybb@mybb.ru (Сергей) Wed, 15 Oct 2008 01:52:58 +0400 https://babalena.bbon.ru/viewtopic.php?pid=30#p30 https://babalena.bbon.ru/viewtopic.php?pid=29#p29 <p>Введение</p> <p>В 1992 году фирма Borland International выпустила два пакета программирования на использовании языка Паскаль, - Borland Pascal 7.0 и Turbo Pascal 7.0.<br />Пакет Borland Pascal 7.0 учитывает многие новейшие достижения в программировании и практике создания программ и включает в себя три режима работы: в обычном режиме операционной системы MS DOS, в защищенном режиме MS DOS и в среде Windows. Обладая расширенными возможностями, пакет Borland Pascal 7.0 тем не менее требует для использования всех своих возможностей довольно большую память – примерно 30 Мбайт на жестком диске и не менее 2 Мбайт оперативной памяти.<br />Пакет Turbo Pascal 7.0 обладает ограниченными возможностями и позволяет работать только в обычном режиме MS DOS. Начинающему программисту, по-видимому,&#160; целесообразно начать изучение языка и среды именно с этого пакета.<br />Язык характеризуется расширенными возможностями по сравнению со стандартом, хорошо развитой библиотекой модулей, позволяющих использовать возможности операционной системы, создавать оверлейные структуры, организовывать ввод-вывод, формировать графическое изображение и т.д. <br />Среда программирования позволяет создавать тексты программ, компилировать их, находить ошибки и оперативно их исправлять, компоновать программы из отдельных частей, включая стандартные модули, отлаживать и выполнять отлаженную программу.<br />В данной работе будут описаны основные возможности языка, работа в интегрированной среде, набор стандартных модулей. <br />Паскаль &#61485; замечательный язык программирования, который относительно прост в изучении, довольно ясен и логичен и, будучи первым изучаемым языком программирования, приучает к хорошему стилю. Паскаль воспитывает дисциплину структурного программирования и программирования вообще лучше, чем другие языки программирования, такие, как, например Бейсик.<br />Паскаль – гибкий и развитый в отношении типов данных язык. Привлекательны его рекурсивные возможности, а также поддержка технологии объектно-ориентрованного программирования.</p> <p>1 Модули</p> <p>Модуль &#61485; это автономно компилируемая программная единица, включающая в себя различные компоненты раздела описаний (типы, константы, переменные, процедуры и функции) и, возможно, некоторые исполняемые операторы инициирующей части.<br />Наличие модулей в Turbo Pascal позволяет программировать и отлаживать программу по частям, создавать библиотеки подпрограмм и данных, воспользоваться возможностями стандартных модулей, практически неограниченно увеличивать кодовую (содержащую коды команд) часть программы.<br />Модуль содержит описания типов данных, переменных и других объектов, а также подпрограммы, которые используются в различных программах. Подпрограмму имеет смысл включать в состав модуля в том случае, когда она реализует действие, которое приходится выполнять достаточно часто. Подпрограммы, входящие в модуль, можно написать, отладить и откомпилировать один раз, а использовать многократно.<br />Модули представляют собой прекрасный инструмент для разработки библиотек прикладных программ и мощное средство модульного программирования. Важная особенность модулей заключается в том, что компилятор Турбо Паскаля размещает их программный код в отдельном сегменте памяти. Максимальная длина сегмента не может превышать 64 Кбайта, однако количество одновременно используемых модулей ограничивается лишь доступной памятью, что дает возможность создавать весьма крупные программы. <br />Доступ к описаниям, функциям и процедурам модуля обеспечивает оператор использования Uses, в котором указывается имя модуля. Этот оператор размещается в разделе описаний программы, сразу после заголовка. Если в программе используется не один модуль, а несколько, необходимо указать имена всех модулей, перечислив их через запятую. Исключением является модуль System, ссылка на который необязательна. Этот модуль содержит, в частности, процедуры файлового ввода/вывода, процедуры и функции для работы со строками и некоторые другие.<br />Модуль начинается заголовком<br />unit unit_name;<br />где unit_name – имя модуля, которое выбирается в соответствии с правилами Паскаля. Файл, содержащий модуль, обязан иметь то же имя, что и модуль.<br />Разберем в качестве примера модуль с описанием гиперболических функций, которых нет в числе встроенных функций языка Паскаль, но эти функции достаточно часто появляются в прикладных задачах, и поэтому имеет смысл включить их в состав библиотечного модуля. Доступ к функциям из этого модуля обеспечивает оператор использования Uses, в котором указывается имя модуля. Итак, сам модуль выглядит следующим образом.</p> <p>{$N+}<br />unit&#160; &#160; &#160;hyp_fun;<br />interface <br />type<br />&#160; &#160; &#160;Float = Extended;<br />function sinh(x: Float): Float;<br />function cosh(x: Float): Float;<br />function tanh(x: float): Float;<br />implementation<br />var<br />&#160; &#160; &#160;t: Float;<br />function sinh(x: Float): Float;<br />begin<br />&#160; &#160; &#160;t := Exp(x);<br />&#160; &#160; &#160;sinh := 0.5*(t – 1.0/t);<br />end;<br />function cosh(x: Float): Float;<br />begin<br />&#160; &#160; &#160;t := Exp(x);<br />&#160; &#160; &#160;cosh := 0.5*(t + 1.0/t);<br />end;<br />function tanh(x: Float): Float;<br />begin<br />&#160; &#160; &#160;t := Exp(2.0*x);<br />&#160; &#160; &#160;tanh := (t – 1.0) / (t + 1.0);<br />end;<br />end.<br />Зарезервированные слова interface и implementation здесь играют важную роль. Каждый модуль имеет части (секции), озаглавленные этими словами. Секция interface (она называется интерфейсной секцией) содержит описания констант, типов, переменных и процедур, доступных из вызывающей программы или модуля. Секция implementation (секция реализации) содержит исходный код программы. Она может также содержать локальные описания, такие как var&#160; t:&#160; Real;&#160; из нашего примера.<br />Каждый модуль начинается с зарезервированного слова unit и заканчивается словом end, за котором следует точка. Для этого end не требуется соответствующего слова begin, хотя можно и поставить его непосредственно перед end. Оператор type в начале нашего модуля определяет тип Float, который в данном случае эквивалентен типу Extended. Указав, справа от знака равенства любой другой эквивалентный тип, можно изменить точность вычисления гиперболических функций.<br /><br /><br /><br /><br /></p> <p>1.1 Структура модулей</p> <p>Модуль имеет следующую структуру:</p> <p>Unit module_name<br />Interface<br />Интерфейсная секция<br />Implementation<br />Секция реализации<br />Секция инициализации<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Рис. 1. Структура модуля</p> <p>Здесь Unit &#61485; зарезервированное слово (единица), начинает заголовок модуля; name&#160; &#61485;&#160; имя модуля (правильный идентификатор). Interface – интерфейсная секция – содержит те описания типов, переменных и других объектов данных, которые можно использовать в других программах или модулях. Секция реализации начинается с зарезервированного слова implementation. Все описания, содержащиеся в секции реализации, являются локальными, их область действия – данный модуль. Здесь же содержаться полные описания функций и процедур модуля. Последняя часть модуля – секция инициализации. Она может быть пустой и содержать только зарезервированное слово end или включать в себя исполняемые операторы, выполняющие необходимые действия по инициализации (например, по присваиванию начальных значений переменным) модуля.<br />В качестве примера рассмотрим модуль func1 /см. приложение А/, расширяющий вычислительные возможности Турбо Паскаля, так как он содержит функции, отсутствующие в стандартных модулях системы. Среди «стандартных» функций – синус (Sin), косинус (Cos), арктангенс (ArcTan), экспонента (Exp), натуральный логарифм (Ln), квадрат числа (Sqr) и квадратный корень из него (Sqrt). В модуле func1 имеются тангенс (Tan), арксинус (ArcSin) и арккосинус (ArcCos), функции перевода градусной меры в радианную и наоборот (Degrees_to_Radians, Radians_to_Degrees), набор гиперболических функций (Sinh, Cosh, Tanh), а также десятичный логарифм (Log10) и произвольная степень числа (Power).<br />Напомню математическое определение гиперболических функций:<br /> <br /> </p> <p>В нашем примере интерфейсная секция содержит описания вещественного типа float, а также константу Infinity – «бесконечно большое значение». Бесконечность здесь понимается, разумеется, в смысл машинной арифметики, как значение, близкое к максимально допустимому для типа Extended. Далее следуют заголовки функций модуля.<br />Секция реализации содержит константы, используемые в подпрограммах-функциях. Затем идут полные описания функций. Вычисление тангенса использует «классическое» определение этой функции как отношение синуса к косинусу. Учтено также приближение значения тангенса к бесконечности при определенных значениях аргумента. В этом случае функция возвращает «машинную бесконечность».<br />При программировании арксинуса и арккосинуса следует учитывать то, что эти функции – многозначные. В нашем случае вычисляется «главное значение», лежащее в интервале [-&#61552;/2, &#61552;/2] (для арксинуса) или [0, &#61552;] (для арккосинуса) радиан. Для этого используются формулы, известные из курса элементарной математики.<br />При вычислении гиперболических функций учитывается то обстоятельство, что уже при относительно небольших значениях аргумента вычисление экспоненты приводит к арифметическому переполнению. В этом случае функция возвращает «бесконечное» значение.<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>1.2 Заголовок модуля и связь модулей друг с другом</p> <p>Заголовок модуля состоит из зарезервированного слова Unit &#61485;&#160; следующего за ним имени модуля. Для правильной работы среды Турбо Паскаля и возможности подключения средств, облегчающих разработку крупных программ, это имя должно совпадать с именем дискового файла, в который помещается исходный текст модуля. Если, например, имеем заголовок<br />Unit Global; <br />то исходный текст соответствующего модуля должен размещаться в дисковом файле GLOBAL.PAS. Имя модуля служит для его связи с другими модулями и основной программой. Эта связь устанавливается специальным предложением<br />Uses &lt;сп.модулей&gt; <br />Здесь Uses - зарезервированное слово (использует);<br />&lt;сп.модулей&gt; - список модулей, с которыми устанавливается связь; <br />элементами списка являются имена модулей, отделяемые друг от друга <br />запятыми, например: <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Uses CRT, Graph, Global:<br />Если объявление Uses... используется, оно должно открывать раздел описаний основной программы. Модули могут использовать другие - модули. Предложение Uses в модулях может следовать либо сразу за зарезервированным словом Interface, либо сразу за словом Implementation.<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>1.3 Интерфейсная часть</p> <p>Через интерфейс осуществляется взаимодействие основной программы с модулем (модуля с модулем). В интерфейсе указываются константы, типы, переменные, процедуры и функции, которые могут быть использованы основной программой (модулем) при вызове этого модуля.<br />Интерфейсная часть открывается зарезервированным словом Interface. В этой части содержатся объявления всех глобальных объектов модуля (типов, констант, переменных и подпрограмм), которые должны стать доступными основной программе и/или другим модулям. При объявлении глобальных подпрограмм в интерфейсной части указывается только их заголовок, например:<br />Unit Cmplx; <br />Interface <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; type <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;complex = record <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;re, Im : real <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; end; <br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure AddC (x, у : complex; var z : complex);<br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure MulC (x, у : complex; var z : complex);<br /> Если теперь в основной программе написать предложение<br />Uses Cmplx;<br />то в программе станут доступными тип Complex и две процедуры &#61485; AddC и МulC из модуля Cmplx.<br />Отметим, что объявление подпрограмм в интерфейсной части автоматически сопровождается их компиляцией с использованием дальней; модели памяти. Таким образом, обеспечивается доступ к подпрограммам из основной программы и других модулей.<br />Следует учесть, что все константы и переменные, объявленные интерфейсной части модуля, равно как и глобальные константы и переменные основной программы, помещаются компилятором Турбо Паскаля в общий сегмент данных (максимальная длина сегмента 65536 байт). Порядок появления различных разделов объявлений и их количество может быть произвольным. Если в интерфейсной части объявляются внешние подпрограммы или подпрограммы в машинных кодах, их тела (т.е. зарезервированное слово External, в первом случае, и машинные коды вместе со словом Inline &#61485; во втором) должны следовать сразу за их заголовками в исполняемой части модуля (не в интерфейсной). В интерфейсной части модулей нельзя использовать опережающее описание.<br />В интерфейсах различных модулей недопустимо циклическое обращение друг к другу, т.к. компилятор в этом случае не может установить связей.<br /><br /></p> <p>1.4 Исполняемая часть</p> <p>Исполняемая часть включает все подпрограммы модуля. Она может также включать локальные метки, константы, типы и переменные.<br />&#160; &#160;Исполняемая часть начинается зарезервированным словом Implementation и содержит описания подпрограмм, объявленных в интерфейсной части. В ней могут объявляться локальные для модуля объекты - вспомогательные типы, константы, переменные и блоки, а также &#61485; метки, если они используются в инициирующей части.<br />Описанию подпрограммы, объявленной в интерфейсной части модуля, в исполняемой части должен предшествовать заголовок, в котором можно опускать список формальных переменных (и тип результата для функции), так как они уже описаны в интерфейсной части. Но если заголовок подпрограммы приводится в полном виде, т.е. со списком формальных параметров и объявлением результата, он должен совпадать с заголовком, объявленным в интерфейсной части, например:<br />Unit Cmplx;<br />Interface<br />&#160; &#160; &#160; &#160;type<br />&#160; &#160; complex = record;<br />&#160; &#160; re, im: Real;<br /> end;<br />Procedure AddC (x, у : complex; var r : complex);<br />Implementation<br />Procedure AddC;<br />begin<br /> z.re := x.re + y.re;<br /> z,im := x.Im * y.im;<br />end;<br />end.<br />Локальные переменные и константы, а также все программные коды, порожденные при компиляции модуля, помещаются в общий сегмент памяти. <br />В отличие от интерфейсов модулей в исполнительных частях модулей допустимо циклическое обращение друг к другу, т.к. все равно взаимодействие осуществляется через интерфейсы, и здесь не возникает проблемы с установлением необходимых связей.<br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>1.5 Инициирующая часть</p> <p>В некоторых случаях перед обращением к модулю следует провести его инициализацию (например, установить связь с теми или иными файлами с помощью процедуры Assign, инициализировать какие-то переменные и т.д.). Необходимые действия можно выполнить в секции инициализации модуля. Эта секция начинается словом begin, после которого идут исполняемые операторы, а затем помещается слово end. (с точкой), например:<br />begin<br /> Assign (F1, ‘ FILE1.DAT ‘);<br />end.<br />В инициирующей части размещаются исполняемые операторы, содержащие некоторый фрагмент программы. Эти операторы исполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Например, в них могут инициироваться переменные, открываться нужные файлы, устанавливаться связи с другими ПК по коммуникационным каналам и т.п.:<br />Unit FileText;<br /> Interface<br />Procedure Prlnt (t : string);<br />Implementation<br />var f: Text;<br />const<br />name = ' OUTPUT. TXT ';<br />Procedure Print;<br />begin<br /> WriteLn (f, s);<br />end;<br />{Начало инициирующей части:} <br />begin<br /> Assign (f, name);<br /> Rewrite (f); <br />{Конец инициирующей части:}<br />end.<br />Следует иметь в виду, что операторы секции инициализации выполняются единственный раз в момент запуска программы.<br />Если инициализация модуля не нужна, то в секции помещается лишь слово end.<br /><br /><br /><br /><br /><br /><br /></p> <p>1.6&#160; Компиляция модулей </p> <p>В среде Турбо Паскаля имеются средства, управляющие способом компиляции модулей и облегчающие разработку крупных программных проектов. В частности, определены три режима компиляции: COMPILE, МАКЕ и BUILD. Режимы отличаются только способом связи, компилируемого модуля или основной программы с другими модулями, объявленными в предложении USES.<br />При компиляции модуля или основной программы в режиме COMPILE все упоминающиеся в предложении USES модули должны быть предварительно откомпилированы, и результаты компиляции помещены в одноименные файлы с расширением .TPU. Например, если в программе (модуле) имеется предложение<br />Uses Global;<br />то на диске в каталоге, объявленном опцией UNIT DIRECTORIES, уже должен находиться файл GLOBAL.TPU. Файл с расширением TPU (от англ. Turbo Pascal Unit) создается в результате компиляции модуля.<br />В режиме МАКЕ компилятор проверяет наличие TPU-файлов для каждого объявленного модуля. Если какой-либо из файлов не обнаружен, система пытается отыскать одноименный файл с расширением .PAS, т.е. файл с исходным текстом модуля, и, если .PAS-файл найден, приступает к его компиляции. Кроме того, в этом режиме система следит за возможными изменениями исходного текста любого используемого модуля. Если в PAS-файл (исходный текст модуля) внесены какие-либо изменения, то независимо от того, есть ли уже в каталоге соответствующий TPU-файл или нет, система осуществляет его компиляцию перед компиляцией основной программы. Более того, если изменения внесены в интерфейсную часть модуля, то будут перекомпилированы также и все другие модули, обращающиеся к нему. Режим МАКЕ, таким образом, существенно облегчает процесс разработки крупных программ с множеством модулей: программист избавляется от необходимости следить за соответствием существующих TPU-файлов их исходному тексту, так как система делает это автоматически.<br />В режиме BUILD существующие TPU-файлы игнорируются, и система пытается отыскать (и компилировать) соответствующий PAS-файл для каждого объявленного в предложении USES модуля. После компиляции в режиме BUILD программист может быть уверен в том, что учтены все сделанные им изменения в любом из модулей.<br />Подключение модулей к основной программе и их возможная компиляция осуществляются в порядке их объявления в предложении USES. При переходе к очередному модулю система предварительно отыскивает все модули, на которые он ссылается. Ссылки модулей друг на друга могут образовывать древовидную структуру любой сложности, однако запрещается явное или косвенное обращение модуля к самому себе. Например, недопустимы следующие объявления:</p> <p>Unit A; Unit B;<br />Interface Interface<br />&#160; &#160; &#160; &#160; Uses S; Uses A;<br />&#160; &#160; &#160; &#160; Implementation Implementation<br />end.<br />end.<br />Это ограничение можно обойти, если «спрятать» предложение USES в исполняемые части зависимых модулей:<br />Unit A; Unit B;<br /> Interface Interface<br /> Implementation Implementation<br /> Uses B; Uses A;<br />end.<br />end.<br />Дело в том, что Турбо Паскаль разрешает ссылки на частично откомпилированные модули, что приблизительно соответствует опережающему описанию подпрограммы. Если интерфейсные части любых двух модулей независимы (это непременное условие!), Турбо Паскаль сможет идентифицировать все глобальные идентификаторы в каждом из модулей, после чего откомпилирует тела модулей обычным способом. <br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>1.7&#160; Доступ к объявленным в модуле объектам</p> <p>Пусть, например, мы создаем модуль, реализующий арифметику комплексных чисел (напомню, что такая арифметика ни в стандартном Паскале, ни в Турбо Паскале не предусмотрена). К сожалению, в Турбо Паскале нельзя использовать функции, значения которых имели бы структурированный тип (запись, например), поэтому арифметика комплексных чисел реализуется четырьмя процедурами: <br />{UNIT Cmplx};<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160;INTERFACE <br />&#160; &#160; &#160; &#160; &#160; &#160; {.............................................}<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; type <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;complex = record; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;re, Im : real; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; end <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Procedure AddC (x, у : complex: var z: complex); <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Procedure SubC (x, у : complex; var z: complex);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Procedure MulC (x, у : complex; var z: complex); <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Procedure DIvC (x, у : complex; var z: complex); <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; const<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;с : complex = (re : 0.1; Im : -1);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; IMPLEMENTATION <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;{..........— . — .......... — -- — ——...... } <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; PROCEDURE AddC; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z.re := x.re + y.re; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z. Im := x . im + у. Im; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; end {AddC};<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; PROCEDURE SubC;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z .re := x.re - y.re;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z . im := x.Im - y. Im;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; end {SubC}; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; PROCEDURE MulC; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z.re := x.re * y.re - x.im * y.im; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;z.lm := x.re * y.im + x.im * y.re; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;end {MulC}; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;PROCEDURE DivC; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;var zz : real; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; zz :=sqr(y.re) + sqr(y.im);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; z.re := (x.re * y.re + x.im * y.im) / zz; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; z.lm := (x.re * y.im - x.lm * y.re) / zz; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;end {DIvC}:<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;END.<br />Текст этого модуля следует поместить в файл CMPLX.PAS. Его можно&#160; откомпилировать, создав TPU-файл, после чего программе станут доступны процедуры из новой библиотеки.<br />1.8&#160; Стандартные модули</p> <p>В Турбо Паскале имеется восемь стандартных модулей, в которых содержится большое число разнообразных типов, констант, процедур и функций. Этими модулями являются SYSTEM, DOS, CRT, PRINTER, GRAPH, OVERLAY, TURBO3 и GRAPHS. Модули GRAPH, TURBOS и GRAPHS содержатся в одноименных ТPU-файлах, остальные входят в состав библиотечного файла TURBO.TPL. Лишь один модуль SYSTEM подключается к любой программе автоматически, все остальные становятся доступны только после указания их имен в списке, следующем за словом USES. Ниже приводится краткая характеристика стандартных модулей. Модуль SYSTEM &#61485; в него входят все процедуры и функции стандартного Паскаля, а также встроенные процедуры и функции Турбо Паскаля, которые не вошли в другие стандартные модули (например, INC, DEC, GETDIR и т.п.). Как уже отмечалось, модуль SYSTEM подключается к любой программе независимо от того, объявлен ли он в предложении USES или нет, поэтому его глобальные константы, переменные и подпрограммы считаются встроенными в Турбо Паскаль. Модуль PRINTER делает доступным вывод текстов на матричный принтер. В нем определяется файловая переменная LST типа TEXT, которая связывается с логическим устройством PRN. После подключения модуля может быть выполнена, например, такая программа:<br />Uses Printer; <br />begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; WriteLn (LST, 'Турбо Паскаль');<br />&#160; &#160; &#160; &#160; &#160; &#160; end.<br />Модуль CRT. В нем сосредоточены процедуры и функции, обеспечивающие управление текстовым режимом работы экрана. С помощью входящих в модуль программ можно перемещать курсор в произвольную позицию экрана, менять цвет выводимых символов и окружающего их фона, создавать окна. Кроме того, в модуль включены также процедуры «слепого» чтения клавиатуры и управления звуком. Модуль GRAPH содержит обширный набор типов, констант, процедур и функций для управления графическим режимом работы экрана. С помощью подпрограмм, входящих в модуль GRAPH, можно создавать разнообразные графические изображения и выводить на экран текстовые надписи стандартными или разработанными программистом шрифтами. Подпрограммы модуля GRAPH после соответствующей настройки могут поддерживать различные типы аппаратных графических средств. Настройка на имеющиеся в распоряжении программиста технические средства графики осуществляется специальными программами - драйверами, которые не входят в библиотечный файл GRAPH.TPU, но поставляются вместе с ним. Модуль DOS. В модуле собраны процедуры и функции, открывающие доступ программам к средствам дисковой операционной системы MS DOS. Модуль OVERLAY. Он необходим при разработке громоздких программ с перекрытиями. Как уже говорилось, Турбо Паскаль обеспечивает создание программ, длина которых ограничивается лишь доступной оперативной памятью ПК. Для большинства IBM-совместимых ПК доступная программе память составляет около 580 Кбайт (без инструментальных оболочек типа Norton Commander и без самой системы Турбо Паскаль). Память такого размера достаточна для большинства применений, тем не менее, использование программ с перекрытиями снимает это ограничение. Два библиотечных модуля TURBO3 и GRAPH3 введены для совместимости с ранней версией 3.0 системы Турбо Паскаль. <br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>2&#160; Объекты </p> <p>Базовым в объектно-ориентированном программировании является понятие объекта. Объект имеет определённые свойства. Состояние объекта задаётся значениями его признаков. Объект «знает», как решить определённые задачи, то есть располагает методами решения. Программа, написанная с использованием ООП, состоит из объектов, которые могут взаимодействовать между собой.<br />Ранее отмечалось, что программная реализация объекта представляет собой объединение данных и процедур их обработки. В Турбо Паскале имеется тип object, который можно считать обобщением структурного типа record. Переменные объектного типа называются экземплярами объекта. Здесь требуется уточнение – экземпляр лишь формально можно назвать переменной. Его описание даётся в предложении описания переменных, но в действительности экземпляр – нечто большее, чем обычная переменная. <br />В отличии от типа «запись», объектный тип содержит не только поля, описывающие данные, но также процедуры и функции, описания которых содержатся в описании объекта. Эти процедуры и функции называются методами. В описании объекта фактически содержатся лишь шаблоны обращений к методам, которые необходимы компилятору для проверки соответствия количества параметров и их типов при обращении к методам. Вот пример описания объекта:<br />&#160; &#160; &#160; type<br />&#160; &#160; &#160; &#160; &#160; &#160; Location = object <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; X, Y: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; procedure Init (InitX, Inity: Integer);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; function GetX: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; function GetY: Integer;<br />&#160; &#160; &#160; end;<br />Здесь описывается объект, который может использоваться в дальнейшем, скажем, в графическом режиме и который предназначен для определения положения на экране произвольного графического элемента. Объект описывается с помощью зарезервированных слов object…end, между которыми находятся описания полей и методов. В нашем примере объект содержит два поля для хранения значений графических координат, а также описания процедуры и двух функций – это методы данного объекта. Процедура предназначена для задания первоначального положения объекта, а функции – для считывания его координат.<br />Зарезервированное слово private позволяет ограничить доступ к полям объекта. В следующем примере доступ к переменным X и Y возможен только через методы объектного типа Location:<br />&#160; &#160; &#160; &#160; &#160; &#160; type<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Location = object <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;procedure Init (InitX, Inity: Integer);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;function GetX: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;function GetY: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;private<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;X, Y: integer;&#160; &#160; &#160; &#160; <br />&#160; &#160; &#160; &#160; &#160; &#160; end;<br />В секции private могут находится и методы объекта.<br />Полное описание методов, то есть описание их реализации, должно находится после описания объекта. Имена методов составные и складываются из имени объекта и имени метода, разделённых точкой:<br />&#160; &#160; &#160; &#160; &#160; &#160; procedure Location. Init (InitX, Inity: Integer);<br />&#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; X : = InitX;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Y : = InitY;<br />&#160; &#160; &#160; &#160; &#160; &#160; end;</p> <p>&#160; &#160; &#160; &#160; &#160; &#160; fuction Location. GetX: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;GetX : = X;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160;end;</p> <p>&#160; &#160; &#160; &#160; &#160; &#160; fuction Location. GetY: Integer;<br />&#160; &#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;GetY : = Y;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160;end;<br />После того как объект описан, в программе можно использовать его экземпляры, то есть переменные указанного объектного типа:<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; var<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; GrMarket : Location; <br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>2.1&#160; Основные принципы ООП</p> <p>Элементы объектно-ориентированного программирования появились в начале 70-х в языке моделирования Симула, затем получили своё развитие, и в настоящее время ООП принадлежит к числу ведущих технологий программирования. В Турбо Паскале поддержка этой технологии появилась, начиная с версии 5.5 (1989 год).<br />Основная цель ООП, как и большинства других подходов к программированию, - повышение эффективности разработки программ. Идеи ООП оказались плодотворными и нашли применение не только в языках программирования, но и в других областях Computer Science, например, в области разработки операционных систем.<br />Появление объектно-ориентированного программирования было связанно с тем наблюдением, что компьютерные программы представляют собой описание действий, выполняемых над различными объектами. В роли последних могут выступать, например, графические объекты, записи в базах данных или совокупности числовых значений. В традиционных методах программирования изменение данных или правил и методов их обработки часто приводило к необходимости значительного изменения программ. Всякое существенное изменение программы – это большая неприятность для программиста, так как при этом увеличивается вероятность ошибок, вследствие чего возрастает время, необходимое для «доводки» программы. Использование ООП позволяет выйти из такой ситуации с минимальными потерями, сводя необходимую модификацию программы к её расширению и дополнению. Сразу замечу, что ООП не является панацеей от всех программистских бед, но его ценность как передовой технологии программирования несомненна. Изучение идей и методов объектно-ориентированного&#160; программирования – не очень простая задача, однако освоение ООП может существенно упростить разработку и отладку сложных программ.<br />Мы уже привыкли использовать в своих программах процедуры и функции для программирования тех сложных действий по обработке данных, которые приходится выполнять многократно. Использование подпрограмм в своё время было важным шагом на пути к увеличению эффективности программирования. Подпрограмма может иметь формальные параметры, которые при обращении к ней заменяются фактическими параметрами. В этом случае есть опасность вызова подпрограммы с неправильными данными, что может привести к сбою программы и её аварийному завершению&#160; при выполнении. Поэтому естественным обобщением традиционного подхода к программированию является объединение данных и подпрограмм (процедур и функций), предназначенных для их обработки.<br /><br /><br /></p> <p>2.2&#160; Инкапсуляция</p> <p>В Турбо Паскале средства объектно-ориентированного программирования связаны с тремя зарезервированными словами: OBJECT CONSTRUCTOR и DESTRUCTOR и двумя стандартными директивами: PRIVATE и VIRTUAL.&#160; &#160;<br />Зарезервированное слово OBJECT используется для описания объекта. Описание объекта должно помещаться в разделе описания типов, например: <br />type <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Tpoint = object <br />&#160; &#160; &#160; &#160; &#160; &#160; X,Y: Integer;&#160; {Координаты точки}<br />&#160; &#160; &#160; &#160; &#160; &#160; Color:word; {Цвет точки) <br />&#160; &#160; &#160; &#160; &#160; &#160; Visible: Boolean; {Признак светимости} <br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure Setlocation (NewX, NewY: integer);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;{Задает новое положение, точки на экране} <br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure SetCoforfNewColor: word); {Устанавливает цвет точки}<br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure SetVislble(VIS: Boolean);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;{Выводит или гасит точку) <br />&#160; &#160; &#160; &#160; &#160; &#160; Procedure GetLocatIon(var Xloc, YLoc:integer);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;{Возвращает координаты точки}<br />&#160; &#160; &#160; &#160; &#160; &#160; Function GetColor: word;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; {Возвращает цвет точки)<br />&#160; &#160; &#160; &#160; &#160; &#160; Function GetVislble: Boolean;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; {Возвращает признак светимости точки} <br />&#160; &#160; &#160; &#160; &#160; &#160; end; {Конец описания объекта ТРOINT)<br />&#160; &#160;В этом примере описывается объект TPOINT, представляющий собой данные и методы (процедуры и функции), необходимые для работы с графическими точками на экране ПК. Заметим, что инкапсулированные объект процедуры и функции называются методами. Как видим, каждая точка характеризуется некоторым набором данных (своими координатами X и У, цветом COLOR и признаком светимости VISIBLE). Над этими данными определены все необходимые алгоритмические действия. С помощью этих переменных можно осуществлять все предусмотренные, в объекте действия, например, для переменных типа TPOINT можно высветить или погасим, любую точку, переместить ее по экрану, изменить цвет.<br />Нетрудно заметить, что описание объекта и использование объектных переменных во многом похоже на описание и использование записей: инкапсулированные в объекте данные и методы становятся доступны с помощью оператора присоединения WITH или с помощью составных<br />имен, например:<br />if Point.GetVisible then Polnt.SetVisible(False); <br />При описании объекта вначале, описываются все инкапсулированные в нем данные, а затем - методы доступа к этим данным. В качестве методов используются процедуры и функции, а также конструкторы и деструкторы.<br />&#160; &#160;Таким образом, указание методов при описании объекта подобно их опережающему описанию. Поскольку данные и методы инкапсулированы в одном объекте, все данные автоматически становятся глобальными, по отношению к любым методам и могут использоваться в них произвольным образом. Точнее говоря, любой метод объекта работает с невидимым оператором WITH, обеспечивающим ему доступ ко всем полям (как мы увидим далее, поля могут следовать в объявлении типа и после объявления метода и в этом смысле не являться для него глобальными). При обращении к методу ему передается особый идентификатор SELF, представляющий собой обобщенное имя экземпляра объекта.&#160; &#160; Любой метод может использовать идентификатор SELF, чтобы явно указать на принадлежащий объекту метод или поле. Например:<br />type ТСоо = record<br />&#160; &#160; &#160; &#160;X.Y: integer; <br />end; <br />&#160; &#160; &#160; &#160;TPoint = object<br />&#160; &#160; &#160; &#160;X,Y: integer;<br />Procedure lnit(Coo: TCoo);<br />end;<br />Procedure TPofntfCoo: TCoo):<br />begin<br />&#160; &#160; &#160; &#160; with Coo do<br />&#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Self.X := X; <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Self.Y := Y; <br />&#160; &#160; &#160; &#160; end;<br />end; <br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>2.3&#160; Наследование</p> <p>Любой объект может быть объявлен потомком ранее описанного объекта. В этом случае он наследует все данные и методы объекта-родителя и может дополнять их своими данными и методами. При объявлении объекта-потомка за словом OBJECT в круглых скобках указывается имя объекта-родителя. У объекта может быть сколько угодно потомков, но только один родитель. При объявлении объекта-потомка TUNE перечислены лишь те данные и методы, которых недостает в объекте-родителе TPOINT, остальные TLINE автоматически наследует от своего родителя.<br />Таким образом, описание объекта-потомка TLINE эквивалентно такому описанию объекта TLINE_ANOTHER:<br />type<br />&#160; &#160; &#160; &#160; TLine_Another = object<br />&#160; &#160; &#160; &#160; X, Y Integer; {Координаты начала линии} <br />Color word; {Цвет линии)<br />Visible Boolean; (Признак светимости)<br />XE.YE: Integer; {Координаты второго конца)<br />Procedure SetLocation(NewX, NewY: integer);<br />{Задает новое положение начала линии) <br />Procedure SetColor(NewColor: word);<br />{Устанавливает цвет линии) <br />Procedure SetVIsible(Vis: Boolean);<br />{Выводит или гасит линию}<br />Procedure GetLocation(var XLoc, YLoc: integer);<br />{Возвращает координаты начала линии}<br />Function GetColor: word;<br />{возвращает цвет линии}<br />Function GetVisible: Boolean;<br />{Возвращает признак светимости линии}<br />Procedure SetLIneLocationfxl.X1,Y1,x2 ,y2: integer);<br />{Задает новое положение линии на экране}<br />Procedure GetLineLocatlon(var x11,y1l,x2l,y2l):integer);<br />{Возвращает координаты линии} <br />Procedure SetLineVJsible(vis: Boolean);<br />{Выводит или гасит линию)}<br />end; {Конец описания объекта TLIne_Another}<br />Из этого примера видно главное преимущество наследования: при описании объекта-потомка вам нет необходимости заново описывать уж существующие в объекте-родителе поля и методы. Потомок просто&#160; использует их нужным образом для реализации требуемых от него действий все, в чем нуждается потомок, &#61485; это описать специфичные для него поля методы, недостающие в объекте-родителе.<br />Наследование распространяется на любые объекты, в том числе и объекты-потомки: если в качестве родителя указано имя объекта, который сам по себе является потомком, новый объект наследует все свойства своего родителя и все свойства своих прародителей. Таким образом, наследование обеспечивает создание дерева родственных объектов.<br />Как и любое другое дерево, дерево объектов имеет «корень» &#61485; объект являющийся прародителем всех других объектов иерархии, и «ветви» порожденные от него потомки. По мере передвижения от корня к ветвям и перехода с ветви на ветвь объекты разрастаются в своих размерах, присоединяя к себе все новые и новые поля и методы. Если иерархия объектов хорошо продумана, на каждом ее уровне к объекту-родителю добавляются только необходимые поля и методы, поэтому в таком разрастании на самом деле нет ничего плохого. Более того, компоновщик Турбо Паскаля тщательно проверит откомпилированную программу и удалит из нее все лишнее - в том числе в исполняемую программу (ЕХЕ-файл) не будут включены методы, которые по каким-либо причинам не используются в программе.<br />Механизм наследования &#61485; это, пожалуй, самое мощное свойство ООП. Без наследования объекты превращаются в простую комбинацию данных и подпрограмм, не дающую качественных преимуществ по сравнению с традиционными для Паскаля процедурами и модулями. Наоборот, механизм наследования позволяет строить библиотеку по принципу «от простого - к сложному». Вводя с помощью наследования новый объект в свою библиотеку, программист в максимальной степени использует уже созданные (и, возможно, отлаженные) ранее объекты. Такой принцип конструирования программ называется восходящим программированием. В отличие от нисходящего программирования, он не дает возможности поэтапного создания программы. Мелкие детали реализации объектов заслоняют собою генеральный алгоритм, поэтому при использовании ООП рекомендуется сочетание подходов: методами нисходящего программирования генеральный алгоритм расчленяется на ряд относительно крупных и законченных в смысловом отношении фрагментов (модулей), а реализация этих фрагментов может основываться на объектно-ориентированном программировании.<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></p> <p>2.4&#160; Полиморфизм</p> <p>Объект-потомок может не только дополнять поля и методы родителя, но и заменять методы родителя на новые (заменять поля родителя нельзя!). Например, вместо правила SETLINEVISIBLE мы могли бы в объекте TLINE объявить правило SETVISIBLE, которое в этом случае перекроет (заменит собой) одноименное правило объекта-родителя TPOINT. В результате, к разным родственным объектам TPOINT и TUNE можно было бы применять одноименные правила SETVISIBLE, обеспечивающие сходные в смысловом отношении действия - показать или сделать невидимым графический объект. Свойства, позволяющее называть разные алгоритмические действия одним именем, называется полиморфизмом.<br />В Турбо Паскале существует возможность связывания данных с методами на этапе исполнения программы - такое связывание называется поздним. При позднем связывании в описании объекта соответствующий метод дополняется стандартной директивой VIRTUAL. Такие методы называются виртуальными. В отличие от этого методы, с которыми осуществлено раннее связывание (на этапе компиляции), называются статическими.<br />Появление директивы VIRTUAL в объявлении метода как бы предупреждает компилятор: «Пока ты не знаешь, что я хочу. Придет время -запроси образец!». Встретившись с таким объявлением, компилятор не будет устанавливать связь объекта с методом. Вместо этого он создаст специальную таблицу, которая называется таблицей виртуальных методов (ТВМ). В этой таблице хранятся адреса точек входа всех виртуальных методов. Для каждого типа объекта создается своя ТВМ и каждый экземпляр объекта пользуется этой единственной для объектов данного типа таблицей. ТВМ обеспечивает работающую программу механизмом связывания объекта с полями. Фактическое связывание осуществляется с помощью обращения к конструктору - специальному методу, который во всем подобен обычной процедуре, но в заголовке вместо PROCEDURE содержит зарезервированное слово CONSTRUCTOR. В момент обращения к конструктору в специальное поле объекта заносится адрес нужной ТВМ, в результате чего все виртуальные методы (в том числе и унаследованные от родителей!) получают доступ к нужным полям.<br />Конструктор может не обращаться к виртуальному методу и даже вообще быть пустым, т.е. не иметь никаких исполняемых операторов (как в нашем примере), тем не менее, объект будет инициализирован правильно. Дело в том, что заголовок CONSTRUCTOR предписывает компилятору создать специальный набор машинных инструкций, который инициализирует ТВМ и исполняется в момент обращения к конструктору до выполнения его (конструктора) содержательной части. В объекте может быть сколько угодно конструкторов, но ни один из них не может быть виртуальным.<br />Выбор того, каким именно - статическим или виртуальным - должен быть метод, зависит от специфики задачи и Ваших вкусов. Однако следует помнить, что статический метод никогда не может быть перекрыт виртуальным и наоборот. Список формальных параметров статического метода может отличаться от списка в перекрываемом методе, а для виртуальных методов оба списка должны быть идентичны. И, наконец, виртуальные объекты занимают несколько большую память (за счет ТВМ) и вызов виртуальных методов исполняется чуть медленнее, чем вызов статических. Тем не менее, всегда, когда это возможно, следует отдавать предпочтение виртуальным методам, т.к. они придают программе дополнительную гибкость. Всегда может оказаться, что рано или поздно мы или кто-то из пользователей нашей библиотеки захочет модифицировать ту или иную ее функции. В этом случае перекрытие виртуальных методов позволит предельно упростить задачу. Отметим, что стандартная функция Турбо Паскаля TypeOf(TObj) возвращает ссылку на ТВМ для объекта типа TObj. Эту ссылку можно использовать, например, для проверки того, с каким именно объектом работает в данный момент виртуальный метод:<br />If TypeOf(Self) - TypeOf(TA) then ... <br />И еще одно замечание. Между экземплярами родственных объектов возможен обмен информацией с помощью операторов присваивания. Например, если PoinTl и Point2 - экземпляры объекта TPOINT, то допустимо присваивание <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Point1 := Point2;<br />или <br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; PoinT2 := Point1;<br />Присваивания разрешены и между экземплярами родственных объектов разных уровней иерархии, однако в этом случае экземпляру объекта-родителя можно присвоить экземпляр потомка, но не наоборот! Например, разрешается присваивание<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Point := Line;<br />но недопустимо<br />&#160; &#160; &#160; &#160; &#160; &#160; Line := Point; <br />если LINE - потомок POINT. Это происходит по той причине, что потомок содержит все поля родителя, поэтому при присваивании потомка родителю эти поля получат правильные значения. Обратное же присваивание оставит без изменения «лишние» поля потомка, что является недопустимым.<br />При использовании виртуальных правил следует остерегаться присваивания между экземплярами объектов, во всяком случае, необходимо помнить, что простое присваивание не заменяет собой инициацию виртуального объекта. Если, например, LINE и POINT - виртуальные объекты, то присваивание<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;POINT:= Line;<br />не инициирует объект POINT, даже если объект LINE был перед этим инициирован. После такого присваивания необходим вызов конструктора объекта POINT перед обращением к любому виртуальному методу этого объекта.<br /></p> <p>Заключение</p> <p>Мы завершаем рассмотрение основ программирования на Турбо Паскале. Среди них вычисления и обработка информации, использование объектно-ориентированного программирования – словом, те задачи, с которыми приходится сталкиваться профессиональному программисту. Турбо Паскаль был выбран как наилучший язык программирования для обучения основам профессионального программирования.<br />Турбо Паскаль – достаточно «старый» программный продукт. Следует заметить, однако, что Паскаль – это живой язык. Известны, используются или находятся в стадии разработки компиляторы и среды разработки программ на Паскале для различных операционных систем,&#160; в том числе и бурно развивающейся операционной системы Linux. Эти системы иногда частично, а иногда и в значительной мере совместимы с Турбо Паскалем, а следовательно, накопленный опыт может быть использован и для серьезной, профессиональной работы по разработке программ.</p> mybb@mybb.ru (Сергей) Wed, 15 Oct 2008 01:43:35 +0400 https://babalena.bbon.ru/viewtopic.php?pid=29#p29 https://babalena.bbon.ru/viewtopic.php?pid=25#p25 <p><strong>EXTREMAL</strong><br />Тогды спокойной ночи тебе))</p> mybb@mybb.ru (Реван) Mon, 13 Oct 2008 02:11:18 +0400 https://babalena.bbon.ru/viewtopic.php?pid=25#p25 https://babalena.bbon.ru/viewtopic.php?pid=20#p20 <p>Вообщем сейчас HTML проходим. если кому чего не понятно - вот ссылка - качаем первый учебник! Очень хороший! Все понятно описано, даже тем кому влом учить - все понятно..<br /><a href="http://javascripthelp.narod.ru/books_for_webmaster.html" rel="nofollow" target="_blank">http://javascripthelp.narod.ru/books_for_webmaster.html</a></p> mybb@mybb.ru (Реван) Mon, 13 Oct 2008 01:57:04 +0400 https://babalena.bbon.ru/viewtopic.php?pid=20#p20