Глубины человеческого организма (макрофото)

 Прежде чем читать ответы в самом конце поста, попробуйте сами угадать, что же изображено на фотографиях?! Я угадала все, кроме 4 штук :)))

Далее

Charlotte Ronson S/S 2010

Вашему сайту требуется реклама? Желаете поднять Ваш бизнес и повести его в гору? Вы можете заказать продвижение сайта и оказаться в лидерах или не делать этого - решать Вам :)

more

Street style

Fashion week is the most exciting time for all fashion industry staff.
Designers, photographers, celebrities and editors.
On of the biggest kaleidoskops is NYC. 
As for me , I prefer New York fashion week style. Casual style , a lot of denim and rock'n'roll.

Today - The Sartorialist.

more

Акриловые бассейны для частного дома Прежде мысль о строительстве личного бассейна мало кому могла прийти в голову: это была прерогатива лишь различных государственных учреждений, которые могли получить для этого отдельное разрешение на данное строительство, или это были бассейны в спортивных учреждениях, таких как лагеря и так далее. Но теперь особое разрешение на то чтобы делать бассейны получать уже не нужно. Подобная тенденция - возведение частных бассейнов - несомненна, что связано с все большим количеством людей, которые желают за свой счет вести постоянную заботу о своем здоровье. Для того чтобы регулярно следить за собственным здоровьем бассейн подходит лучше всего. Вне зависимости от конфигурации, глубины и размеров бассейна вода в нем - одна из целебных с давних древних времен стихий - всегда способна помочь, если позволить ей это. Существует огромное количество фирм, которые занимаются обустройством бассейнов. А подбор варианта бассейна будет только за вами. При строительстве бассейна способны возникать специфические вопросы - мы можем раскрыть некоторые из них. Типов подобных бассейнов сегодня предлагается достаточное количество. Теперь есть бассейны из самых разных материалов: их делают как из железа, из бетона, а наиболее современными называют пластиковые типы бассейнов. Строительство бассейнов, изготавливаемых обычным способом, требует прохождения разных этапов работ, а именно: земляные, строительные, гидроизоляционные работы. Необходимое оборудование можно устанавливать только тогда, когда уже были проведены такие процедуры. Некоторые люди до сих пор воспринимают бассейн как глубокую яму наполненную водой, в крайнем случае, в их представлении яма забетонирована, чтобы вода не проходила в почву. Знайте, что существует стандартный перечень работ, которые стоит проводить при строительстве бассейна, и они отнюдь не станут лишними. Зачастую заказчики могут не учесть что, например, бетон обладает своим свойством впитывать воду. Вследствие этого может случится много неожиданных ситуаций: например, ваш бетонный бассейн может треснуть зимой, когда установится низкая температура, так как вода при замерзании расширяется. Подобное случается, например, с сухой почвой, которая продолжительное время была лишена воды. Довольно часто, для того чтобы защитить бассейн от такого повреждения используют обшивку металлическими пластинами. Несмотря на то, что такой вариант достаточно популярен, его не всегда называют эффективным по сравнению с некоторыми другими методами изоляции. Иногда используют не нержавеющую сталь, которая в состоянии только выдержать влияние воды. Есть один неприятный нюанс - на металлические листы могут позариться так называемые «охотники за металлом», которых достаточно в каждом поселке. Некоторым недостатком такого материала как нержавеющая сталь можно считать его плохую эластичность - ведь почва имеет свойство сдвигаться в зависимости от сезона, поэтому некоторые свойства металла для обшивки следует предварительно определить. Очень долго смогут прослужить композитные бассейны произведенные из современного пластика, который выдержит такие движения почв. Достоинство подобных пластиковых бассейнов состоит в том, что они отливаются по особой технологии, что не требует дополнительной гидроизоляции либо и обшивки металлом. Композит представляет собой гибкий и прочный материал, который считается считают износостойким и экологически чистым. За счет того что такие композитные бассейны отличаются таким свойством как небольшая теплопроводность, они пользуются большой популярностью. А значит, существует возможность экономить и на нагреве воды, так как вода не будет через чашу бассейна отдавать тепло земле. И даже в сильные морозы вы сможете ощутить себя, как на гейзерных источниках, ведь вода в бассейне будет продолжительно держать свое тепло.

Alexander Wang - young and genius

_________________________________________________________________________
Мгновенные грузовые авиаперевозки теперь стали доступнее! Узнать подробности на www.aeroplan-cargo.com _________________________________________________________________________
Самое лучшее видео, скачать фильмы бесплатно и на высокой скорости! _________________________________________________________________________

more

_________________________________________________________________________ На сайте ИнТВ.ру вы можете посмотреть онлайн фильмы, скачать видео и многое другое! Скорость максимальная! _________________________________________________________________________ Проверенные временем международные грузоперевозки. Опытный персонал, низкие цены! Ничего не потеряется! _________________________________________________________________________ Наилучший банк иваново предлагает воспользоваться своими услугами! _________________________________________________________________________

more

Alberto Pancorbo

Устройте себе незабываемый отдых в Евпатории или подлечитесь - кому что по душе! Санаторий "Победа" раскрывает свои объятия!





Alberto Pancorbo Siteродившийся в городе Soria (Испания) в 956 году. Pancorbo начинает рисовать в очень раннем возраста. В 18 лет он перехал в город Барселону с окончательной целью посвятить себя только живописи. В 1980 Alberto Pancorbo стал исключительным художником Sala Gaudi (Барселона), которая выставила его картины впервые на международной ярмарке искусства Basiela (Швейцария).
Посетителям лабиринта воображения Alberto Pancorbo противостоят на каждом шагу встречи с символами, и древними и современными. Они ссылаются на человеческое существование, борьбу, и часто, человеческая нечувствительность к миру. Пойманный в хаосе городской жизни, традиционные ценности иногда теряются или забываются, или представляются бессмысленными. Pancorbo рисует в стиле сюрреализма, который способен к преобразованию полностью воображаемого в полностью убедительное, в этом странном и изумительном мире лабиринто жизни.
В 1998 Pancorbo переезжал в Майами, где и живет в настоящее время, в этом городе он выставляется уже на протяжении 16 лет и выставки проходят с огромным успехом.

ArtWork

Yap Kun Rong

_________________________________________________________________________
Вы фанат сериала Теория лжи / Обмани меня - тогда материал, который я предлагаю, вам понравится!
_________________________________________________________________________




Yap Kun Rong, Site conceptual Artist, Tokyo, Japan
Traditional Art & Digital Art - Paintings & Airbrushing - Landscapes & Scenery
"Когда люди продолжают продвигаться вперед, инстинкты выживания приобретают новые формы и методы.В эпоху, где бессмертие обсуждается в настоящем времени, многие вернулись назад, чтобы искать комфорт в религии, поскольку наука размыла границы этики и морали. Наша гонка проделала длинный путь, мы будем в конечном счете заменены более высокими существами, поскольку мы приближаемся к пределам нашего творческого потенциала и разведки ?
Сможем ли мы просто стереть себя? Или мы наконец встретим Немезиду?
Пока мы все еще здесь, нам потребуется вера, та же самая вера, за которую наши предки очень держались, когда они бродили в джунглях, та же самая вера, которая поможет нам здесь."

Paintings & Airbrushing

Катя Заринская|Katya Zarinskaya

_________________________________________________________________________
Читайте top gear 2009 на русском языке!
_________________________________________________________________________
Желаете купить наклейки на ноутбук, при этом защитить свой ноутбук от царапин и выделится среди других владельцев сего девайса?
_________________________________________________________________________
Новый ноутбук недорого! Вам помогут с выбором ноутбука и обслуживанием.
_________________________________________________________________________


Катя Заринская Site & Bio, – художник яркой индивидуальности. Родилась в городе Москве и тяга к рисованию появилась у нее с детства. Учеба в детской художественной школе №1 им.В.А.Серова стала родником ее творчества. Ее первыми премиями были: Премия им. Юрия Лужкова и Премия им. Саввы Мамонтова. Современный язык ее творчества сформировался в Текстильной Академии им. А. Н. Косыгина на факультете прикладного искусства.
Живопись Кати Заринской — это гамма чувств, которая эмоционально воздействует на человека, приоткрывая завесу в ее счастливые мечты волшебных фантазий и необыкновенных образов.

Ночной Шарм-Эль-Шейх
ArtWork

Jennifer Love Hewitt|Sarah Maingot Photoshoot

_________________________________________________________________________
Есть одно шикарное местечко - дачный поселок Земляничный, вот я хотел бы приобрести там небольшой земельный участок...
_________________________________________________________________________
Недавно немного освоил немецкий язык с помощью программы немецкий язык для начинающих - очень удобная штука!
_________________________________________________________________________
Взвесив все "За" и "Против" принял решение сделать заказ микроавтобуса в СПб в аренду.
_________________________________________________________________________



Also

Афоризмы Конфуция (Кун Цю, Кун Цзы) (551-479 гг. до н.э.)

_________________________________________________________________________
Приобретайте дома в подмосковье - вкладывайте деньги в недвижимость, ведь это особенно актуально в кризис!
_________________________________________________________________________
Новый закон перерегистрация ооо 2009 - читайте, делайте выводы.
_________________________________________________________________________

Ilustración de Confucio en el libro "Mitos y leyendas de China" (1922) de E.T.C. Werner

Настоящее имя Кун Цю (где Кун - фамилия, а Цю - имя). Привычное нам слово Конфуций происходит от латинской транскрипции китайского словосочетания Кун фуцзы, в дословном переводе означающее "учитель Кун". Это латинизированное имя настолько органично вошло в западную культуру, что заменять его на оригинальное уже не имеет смысла. Кун Цю родился в 551 году до н.э. в Древнем Китае, пытался служить правителям, встречал непонимание, подвергался гонениям, прославился своей мудростью, имел много последователей и умер в 479 году до н.э., создав учение, которое на более чем две тысячи лет стало идеологической основой китайской империи и большей части Дальнего Востока.

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

Учиться и, когда придет время, прикладывать усвоенное к делу - разве это не прекрасно! Беседовать с другом, приехавшим издалека, - разве это не радостно! Не быть по достоинству оцененным светом и не таить обиду - разве это не возвышенно!
* * *
Тот, кто красиво говорит и обладает привлекательной наружностью, редко бывает истинно человечен.
* * *
Благородный муж не стремится есть досыта и жить богато. Он поспешает в делах, но медлит в речах. Общаясь с людьми добродетельными, он исправляет себя. Вот о таком человеке можно сказать, что он предан учению.
* * *
Почтительный сын - это тот, кто огорчает отца и мать разве что своей болезнью.
* * *
Учитель сказал: "Благородный муж - не орудие".
* * *
Тот, кто, обращаясь к старому, способен открывать новое, достоин быть учителем.
* * *
Тот, кто учится не размышляя, впадет в заблуждение. Тот, кто размышляет, не желая учится, окажется в затруднении.

Читать далее...

Jean-Jacques CAZIN
Желаете узнать о том, как устроен фондовый рынок, его главные преимущества, да и вообще прочитать несколько статей обо всём, что связано с ним? Ищите статью на gurr.ru


Jean-Jacques CAZIN, современный французский художник, родился в 1949 году. Его картины изображают атмосферу рожденную из встречи тени и света, из игры цвета, в тонком равновесии кривых и углов и когда он рисует Женщину, это его излюбленная тема, она защищается поэзией и тайной, в отважной смеси присутствия и одиночества и молчания.
Отличие достижений JJ.CAZIN находится в технике, эстетике и некоторой форме гедонизма. В обдуманно гиперреалистичном стиле, артист ведет зрителя в мечту - намеком эротизма, красоты, грандиозной и одновременно бесконечной и ограниченной среды, отражающей потребности Человека в воздухе, воде и земле.

ArtWork

Как узнать, что ваш кот собирается вас убить

_________________________________________________________________________
Что вы не перестаёте трогать изо изо дня в день? Конечно же компьютерную мышь! А сегодня я подскажу вам где можно недорого купить мышку - посетите hardwa-re.ru _________________________________________________________________________
Вы автолюбитель, которой не можется успокойтиться, если не узнаеть что-нибуть новое и интересное из мира автомобилей? Тогда узнайте производительность разных марок авто! _________________________________________________________________________
Вас интересует внесение изменений ооо? Тогда посетите ресурс www.pravovoy.org - вам окажут любые услуги по регистрации изменений, а так же приведение уч-докупентов в новый вид в соответствии с новым законодательством. _________________________________________________________________________

Думаете, ваш любимец - чудесное, ласковое и безобидное животное с милыми повадками?
Фигушки. На самом, он хочет вашей смерти.





 

Фотографии Agan_Tang : ТУТР-2009








_________________________________________________________________________
Виниловые наклейки на ноутбук - это единственный и, пожалуй, самый действенный способ выделить свой ноут среди других!
_________________________________________________________________________
Взвесив все "За" и "Против" принял решение сделать заказ микроавтобуса в СПб в аренду.
_________________________________________________________________________
Читайте описания автомобилей, сравнивайте, выбирайте! Всё это на autorelease.ru
_________________________________________________________________________

Почему никто не замечает двойную мораль в таких рассуждениях? Вот если у Васи Пупкина плохая судьба, то он это притянул сам, а если это Далай Лама или Лобсанг Рампа - то это страдание типа Христа. А почему тогда не говорят, что Христос это сам своими действиями притянул и он должен был отработать карму?

Все рассуждения о карме не найдут выхода если исходить что у всего есть причина, тогда где причина для причины? Если Паша трахнул Машу, значит ранее Маша трахнула Пашу, значит ещё ранее Паша трахнул Машу.....так что, они только и занимаются этим? А кто был первым?

В таких рассуждениях не будет выхода если не предположить, что начало некоего действия может быть в самом начинаемом! Например, Паша захотел трахнуть Машу и трахнул её. И всё, его поступок и есть причина, а Маша тут вообще ни причём. Но современные мистики отрицают свободу поступка и свободу преступления, они не могут решить этот вопрос.

Многоцелевые емкости из полипропилена. Канализационно насосная станция, Система очистки сточных вод, Емкости из пластика, Очистка сточных вод. В Иркутске. Профессионально.


В местах, где отсутствует центральная канализация это особенно актуально. Канализация для загородного дома, Ливневые очистные сооружения, Юбас, Биологическая очистка воды. В Воронеже. Дешево.


Системы канализации, канализация загородного дома и системы очистки сточных вод, это одно и тоже. Канализация для дачи, Очистные сооружения для дачи, Водоотведение в коттеджах, Системы очистки воды. В Москве. Качественно.


Локальная канализация «ЮНИЛОС» производства «СБМ-Групп» - предназначена для очистки, обеззараживания, утилизации сточных бытовых вод от домов, коттеджей, дач и хозяйственных сточных вод предприятий. Канализационные насосные станции, Очистные сооружения для дачи, Мега, Монтаж. В Воронеже. Профессионально.

В зависимости от высоты залегания канализационной трубы изменяется высота горловины. Канализационные системы, Ливневые очистные сооружения, Unibac, Очистка стоков. В Воронеже. Профессионально.

Пояснение: суть диалога в том, что люди считают, что память прошлых жизней вредна, ибо, если человек был в прошлой жизни преступником, то, дескать, он сильно от этого переживать будет.

Исходное сообщение Галушечка К примеру в прошлой жизни вы совершили проступки и это будет очень тяжело вам узнать, а задачи надо выполнять этой жизни)

Ответ:
Понимаете, стоит, наверное, эту тему обсуждать с теми, кто хоть что-то помнит. А, если человек не помнит, то с ним трудно говорить. Ум может строить разные красивые теории, к примеру, если женщине нравится мечта, что она ранее была мужчиною, то она и ищет подтверждения этому в мистицизме. А богач, обокравший миллион людей, оправдывает себя тем, что он в прошлых жизнях был святым и ему можно.... А евреи часто тоже берут в оборот тему прошлых жизней и создают супер-легенды своей избранности. Но всё это не имеет малейшего отношения к прошлым (и будущим) жизням. Я поступил не верно, мне не надо было об этом вообще писать, ибо люди всегда хотят всё свести к чему-то одному, то к карме, то к грехам... А Мир гораздо разнообразнее и сложнее, он многогранен. Упреждаю вопрос и отвечаю Вам. Я продолжаю одну жизнь, и я тот же самый, что и в прошлые и ещё более прошлые жизни. Мне не больно, я не шизею от этого, но я могу охватить очень большой период времени и понять, что из этого верно, а что нет. Теории грехов, кармы, "учения души" - они мизерны по сравнению с тем, по каким законам всё это происходит. И ещё. Мироздание и социальная жизнь - не друзья-соратники, социальная жизнь нарушает гармонию, поэтому самый добрый и честный человек может родиться как в самой доброй семье, так и в самой гнусной семье. Социальная жизнь полностью рушит те законы, которые работали ранее.
Локальная канализация представляет собой цельный корпус, изготовленный из полипропиленовых панелей со вспененным внутренним слоем, что гарантирует ее высокую прочность. Канализация для дачи, Септики из стеклопластика, Инженерные коммуникации, Очистка воды для дачи. В Москве. Дешево.

В самом общем смысле канализация - это система коммуникаций для благоустройства здания. Локальная канализация, Септики из полипропилена, ЛОС, Очистка сточных вод. В Санкт Петербурге. Не дорого.


Локальная канализация представляет собой цельный корпус, изготовленный из полипропиленовых панелей со вспененным внутренним слоем, что гарантирует ее высокую прочность. Канализационно насосная станция, Септики из полипропилена, Емкости из пластика, Проектирование. В Воронеже. В срок.


Ливневая канализация предназначена для отвода погодных осадков. Канализация для загородного дома, Септики для коттеджей, Септики, Очистка сточных вод. В Воронеже. Не дорого.


Ливневая канализация служит для отвода дождевых осадков в качестве дренажной системы. Кнс, Очистные сооружения для дачи, Юнилос, Биологическая очистка воды. В Санкт Петербурге. Дешево.

Сообщение от Sevryll:
Кстати, совсем недавно прошло солнечное затмение. Многие специалисты Цигун в такие дни советуют не только избегать практик под открытым небом, но и проводить дома целый световой день в медитации полного отрешения. Какие мнения на этот счет?

Поскольку я очень люблю астрономию, то, для меня искушение потренироваться в затмение, - гораздо выше всех опасностей.
Я экспериментировал с тренировками и затмениями в 1999 году и в прошлом году. В момент затмения некая среда, которая контролирует пространство людей, теряет на несколько минут свою силу, и, в результате, получаются очень интересные вещи. Я ставил цель прорыва, познания, и у меня это получалось. Однако, после затмения, я ощущал себя вяловато. В 1999 году сильно заболел почечным заболеванием, так и не нашли причину его. В прошлом году ничего особенного не произошло. Вчерашнее затмение я прозевал в силу несовпадения времени, но ощущал себя вчера вяло.
Подробности результатов экспериментов писать тут не буду.

Добавление:
Я придерживаюсь практики "магических моментов" в том смысле, что мне интересно тренироваться в астрономические события. К примеру, для радиоастрономов большой праздник - покрытие Солнцем крабовидной туманности M-1 (в созвездии Тельца). В такой момент интересно потренироваться, но надо знать точное место и время данного события. Или когда планеты находятся рядом, к примеру, рядом Марс и Сатурн, или Юпитер и Сатурн, или Луна рядом с планетами..... Это - очень интересные моменты практики, но говорю сразу: опасные! Опасные в том, что надо ощущать то, какие именно упражнения дыхания можно делать, а какие нельзя. Это не постигается обучением, нет такого Гуру или Учителя, кто раскроет это. Нужен только опыт и желание познавать. К сожалению, большая часть тех людей, кто практикует цигун, даже мастера, очень плохо ориентируются в этой теме и обсудить это, в общем, не с кем.


_________________________________________________________________________
Желаете купить собаку, у которой сделаны уже все необходимые прививки? Вашему вниманию предлагается справочник с питомцами на dogtur.ru
_________________________________________________________________________
Нравится ли Вам Samsung S8300? Подробности по получению сего чуда ищите по ссылке, указанной выше!
_________________________________________________________________________
Курсовые по психологии недорого! Желаете получить помощь в написании курсовой? Тогда вам на kursovaja.su
_________________________________________________________________________

Сепаратизм?

_________________________________________________________________________
Изучение испанского языка ещё никогда не было настолько простым! Быстро (бесплатно) скачать - легко учить!
_________________________________________________________________________
Желаете книги скачать бесплатно без регистрации? Вы можете сделать это на custos.ru
_________________________________________________________________________


Едем в поезде вздыхая,
На руины уповая,
Что остались от великой,
Некогда большой страны.
До Владивостока с Бреста
Не найти такого места,
Где никто не вспоминает,
То, как были мы сильны.

Хельсинки с Ургой, с Варшавой
Были все одной державой
Что в когтях хранилась крепких
У двуглавого орла.
Покорили горцев, финнов
И туркменов и тувинов
Всех штыком собрали предки-
Вот империя была!

Очень много воевали
В кулаке Европу сжали
Образ жизни диктовали
Во что верить, с кем дружить
Всех насильно по братали,
Поженили, размешали
Союз этносов создали
И заставили любить...

Так чего ж переживаем
И о старом вспоминаем,
Раз не брат чечен еврею
И хохол кацапу враг.
Коль соседей ненавидим
И добра от них не видим
Будем жизнью жить своею
Нам зачем такой бардак?

Мой блог
9 кругов ада
1 круг
Некрещёные младенцы и добродетельные нехристиане
Безбольная скорбь


2 круг
Сладострастники (блудники и прелюбодеи, просто страстные любовники)
Кручение и истязание бурей

не страшно?

Может и не самая ужасная, но руки...


_________________________________________________________________________
Скачайте бесплатно учебник французского языка и через небольшой промежуток времени вы заговорите как истинный француз! Рекомендую!
_________________________________________________________________________

Друзья приходят и уходят, а враги накапливаются.
_________________________________________________________________________
Любите автомобильные новости? Проект autorelease.ru собрал для вас только самое лучшее и интересное!
_________________________________________________________________________

_________________________________________________________________________
Учить английский в картинках проще чем по заумным учебникам! Скачайте обучающий курс английского языка бесплатно!
_________________________________________________________________________
Открылся отличнейший новый, я бы даже сказал перспективнейший автомобильный портал caredge.ru с новостной лентой, описанием новинок мирового автопрома и тестдрайвами!
_________________________________________________________________________


Перейдя с водки на коньяк, я вскоре осознал, что крышу с него рвёт не меньше, а в кармане реально не прибавляется тугриков. По утрам глаза так и остаются как у вампира-утопленника и вообще ощущения не как у богатого дэньди, который пьёт коньяк, а как у подзаборного забулдыги, который собирал у бомжей стограммы...А чего же размечтался-то, хороший коньяк и стоит хорошо, а откуда бабосам взятся у алкаша-мыслителя, если все мысли то только о том, как побольнее засадить себе по печени. Короче, в очередной раз страдая с похмелюги глубокой решил я не пить совсем крепких напитков. Но как быть, как победить своих друзей алканозависимых, они ведь все озаботились навязчивой идеей вытащить меня из пропасти трезвости и вернуть в мир нормальных пьющих людей(Homo sapiens-buharicas). И придумал я для них сказочку, что пить я не совсем бросил, а перешёл на употребление исключительно французских огнетушителей шампанского разлива, произведённых в Нижней Арнаутовке и именно 1974года разливо, поэтому, если они хотят чтобы я добровольно вводил себя в скотиноподобное состояние(чтобы ни от кого не отличаться) то пусть тащат мне именно этот чудо напиток, потому-что ничего другого я пить не буду. Короче отстали, уже легче, а себя победить оказалось ещё легче, просто я попытался ответить на очень простой вопрос, зачем я пью, и что мне это даёт.
А после того, как бросили пить, можно будет на сэкономленные деньги устроить отдых в Подмосковье на выходные!
После этого бросить курить оказалось проще простого.

Роскошный салон красоты Cherry.

Внимание! Акция! "Счастливый час" - с 9:00 до 12:00 все услуги со скидкой 10%!
А так же всегда действует накопительная система скидок!

К Вашим услугам:
- Все виды парикмахерских услуг
- Маникюр
- Наращивание ногтей
- Художественная роспись
- Педикюр
- Комплекс косметических услуг
- SPA массаж
- SPA обёртывание "ШОКОФАНГО"
- Депиляция
- Пирсинг
- Макияж
- Наращивание ресниц
- Депиляция для мужчин
- Вертикальный солярий с виброплатформой!
- Уход для волос BIOLAGE

Наш адрес:
Город Воронеж, Коминтерновский район, ул. Лизюкова, дом 61 (остановка '60-й Армии').
Телефон: 59-22-22.

Ждём Вас:
Ежедневно с 9:00 до 21:00 (в воскр. с 10:00 до 20:00 ).

Афоризмы Вольтера





Вольтер (1694-1778) - французский писатель, философ-просветитель, историк, публицист, правозащитник. Его настоящее имя Мари Франсуа Аруэ, а Вольтер это его псевдоним, о происхождении которого ходит много предположений.

АФОРИЗМЫ Вольтера>>>

Системы счисления - ч2 Двоичная система



Итак системой счисления, а вернее её основанием, называется колчество знаков. Так для десятичной системы - 10 знаков (от 0 до 9), шестнадцатеричной - 16 (0..F), а следовательно у двоичной всего 2 знака - 0 или 1. Обозначаются двоичные числа так: 110101b. b - это сокращение от слова Binary (двоичный). Рассмотрим несколько двоичных чисел: 0000b 0

0001b 1
0010b 2
0011b 3
0100b 4
и т.д...

Теперь о переводе в десятичную систему: перевод осуществляестся по тому же принципу, что и в шестнадцатеричной, т.е: 101101b = 1 * 2 5 + 0 * 2 4 + 1 * 2 3 + 1 * 2 2 + 0 * 2 1 + 1 * 2 0 = 45 = 2Dh Для тех, кто не очень внимательно читал предыдущий выпуск, повторюсь: берём самую правую цифру и умножаем на 2 в 0 степени, сдвигаемся на одну цифру влево и умножаем на 2 в 1, ......... и т.д. пока не дойдём до конца. Вся сложность этого метода состоит в том, что нужно помнить много степеней 2 (или той системы из которой переводим), на первый взгляд это тяжело, но по-переводив пару сотен чисел степени запомнятся сами собой. Как можно заметить, этот метод годится для перевода чисел из любых систем счисления в 10-ую, только нужно домножать на основание системы.

Теперь о переводе наоборот: из 10-ой в 2-ую. Тут тоже действует уже, надеюсь, известный вам способ деления, т.е. число делим на 2; число получившеесе в остатке является младшей двоичной цифрой. Затем уже частное поделить на 2 и полученый остаток даст следующую влево 2-ую цифру. Продолжая таким образом пока в частном не получится 0, из остатков получим все необходимые 2-ые цифры. Частное Остаток Двоичная цифра
45 / 2 22 1 1 (младшая цифра)
22 / 2 11 0 0
11 / 2 5 1 1
5 / 2 2 1 1
2 / 2 1 0 0
1 / 2 0 1 1 (старшая цифра)
Тут также нет ничего сложного.

Теперь о переводе в шестнадцатеричную систему: тут алгоритм посложнее: начиная с правой цифры разбиваете число на соответствующие 16-ой системе. Ясно это будет из дальнейших примеров: 101101b разбиваем справа: 1b = 1h, 01b=1h, 101b=5h 1101b=Dh СТОП! Первая правая цифра уже есть! Рассмотрим оставшуюся часть: 10b = 2h, и следовательно наше число 101101b = 2Dh. Почему мы остановились после 1101b ? Просто потому, что 01101b=Dh, а 101101b > Fh, а нам нужно получить только одну цифру числа. Ещё один пример, показан он по другому: 10101011b = (1010)(1011)b = ABh Т.е. нужно запомнить первые 16 чисел 2-ой системы и тогда сразу будет видно, когда нужно остановиться. Число 01011b так же равно Bh, но при этом нуль слева нам совсем не нужен, т.к. он не играет никаой роли, т.е. мы можем дополнить число любым количеством нулей слева и поэтому этот на этот нуль мы не смотрим, а следущее число 101011b > Fh = 1111b и значит мы производим разбивку по 4-ой цифре, т.е. (1010)b и (1011)b. Это и даёт нам конечный результат.

Двойчная арифметика. Сейчас мы заново научимся складывать числа столбиком :) 1011101 +1111001 11010110 Правила всё те же, что и для десятичной системы, но нужно помнить, что 1b + 1b = 10b. Вычитание - это всё наоборот, 10b - 1b = 1b, а правила - знакомые со школы!

А теперь поговорим об отрицательных числах. Начнём с простого числа (-1). Как же можно представить его в двоичном виде ?? Ответ кроется в следуещем соображении: (-а) = 0 - а :))) Тут вроде бы всё ясно, НО какой глубокий смысл! Рассмотрим число (-1): (-1) = 0 - 1, а теперь в двоичном виде: 000000000 -000000001 111111111 Каково ??? Удивительно, но это логично: попробуйте к 111111111111b прибавить 000001b и получится 0 !!!! Это очень интересное свойство двоичных чисел.

Ну а перевод отрицательных двоичных в 10-ую систему происходит так: переворачиваем все цифры на противоположные, т.е. вместо 0 ставим 1 и наоборот. 11111011b -> 00000100b переводим полученное в Dec 00000100b = 4 добавляем 1 4 + 1 = 5 ставим знак минус 5 -> -5 Ладно, а теперь всё проверим..... Запускаем виндовский калькулятор, ставим галочку Bin, вводим 11111011, ставим галочку Dec, и ...... видим на экране 251 ??? Что-то тут не так! В душу вкладывается сомнение: а не гон ли всё это? Устроим ещё одну проверку: берём (-5), ставим галочку Bin, и видим число : 1111111111111111111111111111011 ? Похоже, но не то! (Кстати попробуйте перевести его обратно в Dec :)). Вся фишка заключается в том, что виндовский калькулятор: не умеет преобразовывать отрицательные Bin в Dec. Об числе 1111111111111111111111111111011b : всё дело втом, что когда мы вычитали из 000b 001b, то мы не учли одной очень нужной вещи: к числу можно добавить любое количество нулей слева!! Т.е. 0 у калькулятора выглядит так: 00000000000000000000000000000000b :)) Вот и весь прикол! В (-1) на самом деле бесконечное множество 1.

А теперь ещё одно маленькое соглашение: что бы не уподобляться виндовскому калькулятору и не путать отрицательные числа с положительными (в Bin разумеется), мы будем писать положительные числа, добавляя слева нуль (например: 1 = 01b, 2 = 010b и т.д.), а отрицательные без него (-1 = 1111b)! Тем самым мы предотвратим возможную путаницу!
А нафига они нужны - эти системы?

Да уж волнующая тема! Теперь появилась ещё одна система, а зачем оно ? Ок. Начну отдалённо. Наименьшей единицей хранения информации является бит (ну это, как секунда в СИ). Соответственно бит может принемать два состояния, которые условно называют правда и ложь. Для обозначения этого можно использовать 1 (правда) и 0 (ложь). Чуствуете ? Пахнет двоичной системой счисления! Из бит складываются байты. 1 байт = 8 битам. Т.е. что бы закодировать 1 байт нам нужно написать последовательность из 8 битов: 10110110 Сколько же может быть комбинаций еденичек и нулей? Оказывается всего 256. Этих 256 комбинаций хватает, что бы закодировать в них символы алфавита, поэтому с помощью 1 байта мы можем представить символ подчти каждого алфавита. Естественно, что мы таким образом кодируем номер символа, а выводом нужного знака на экран по этому номеру занимается видеокарта. Хорошо, отношение двоичной системы к битам вроде бы понятно, но шеснадцатеричная-то тут при чём??? Да вообщем-то она и не при делах :) Просто её удобнее использовать. В самом деле hex-число, состоящее из 2-х знаков полнотью описывает все 256 возможных комбинаций. FFh = 255 (256 комбинацию составляет число 00h). Получается, что 1 шеснадцатеричная цифра может закодировать пол-байта (это так называемый огрызок, или нибл). Согласитесь чем для каждого байта писать восемь цифр удобнее написать две, а после окажется, что рабтотать с ними удобнее, чем с десятичными.
Послесловие

Думаю, если вы вникли во всё выше сказанное, то смысл фразы будет вам понятен: в мире существует 10 категорий людей: те, которые понимают двоичную систему счисления и те, которые её не понимают :))

Ну вот теперь вы изучили мат. часть :) Это самое главное! Со следующего выпуска мы начнём писать программы на Паскале. Если вы ещё им не обзавелись, то самое время это сделать. На сайте в разделе Инструменты лежит пара ссылок, на работо способность они к сожалению не проверены. Лучшим же выходом является попрежнему покупка CD диска с Паскалем. Напомню, что нам нужен Borland Pascal 7 (или Turbo Pascal 7). На этом всё.

Типы данных.
Вашему вниманию интернет магазин одежды, распродажа одежды, купить одежду, обувь недорого!


Все программы работают с данными. Например целые числа, вещественные числа, строки - это данные. Данные могут быть постоянными, например дата рождения, а могут быть и переменными : например возраст. Итак давайте представим следующую задачу: необходимо решить уравнение вида ax2 + bx + c = 0.

Из математики нам известно, что решением такого уравнения являются числа:
x1,2 = - b ± (b2 - 4ac)1/2
2a
Где (b2 - 4ac)1/2 - это корень квадратный из числа b2 - 4ac. Спасибо Андрею, который подсказал это изображение корня.
Тем самым нам нужно знать 3 числа: a, b, c. Для конкретных чисел посчитаь всё можно на бумажке, а для любых коэффициентов??
Тут нам понадобятся переменные. В программе написанной на языке паскаль для переменных отводится специальная "секция" VAR (агн VARiable - переменная) и каркас программы выглядит так:

ИмяПрограммы;
var
Здесь идёт объявление переменных.
begin
Здесь идёт текст программы.

Переменные - это и есть наши данные. Так как Паскаль является строго типизированным языком, то каждой переменной ставится в соответствие свой тип. И для этой переменной разрещены операции допустимые типом. Но мы не всегда можем делать операции между типами: например нельзя сложить число 5 и строку 'Hello world!'!
Объявляются переменные таким образом:
ИмяПеременной : ИмяТипа;
В языке Паскаль существует очень разветвлённая система типов и сегодня мы поговорим только 2 из них: Целые и Вещественные.
Целые типы.Имя типа. Диапозон значений. Размер памяти.
Shortint - 128 .. 127 1 байт
integer - 32768 .. 32767 2 байтa
Long - 2147483648 .. 2147483647 4 байтa
byte 0 .. 255 1 байт
Word 0 .. 65535 2 байтa


Теперь я думаю понятно, что если нам надо решить уравнение с целыми коэффициентами, менее 32768 и более - 32768, то а,b,c мы должны объявить следующим образом:
Program Decision_of_quadratic_equalation;
var
a : integer;
b : integer;
c : integer;
begin
Здесь идёт текст программы.
end.

Так же переменные одного типа можно записывать в строчку: a, b, c : integer;
Благодаря такой системе типов мы можем всегда выбрать максимально нам подходящий!
В некоторых языках программирования вообще нет такого понятия, как тип переменной. Наглядный пример - Бейсик. В нём под каждую переменную выделяется максимальное количество памяти. Однако это не рационально. Если мы точно знаем, что переменная Х больше 0 и меньше 255, то зачем нам тратить лишние байты драгоценной памяти ? Но если размер заранее не известен, то лучше подстраховаться.
Итак теперь мы умеем выбирать нужный нам тип переменной, объявлять её.... теперь нам нужно научится что -то с ней делать :))
Так как данные целого типа являются по существу математическими переменными (во загнул-то:), то для них определены операции:
:=
присваивание ( двоеточие и равно всегда пишутся слитно!)
Например присвоить a значение 123: a := 123;
Присвоить а значение b: a := b;
Очень частая ошибка: забывают ставить двоеточие перед знаком равно! А что такое просто знак равно, мы поговорим позже и подробнее! Главное привыкнуть к такой записи :=
+
сложение
Идём от простого к сложному: присвоить а значение 120 + 3: а := 120 + 3;
Присвоить b значение а + 123: b := a + 123;
Присвоить с значение a + b + 123: c := a + b + 123;
И самое сложное присвоить с старое значение + 3: c := c + 3;
вот тут подробности! С математической точки зрения запись С = С + 3 не имеет ни какого смысла. Однако тут нет ничего сложного если смотреть на это под другим углом зрения. Например вот так:
b := c + 3; - строка 1
c := b; - строка 2
Тут всё становится гораздо понятней! Однако что нам стоит оптимизировать этот код, ведь значение b := c + 3, не меняется при переходе от строки 1 к строке 2 и мы можем заменить значение b сразу на c + 3, т.е. и написать с := с + 3. При работе такой программы берёться значение с в памяти, к нему прибавляется 3, а после всё это вновь заносится в с. Надеюсь, что понятно!
-
вычитание. Анологично сложению: c := с - a + b - 3; Без вопросов!
*
умножение
Оно тоже идёт по анологии со сложением но надо помнить приоритет операций! Первый класс: над длинным примером нас заставляли писать приоритеты операций: у сложения 2, у умножения 1 ??? Вот и здесь схожая ситуация! Помните загадку: сколько будет два плюс два умножить на два?
Правильный ответ: 6 (т.к. сначала нужно умножать, а потом складывать 2 + 2 * 2)
Вот и в паскале нужно строго соблюдать приоритет операций! В этом вам поможет оператор ( )! Тут как в математике: операции в скобках имеют высший приоритет: т.е. (2 + 2) * 2 = 8 Т.к. сначала мы складываем 2 и 2.
/
деление
Вот тут даёт о себе знать то, что паскаль строготипизированный язык: результат деления всегда вещественный! Т.е. не целый :))) И попытка присвоить целому числу результата деления даже двух целых чисел является незаконной! Тут же возникает извечные вопросы: что делать и кто виноват?
Ну виноват, понятное дело, Никлаус Вирт (можете кинуть в него грязью, если найдёте :). А вот на вопросе что делать мы остановимся подробнее:
Итак как всегда существуют 2 пути: простой и очень простой :) Простой:
В Паскале есть такая функция Round - она возвращает округлёное значение вещественного числа. При этом округление идёт по правилам математики: т.е. Round (1.4) равно 1, а Round (1.6) равно 2. Можете убедится в этом сами, написав просстенькую программку типа Hello World!, только сделать не вывод строки, а вот так: writeLn (Round (1.4)); - Видите мы можем передавать функции в качестве параметра результат другой функции! можете также написать writeLn (Round ( Round (1.4)); - естественно это не к чему не приведёт (кроме вывода 1 на экран), но наглядно демонстрирует возможность передачи параметров! Мы можем записать результат выполнения функции в переменную, например вот так a := Round (a/b);
Теперь об очень простом способе: это и есть следующий оператор.
div
Деление нацело.
Вот тут уже идет просто отбрасывание дробной части! Т.е. 14 div 10 и 16 div 10 дадут один и тот же результат 1
mod
взятие остатка от деления
Например 16 mod 10 даст результат 6, а 14 mod 10 даст результат 4!

Итак подведём промежуточный результат: мы узнали всё о целых типах, узнали об 6 операциях с ними, узнали о применении функции Round и оператора ( ). Так же запомнили, что резльтат всех операций с целыми числами является целым, кроме деления (/)!
Вещественные типыИмя типа. Диапазон значений. Число цифр мантиссы. Размер памяти.
Real 2.9e-39 .. 1.7e+38 11 - 12 6 байт
Single 1.5e-45 .. 3.4e+38 7 - 8 4 байт
Double 5.0e-324 .. 1.7e+308 15 - 16 8 байт
Extende 3.4e-4932 .. 1.1e+4932 19 - 20 10 байт
Comp -9.2e+18 .. 9.2e + 18 19 - 20 8 байт


Числа записываются таким образом: МАНТИССА е ПОРЯДОК.
Возьмём тип Real: 2.9е-39 означает 2.9 * 10-39 Т.е. мантиссу нужно умножать на 10 в степени, равной порядку!
Почему я сразу не стал так писать? Да просто такое представление естественно для языков программирования: напишите программу:
Program Test;
begin
writeLn (1.4)
end.

и вы увидите вот что: 1.4000000000E+00! Нам с вами, как программистам :) всё понятно, но вот как быть с пользователями? У параметра, передаваемого функции writeLn (и соответственно write) , есть формат. Вы можете указать в какой форме вам нужно вывести вещественное число. Например нам нужно вывести число 1.5432 Вот ваши шаги:Ваша программа То, что выводится на экран
writeLn (1.54321) 1.5432100000E+00
writeLn (1.54321:1) 1.5E+00
writeLn (1.54321:1:4) 1.5432
writeLn (1.54321:1:6) 1.543210

Формат состоит:
общее поле выводимой части
дробная часть (точность)

Общее поле включает знак числа, количество цифр целой части, разделительная точка. Дробная часть - это количествово цифр дробной части.
Если формат отведен больше, чем кол-во позиций, занимаемых числом, то пред целой частью добавляются пробелы, после дробной части - нули.
Ещё один пример: write (1.54321:10:1) выведет на экран такое ____1.5
Если кол-во указанных позиций недостаточно, то происходит увеличение поля до необходимых чисел. Также вы можете указывать формат целых чисел. Естественно, что мы можем использовать только общее поле.
Программа

Сегодня мы рассмотрим целых две программы:
Program Diapasons;

begin

writeLn ('byte: ', Low (byte), ' .. ', High (byte));
writeLn ('word: ', Low (word), ' .. ', High (word));
writeLn ('shortint: ', Low (shortint), ' .. ', High (shortint));
writeLn ('integer: ', Low (integer), ' .. ', High (integer));
writeLn ('longint: ', Low (longint), ' .. ', High (longint))
end.
Результат работы:
byte: 0 .. 255
word: 0 .. 65535
shortint: -128 .. 127
integer: -32768 .. 32767
longint: -2147483648 .. 2147483647
Итак тут появилось много всего нового! Давайте рассмотрим то, что сразу бросается в глаза:
writeLn ('byte: ', Low (byte), ' .. ', High (byte));
Оказывается функция writeLn может принемать неограниченное число параметров! Первый параметр это текст 'low: ', второй это результат функции Low... А кстати, что это за функция?
Функция Low (Х) возвращает минимальное значение переменной х. Тот же результат достигается, если задать в качестве параметра имя типа.
Функция High соответсвенно возвращает максимальное значение типа или переменной.
Соответственно мы могли написать:

Program Diapasons;
var
x : byte;
begin

writeLn ('byte: ', Low (x), ' .. ', High (x));
...................
Но прикинте на каждый тип сколько ж это переменных надо ??? (Правильный ответ - всего пять:))) Ну а теперь наверное самое интересное! Программа подсчета корней квадратного уравнения!
Program Decision_of_quadratic_equalation;

var
a, b, c, D : integer;
x1, x2 : real;
begin
writeLn ('Решение квадратного уравнения: 3*х^2 + 8*x + 5 = 0');

{ Инициализация начальных значений }
a := 3;
b := 8;
c := 5;

{ Вычисление дискриминанта }
D := sqr (b) - 4 * a * c;

{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 8 : 5);
writeLn ('X2 = ', x2 : 8 : 5)
end.
А вот и результат:
Решение квадратного уравнения: 3*х^2 + 8*x + 5 = 0
Корни уравнения:
X1 = -1.66667
X2 = -1.00000

Ну вот тут разбирать нужно уже по-больше :)))

Итак что это за строчки выделенные таким цветом??? И почему они на русском ??? Присмотритесь внимательнее... Присмотрелись? Ага!!! Они начинаются и кончаются с кривых скобок { } !! Замечательно! Ваша наблюдательность не имеет границ! :)))
Сразу вас разочарую, программы на русском писать нельзя :) Это комментарии. Комментарии - это специальные пояснения к программе, они могут быть на любом языке! Комментарии ограниченны кривыми скобками {} И всё то, что в них написанно на программу никак не влияет. Т.е. компилятор просто не читает эти строки. А эти пояснения очень нужны. Однако не стоит забывать закрывать комментарии!! Иначе можно сесть в крупную лужу, т.е. закоментить код, который вам нужен! Кстати есть ещё один способ задания комментариев:
{* Это комментарий *}
Вложенность одинаковых комментариев не допускается!!
Это неправильно:

{ Это комментарий
{ Это второй комментарий }
Это всё ещё первый }
Я показал цветом, где реально кончатся комментарий 1!!
Вкладывать можно только комментарии с различными скобками, т.е:
{ Это комментарий
{* Это второй комментарий *}
Это всё ещё первый }
Тут цвет так же всё демонстрирует.
Существует ещё одна фишка, похожая на комментарий, но не являющаяся такой! Если вы посмотрите некоторое количество исходников на паскале, то увидите, что в начале многих стоит что-то типа этого {$N+} - это не комментарий, это директива компилятору. Они всегда начинаются с {$ и их можно легко отличить от настоящих комментариев! Итак мы объявляем переменные a, b и с - целыми числами. Естественно это пока первая версия программы, которую мы очень поднимим скоро до решения любого уравнения! Ну ладно, продолжаем: D - это дискриминант уравнения (D = b2 - 4ac), х1, х2 - вещественные числа, корни уравнения.
В начале мы выводим на экран заголовок программы (writeLn ('Решение квадратного уравнения: 3*х^2 + 8*x + 5 = 0');).. Потом присваиваим нужные значения коэффициентам a, b и с. После этого вычисляем дискриминант. Заметьте, что мы используем функцию sqr (x) - которая возвращает квадрат числа x (SQuaRe - англ. квадрат). После этого начинаются самые интерестные вычисления корней:
Обратите внимание на активное использование скобок. Без них формулу x1 := (- b - sqrt (D)) / (2 * a); можно разбить аж на 3 формулы:
x11 := - b - sqrt (D);
x12 := 2 * a;
x1 : = x11 / x12;
Переписав вычисление таким образом вы навернека обратили внимание на использование ещё одной функции - sqrt (X) - она возвращает квадратный корень от х (SQuaRe rooT - англ. квадратный корень). Вообще нужно поакуратнее со скобками. Неправильное их использование может привести к следующему:
x1 := (-b - sqrt (D)) / 2 * a - тут мы сначала делим на 2, а потом результат деления умножаем на 2
x1 := -b - sqrt (D) / 2 * a - из -b вычитаем: корень из D, делённый на 2 и умноженный на a
Ну и напоследок, посмотрите, что х1 у нас равен -1.66667... Как видно использование формата приводит к округлению результата в соответствие с правилами математики, т.к. реально х1 = - 10 / 6 = - 1.(6)

Три волшебных слова: if-then-else
Желайте купить виагру онлайн? Buy viagra online к вашим услугам!


В прошлый раз, мы написали программку для подсчёта корней уравнения. Вот её текст:
Program Decision_of_quadratic_equalation;

var
a, b, c, D : integer;
x1, x2 : real;
begin
writeLn ('Решение квадратного уравнения: 3*х^2 + 8*x + 5 = 0');

{ Инициализация начальных значений }
a := 3;
b := 8;
c := 5;

{ Вычисление дискриминанта }
D := sqr (b) - 4 * a * c;

{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end.

Однако у тех, кто знает математику может возникнуть вопрос: А что если дискриминант отрицательный? Да для этого случая он положительный, но в общем ?
Вопрос вполне законен! Итак как же мы можем сравнить дискриминант с нулём?
В Паскале существует так называемый условный оператор. Вот как он выглядит:
if условие then
оператор1
else
оператор2
Давайте разберём его по полочкам или шкафам, у кого как :)
Итак при переводе на русский if - then - else означает если - то - ещё Можно сказать и так:
ЕСЛИ условие ТО
оператор1
В ДРУГОМ СЛУЧАЕ (ещё)
оператор2
Т.е. если условие истинно, то выполняется оператор1, а если ложно, то оператор2. Как же нам узнать истинно условие или нет? Для этого существуют операторы сравнения:

= Равно. Будем всё смотреть на примерах: А = В
Ложь, если А не равно В.
Истина, если А равно В. По этому поводу вспоминается анекдот:
- Чем программист отличается от обычного смертного?
- А тем, что в состоянии ответить на вопрос, в котором уже заключен ответ.
- Это как же?
- Ну, например, ответь на вопрос: сколько будет 2х2=4?
В самом деле, сколько будет 2*2=4, если взглянуть на это со стороны Паскаля ?
Итак '=' - это оператор равно. 2х2 равно четырём в математическом смысле. Программа сначала считает выражение слева 2*2 =4, потом справа - там просто 4. Потом сравнивает их. Так как 4 = 4 , то результат оператора РАВНО будет ИСТИНА! Поэтому нельзя путать := и = !!!!!! По ходу дела познакомимся с ещё одной функцией : ORD (X) - преобразует к целым числам логические выражения и символы. О символах мы поговорим позже. А пока рассмотрим такую програмку:

var
a : integer;
begin
a := ord (2*2 = 4);
wirteLn (a)
end.


Что же выведет на экран такая программа ? Ответ: 1, т.к. результат логического выражения 2*2=4 - это истина, а при переводе логического выражения в целое истина становится 1, а ложь нулём. Если бы мы написали так:
a := ord (2*2 = 5);
, то на экране увидили бы 0.

<> Не равно
А <> В
Ложь, если А равно В
Истина, если А не равно В
Этот оператор как бы обратное равно.
>,< - Больше / Меньше
A > B
Ложь если А меньше или равно В
Истина, если А больше В
A < B
Ложь если А больше или равно В
Истина, если А меньше В
>=, <= - больше или равно / меньше или равно
A >= B
Ложь если А меньше В
Истина, если А больше или равно В
A <= B
Ложь если А больше В
Истина, если А меньше или равно В
Замечательно теперь мы можем проверить дискриминант с 0:
if D>0 then
выводим сообщение об ошибке
else
считаем корни
Вторая часть (начиная с else) может отсутствовать. Например такой код:

a := 2; if a<3 then
a := a + 3; { Эта строчка никогда не выполняется!}
writeLn (a);

Но немного изменив текст:
a := 2;
if a<3 then
a := a + 3 { Эта строчка никогда не выполняется!}
else
a := 4; { Эта строчка всегда выполняется!}
writeLn (a);
Однако, что делать если нам нужно написать не одну строчку (a := a + 3), а сразу 5??? Тогда нам нужно выделить эти операции в блок, начало которого отмечается словом begin, а конец end. Т.е. например так:
if D >= 0 then
begin
{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end
else
begin
{ Корней нет }
writeLn ('Данное уравнение не имеет корней!');
writeLn ('Попробуйте ещё!')
end;

Очень часто может потребоваться использовать вложенные операторы условия. Как например понимать такую запись:
if a<3 then
if b>3 then c := 4
else c := 5;

А теперь внимание вопрос: к какому if относится в данном случае else?? минута пошла :)) Правильный ответ: ко второму!
Или по-русски: else ассоциируется с ближайшим if, которое ещё не связанно со словом else, т.к. при такой конструкции:
if a<3 then
if b>3 then c := 4
else c := 5
else c := 6;

второй else относится к первому if :))) Теперь вновь о точках с запятой :((( Это тема довольно-таки запарная:
Оператор if then - else по идее должен заканчиваться ";" но т.к. после else идут операторы, то последняя строчка относящаяся к else должна кончаться ";"
Вот он пример: между if и else ";" быть не должно, ";" ставится после последнего оператора, принадлежащего else:
if условие then
оператор1 { После оператора1 ";" не нужна ! }
else
оператор2 ;{ А вот после второго операторы она обязательна }
На сегодня с теорией покончено!

Программа

Ну а сегодня мы сделаем полную програму решения квадратных и заодно линейных уравнений. Однако сначала - мат.часть. "Даже самая маленькая практика стоит большой теории!" - прочитал в учебнике по физике :)
Итак мы помним, что корни квадратного уравнения можно найти следующим образом:
x1,2 = - b ± (b2 - 4ac)1/2
2a
Давайте рассмотрим, какие ограничения налагает на нас использование этой формулы:
Ну прежде всего, коэффициент а не должен быть равне 0 (иначе это уже линейное уравнение, его мы рассмотрим ниже)
Дискриминант должен быть положительным (комплексные корни мы пока не рассматриваем)
Если это выполненно, то значит мы можем воспользоваться формулой (*) для вычисления корней.
Теперь рассмотрим случай, когда а = 0, т.е. наше уравнение вырождается в линейное. Тут только одно ограничение: коэффициент b не должен быть равным 0.
Ну и самое простое: если b = 0, то тогда проверим с на совпадения с нулём. Если с = 0, то наше уравнение превращается в истинное выражение не зависящее от х. (0 = 0). Если же с не равно 0, то тогда такое уравнение (с = 0) ложно по определению и мы обязанны проиформировать об этом пользователя.
Долго получилось, но без этого нельзя - надо знать врага в лицо! Чем больше вы знаете о задаче, тем легче её решить! Ну вот и сама программа:

Program Decision_of_quadratic_equalation_Release;

uses CRT;

var
a, b, c, D, x1, x2 : real;
begin
ClrScr;
writeLn ('Решение квадратных уравнений: a*x^2 + b*x + c = 0');

{ Инициализация начальных значений }
Write ('Введите коэффициент a: ');
ReadLn (a);
Write ('Введите коэффициент b: ');
ReadLn (b);
Write ('Введите коэффициент c: ');
ReadLn (c);

{ Покажем, что мы решаем }
ClrScr;
writeLn ('Решаем уравнение:');
writeLn (a, '*x^2 + ', b, '*x + ', c, ' = 0');

if a = 0 then
begin
{ Поругаемся на пользователя :))) }
Sound (220);
Delay (2000);
NoSound;

writeLn ('Это не квадратное уравнение! (a = 0) ');

{ Но всё же подсчитаем корни... }
{ Однако b тоже не может быть равно 0 в этом случае }
if b = 0 then
begin

{ Если с = 0, то 0 = 0 истинно! }
if c = 0 then
writeLn ('Условие истинно для любых х!')
else
writeLn ('Условие ложно!')
end
else
begin
x1 := - c / b; { Только один корень! }
writeLn ('Корень уравнения:');
writeLn ('X = ', x1)
end
end
else
begin

{ Вычисление дискриминанта }
D := sqr (b) - 4 * a * c;

if D>0 then
writeLn ('Рациональных корней нет! Дискриминант = ', D)
else
begin
{ Вычисление корней }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);

{ Вывод результата }
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end
end;

ReadLn
end.

Оно конечно длинновато, но того стоит!
Итак первое, что бросается в глаза: uses CRT; - Что это такое?? Директива подключения модуля (uses - использовать) - т.е. мы хотим использовать функции модуля CRT - это модуль для создания красивостей программ - цвет, звук, окошки (типа как у BP), экран (в текстовом режиме). Вот я и решил использоать какие-то функции из него и поэтому "сказал" компилятору, что было бы не плохо подключить его, что бы компилятор знал, какие функции там содержатся. Описание функций модуля CRT можно найти следующим образом: Shift+F1 - CRT Unit - появится окошко с общими словами о модуле и ссылками на константы и функции модуля. Модуль - это отдельный файл с функциями. Например вам не хочется по сто раз в каждой программе писать одну и туже функцию, тогда вы создаёте модуль с этой функцией и просто подключаете его к программе с помощью uses! О том, как делать модули мы поговорим позже. ClrScr; - вызываем функцию очистки экрана (CLeaR SCReen - очистить экран), что бы не осталось инфы от других программ! Заметьте, что функция не получает параметров и поэтому просто пишется её имя! Эта функция из модуля CRT (!)
ReadLn (a) - эта функция ввода числа а с клавиатуры. Как бы обратная функции writeLn :) При этом внутри её стоит обработчик ошибок - попробуйте вместо числа ввести слово и получите уведомление об ошибке!
{ Поругаемся на пользователя :))) }
Sound (220);
Delay (2000);
NoSound;
Функция Sound (HZ) - заставляет пищать спикер с частотой HZ в герцах. Кстати любопытная информация, которой не содержится в help'e к паскалю, а вычитал я её из help'a по С: Около одной из птицеферм в Австралии был комп, которы издавал звук с частотой 7 Гц. Однако 7 Гц - это резонансная частота черепа цыплёнка и соответственно все цыплята умерли :(( (Вот она - идея звукового оружия) Но не стоит пытаться повторить этот эксперимент: 7 Гц эта частота, кажется называется ультразвуком, не слышима человеком! К тому же там же написанно, что некоторые компьютеры неспособны воспроизводить эту частоту!
Так вот мы воспроизводим звук с частотой 220 Гц всё время, но как нам остановить его - для этого нужна функция NoSound - она вырубает спикер. Спикер будет пищать пока вы не вызовете функцию NoSound !!! Соответственно нам нужно сделать задержку между вызовами Sound и NoSound. Для этого есть специальный "остановщик" выполнения программ - функция Delay (MilliSeconds) - параметр, как вы догадались указывает на сколько милли секунд нужно остановить выполнения программы, после истечения 2000 мс программа продолжит своё выполнение, однако что бы спикер запищал мы должны послать только один "сигнал", что мы и делаем функцией Sound! Получив сигнал спикер начинает пищать как бы отдельно от программы! Он так и будет пищать до тех пор, пока мы не вызовем функцию NoSound! Ну и ещё одно в предпоследней строке мы вызываем функцию ReadLn без параметров. Что бы это значило? А значит это, что нам до балды, что введёт пользователь - главное, что бы он нажал ENTER!!! На этом неизвестные функции закончились. Отладка - краткий курс молодого отладчика :)
Итак Отладка (дебаг - debug) - поиск ошибок в программе. Сейчас искать ошибки мы не будем. Мы просто посмотрим как выполняется наша программа изнутри!
Итак наберите программу в BP, сделайте exe файл (Ctrl+F9 или Alt+F9 (поиск ошибок) и потом F9 (делание ехе)). Итак тут много конструкций If - else, как узнать какая когда работает?? Очень Просто! Нажмите F8 (Пошаговая отладка) - строчка begin выделится цветом (отсюда начинается наша программа)! дальше нажимая F8 мы перейдём к строчке ClrScr; т.е. мы сделали один шаг в нашей программе! Проследить, что же было с экраном за время шага можно нажимая Alt+F5 (во время первого шага (begin - ClrScr;) - копирайты борланда, во время второго (ClrScr; - writeLn) - экран очистится, т.е. вызов функции очистки прошёл успешно). Обратите внимание, что дойдя до строчки, где что-то требуется ввести мы увидим рабочий экран программы, т.к. её выполнение приостанавливается на это время. Жмите F8 и вводите числа, пока мы не дойдём до первого if. Если вы ввели а не 0, то вы заметите, что мы сразу проскочим большой кусок программы и перейдём на выполенения условия else, а если а = 0, то else вы не увидите! Когда эта подсветка исчезнет значит программа закончилась! Что бы прервать программу в середине отладки, если вам известен результат, нажмите Ctrl+F2. Итак это только одна из возможностей Отладчика. Остальные мы изучим после. Однако поэкспериментируйте с различными числами, посмотрите по каким веткам идёт программа.
Как научиться читать программы ?

Читать программы, особенно чужие, это всегда очень сложно. Если вы новичок в этом деле, то вот несколько советов, которые взяты из личного опыта:
Всегда начинайте сначала. Прочитайте коментарии перед программой, если они есть.
Читайте программу последовательно - строка за строкой.
Пытайтесь понять, что делает каждая строка.
Если вы всё таки не поняли, то переходите к следующей строке.
Эта последовательность действий похожа на процесс работы компилятора, только если он не понимает строку, то выдаёт сообщение об ошибке. Например прочитаем нашу программу из этого выпуска:

Program Decision_of_quadratic_equalation_Release;
Вы можете подумать следующее: "Гм, очевидно это программа! И если не врёт имя, то она решает квадратные уравнения!"
uses CRT;
"Это что-то новое, наверное, раскажут ниже. Пока пропустим"
var
a, b, c, D, x1, x2 : real;
"Ага! Это точно переменные!"
begin
ClrScr;
"Выглядит страннова-то, догадываюсь, что лучше этот кусок пропустить." .....................
if a = 0 then begin
{ Поругаемся на пользователя :))) }
Sound (220);
Delay (2000);
NoSound;
"Это какие-то технические подробности, в них лучше пока не суваться" ..............
end
end
else
begin
"Причудливое сочетание ! Наверное так надо."
{ Вычисление дискриминанта }
D := sqr (b) - 4 * a * c;
"Понятно, дискриминант считается по этой формуле!" ..................
end.

"Ну вот уже и конец :( А ведь я только разошёлся... посмотрю ка я ещё разик, те непонятные строчки! " Если у вас есть принтер, то тексты программ лучше печать - так удобнее их читать. Программу лучше вводить своими руками - так всё быстрее запомнится. Посмотрите программы из рассылки смотрите сначала целиком, выделяйте непонятные моменты. Потом читайте комментарии и постарайтесь решить все вопросы.
Что делать, если программа не запустилась?
Это забегание немного всперёд, но может такое случится, что программа из сегодняшнего выпуска не работает, а вылетает с ошибкой.Ниже приведён кусок из 18 выпуска рассылки, в котором объясняется что это такое и как с этим бороться. [13.12.02] Ну и главная новость: на сайте появился патч к BP. Поводом к его появлению послужило такое письмо:

Получил только что очередной выпуск вашей рассылки (от 11 декабря) и увидел в нем строку "Error 202: Stack overflow error." Это напомнило мне об одной проблеме, которая преследует владельцев современных компьютеров при создании программ на Паскале. Это та самая ошибка 200, которая вылезает неизвестно почему в самый неподходящий момент.

Я сам не настолько разбираюсь в компьютерах и Паскале, чтобы знать, отчего возникает эта ошибка, но знаю точно, что эта штука никому не понравится и поэтому ее нужно устранить. Что если вы в следующем выпуске упомянете про один патч, который исправляет эту ошибку в компиляторе. :) А то получится нехорошо - захотел человек написать программу, а тут откуда ни возьмись выскакивает эта самая "Error 200". Понятно, разбитой клавиатурой дело не кончится. :) Если что, высылаю вам этот патч аттачем.

Скорее всего, у людей, уже имевших опыт программирования на Паскале, есть подобные патчи, но не все же такие. Можно разместить его у вас на сайте, например, в "Инструментах". Ну и, конечно же, нужно дать описание того, как с ней работать. Вот такие вот дела. Runtime error 200 (Division by zero) возникает из-за ошибки в процедуре delay. Даже, если эта процедура не вызывается, она возникает при инициализации CRT. Суть этой ошибки в том, что время измерялось через производительность процессора, которая сейчас очень увеличилась.

Зацикливаемся.

_________________________________________________________________________
Недавно купил сестре аксессуары для мобильных телефонов, ей очень понравился подарок, а мне обслуживание! Всем рекомендую.
_________________________________________________________________________
Нашёл интернет магазин, где можно купить отличнейшие копии швейцарских часов, вот вам даже картинчка, полюбуйтесь сами! Буду заказывать!
_________________________________________________________________________
Современная стильная мебель для офиса ещё никогда не была на столько доступной! Офисную мебель теперь можно приобрести через интернет - смотрите каталоги, понравилось - заказывайте!
_________________________________________________________________________


Сегодня мы поговорим о циклах. Что это такое? Давайте представим, что вам необходимо вывести на экран слово ПРИВЕТ! двадцать раз. Писать: writeLn ('ПРИВЕТ'); 20 раз !!! А если нужно сто раз? А если заранее неизвестное число раз?? Как быть? Вот тут и нужны циклы.
Цикл - кусок кода, который повторяется определённое число раз (бесконость - это тоже определённое число раз!).
Цикл FOR

Этот цикл наиболее часто используется в программах ввиду его чрезвычайной удобности. Итак знакомтесь, цикл for!
Давайте рассмотрим его использованние на примере с выводом слова привет на экран. Да давайте оговоримся, что будем опускать стандартные куски программы типа Program, var, begin, end. И ещё одно соглашение об именах переменных: обычно именами i и j дают переменным целого типа и их объявление мы тоже будем опускать. Итак пример:
for i := 1 to 20 do
writeLn ('Привет!');

Цикл записывается так for переменная_цикла := начальное_значение to конечное_значение do операторы; В нашем примере мы взяли в качестве переменной цикла взята переменная i, начальное значение 1, конечное - 20. Что это значит? А это значит, что цикл будет выполняться для i = 1, 2, 3, 4, 5 ... 19, 20. Т.е. 20 раз. Каждый раз мы прибавляем к i еденицу. При этом начальное и конечное значение переменной цикла может задаваться численным выражением (например for i := 1 to 3*65 do ....) или выражением с переменной (например for i := X + Y to X * Y / Z + 45 *j do ....). При этом эти значения вычисляются компилятором один раз перед выполнением цикла. Например, результат такой программы:
Program Test;

var
i : integer;
x : integer;
begin
x := 10;
for i := 0 to х do
begin
writeLn (i, ' ', x);
x := x + 2
end
end.
Будет таким :
0 10
1 12
2 14
3 16
4 18
5 20
6 22
7 24
8 26
9 28
10 30

Как видите предел i не поменялся, хотя х мы меняем! Использую цикл for нужно соблюдать следующее правило: не нужно менять переменную цикла (т.е. ту переменную, по которой идёт цикл, у нас это была i) внутри него.
Есть ещё один альтернативный вариант цикла for, который используется, когда считать нужно не "снизу вверх" а "сверху вниз". Например мы хотим изменять i не от 1 до 20, а наоборот от 20 до 1. Тогда наш цикл примет вид:
for i := 20 downto 1 do
writeLn ('Привет!');
Теперь i = 20, 19, ... 2, 1. А так всё аннологично. Основное неудобство состоит в том, что мы не можем задавать закон изменения переменной цикла. Однако и это не так страшно, как кажется на первый взгляд.
Цикл WHILE
Цикл номер два: while! Этот цикл называется циклом с предусловием. Записывается он так:
while условие do оператор;
Такой цикл выполняется пока условие истинно. И прекращается в противном случае. Например такой цикл:
while 1 do
writeLn ('Привет!');
Приведёт к "зависанию" компьютера, т.к. выражение 1 всегда истинно (не могут же быть числа ложными). выйдти из этого цикла можно нажатием клавиши Ctrl+Break (Ctrl+C) - стандартный выход из ДОС программ. Проверка истистинности условия проводится как и в операторе if.
Давайте покажем, как оператором While можно заменить for:
i := 1;
x := 10;
while i <= x do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Попробуйте этот код... ну как эффект не тот? :) Давайте разберёмся в чём дело. А вся проблемма в том, что условие (максимальное значение) для цикла for считается зарание один раз заранее! А у нас оно всё время меняется. Ок. Теперь посмотрите результат программы: она останавливается при i = 32 757. Давайте посмотрим ещё один вариант:
i := 1;
x := 10;
while i <> x do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Запустите и подождите немного.... СТОП! А откуда там отрицательные числа?? Ведь мы прибавляем каждый раз по 1 и 1, т.е. i и х растут ??? Давайте разберёмся по подробнее. Что из себя представляет числовая прямая? Это окружность максимального радиуса, т.е. радиуса бесконечность. Такая окружность вырождается в прямую. Однако для целых чисел (типа integer) эта "бесконечность" известна - 32767 (помните выпуск Типы данных?). Счечик i можно представить, как точку, которая движется по этой окружности. Когда i доходит до максимума, то она становится отрицательной, т.е. -32767!! А помните предыдущий пример, где всё останавливалось при x = 32 767. Почему так вышло? Прибавляя к х = 32767 один что мы получаем: x + 1 = -32767 !!!! А условие цикла у нас стоит i <= x т.е. когда х = 32 767 i = 32 757, далее х + 1 = -32 767 i + 1 = 32 758 т.е. условие i <= x не выполняется! И поэтому мы выходим из цикла!
Поэтому аккуратнее с максимальным значение integer, оно не такое большое, как может показаться! Теперь напишем нормальный вариант цикла for через цикл while:
i := 1;
x := 10;
Temp := x;
while i <= Temp do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1
end;

Здесь мы заранее посчиталь верхнюю границу цикла в переменную temp и тем самым всё работает правильно.
Ну и напоследок...

Ну вот мы подошли к последнему циклу. Он называется цикл с постусловием, цикл: repeat-until ! Этот цикл в общем и целом анологичен while, но есть два отличия. Вот как он записывается: repeat оператор until условие;
Итак его отличия от while:
самое важное: проверка условия совершается после выполнения оператора. Таким образом этот цикл обязательно выполнится хотя бы один раз. В то время как while, может и не выполняться ни разу.
не самое важное, но очень нужно запомнить, что критерием прекращения цикла является тот случай, когда условие истинно, а если оно ложно, то цикл продолжится! В то время как в while абсолютно противоположная ситуация.
Давайте же рассмотрим какой-нить пример:
i := 10;
repeat
writeLn (i);
i := i - 1
until i = 0;

Этот цикл выполняется пока i не равно нулю. Т.е. для значений i = 10, 9, 8 ..... 2, 1. Обратите внимание, что мы не используем операторы begin-end т.к. этот цикл доспукает использовать в своём теле сколько хочешь операторов в отличие от while и for. Вот написал и вспомнил о том, что не сказал, что такое тело цикла :( Вот дырявая башка! Итак тело цикла - это та последовательность операторов, которая выполниется. Т.е. например все операторы между repeat и until - это и есть тело цикла.
Программа

Итак сегодня мы продолжим изучать Отладчик и напишем ещё одну программу.
Наша новая программа - факториал! Что такое факториал? По определению факториал числа n (обозначается n! ) n! = 1 * 2 * 3 *....* (n-1) * n - т.е. перемножение чисел от 1 до n. Итак вот программа:
Program Factorial;

uses CRT;

var
n, i : integer;
Result : longint;
begin
ClrScr;

Write ('Какое значение? ');
ReadLn (n);

Result := n;

for i := 0 to n do
begin
Result := Result * i
end;

writeLn ('Результат: ', Result);
ReadLn
end.

Давайте же помотрим результат!!!! Запускаем вводим число... ЧТО ЭТО ЗА НАФИГ??? Почему 0? ... запускаем вновь ... опять 0! Досада. Видимо в программу залезла логическая ошибка! Ну вот теперь мы познаем всю мощь отладчика!
Итак строки:
begin
ClrScr;

Write ('Какое значение? ');
ReadLn (n);

Выглядят довольно понятно и ошибка явно не в них. Так зачем же нам тратить наше драгоценное время на их пошаговое исполнение? Давайте сразу же перейдем к следующей строке. Наведите на неё курсор и нажмите Ctrl+F8 (меню Debug - > Add breakpoint) Она подсветится красным цветом. Что же такого чудесного мы сделали? А вот что: мы добавили breakpoint (по-русски: брякпоинт, бряк:) - точку остановки. Когда исполнение программы дойдёт до этой строчки, то мы сразуже перейдём в режим по-шагового исполнения. Увидите список бряков можно Debug -> Breakpoints.
Итак бряк есть, теперь нам нужно всё время смотреть, что же у нас в переменной Result. Этого можно добится двумя путями.
Добавить внутрь цикла строчку типа: writeLn (Result);
Использовать отладчик.

Второе на мой взгляд несколько предпочтительнее :) Давайте сделаем вот что: выберем Debug -> Add Watch или Ctrl+F7 - в появившемся диалоге укажем имя нашей переменной: Result (в поле Watch expression) Появится окно watches (если не появилось, то Debug -> Watch). В нём вы увидите значение переменной Result. Так же можно для практики добавить туда и переменные i и n. Так тепрь мы можем наблюдать, что же там внутри и как меняются переменные. Ну вот, теперь запускаем программу (Ctrl+F9), вводим для примера 5 и сразу же оказываемся внутри программы.
Заметьте, что у нас такие значения: Result = 0, i = 0, n = 5. Давим на F8 (не забыли что это такое:) Result изменился с 0 на 5 (делаем вывод: оператор := работает правильно, ошибка не в нём :)))) Входим в цикл (давим F8)... Заметьте, что я специально добавил в цикл конструкцию begin-end (в неё нет надобности). Я это сделал, что бы при отладке внутри цикла у нас подсветка двигалась :) а иначе она просто будет висеть на строчке: Result := Result * i; и создаётся впечатление остановки программы. Итак проходим первый этап цикла (i = 0) опа!! Вот оно! Result сразу же изменился на 0 ! Давайте посмотрим, что же будет дальше... а дальше он так и останется 0. Можно заметить, что мы умножаем Result на i, но ведь в начале цикла i = 0 т.е. мы умножаем на 0 и поэтому Result всегда 0! УРА! Нашли ошибку! Прервём исполнение программы (Ctrl+F2). Для устранения ошибки мы сделаем следующее: в цикле i должно изменяться от 1 до n. Я надеюсь, что переписать программу для вас не составит труда. Итак исправим, уберём бряк (на той строчке Ctrl+F8) Запустим программу... ВОТ ЧЁРТ! Теперь Result не 0 но очень уж большой!!!! В чём же дело?? Давайте повторим всё заново: поставим бряк и запустим её снова... введём 5... Постойте ка а почему это у нас Result в начале равен 5?? Ведь факториал это произведение от 1 до n ??? Да вот же в чём дело! Мы вначале присваиваем Result := n; А надо так: Result := 1; Теперь всё нормально!
Давайте удалим всю отладочную информацию: Очистим все бряки (Debug -> Breakpoints . кнопка Clear All) Удалим все просмоторщики (в окне watches правая кнопка мыши из меню Clear All) и выполним программу заново. Ещё одна мелочь, которая не сразу бросается в глаза: переменная Result у нас типа longint, однако и этого не достаточно, что бы вместить факториалы чисел больше 31! Как подсчитать факториал для любых чисел мы поговорим попозже. Обязательно поговорим!

Выборы..

_________________________________________________________________________
Следите за собой? Вашему вниманию предлагаются высококачественные товары для красоты и здоровья!
_________________________________________________________________________
Недавно купил фильмы на DVD прямо через интернет. Сразу скачал, посмотрел. Качество наилучшее - очень удобно!
_________________________________________________________________________
Вчера заказал себе 2 майки с веселыми логотипами, скоро должно прийти! А вообще ещё есть очень много интересно товара, включая значки.. Посмотрите сами!
_________________________________________________________________________


Сегодня мы говорим об операторе выбора. Оператор выбора позволяет выбрать одно из нескольких возможных продолжений программы. Параметром по которому осуществляется выбор служит так называем ключ выбора, который может быть любого типа. Структура оператора выбора выглядит несколько страшно :):
case ключ_выбора of список_выбора else операторы end;

Список выбора при этом состоит из нескольких конструкций вида выбор : оператор; Давайте рассмотрим такой пример (он правда не очень актуален, но....) : пользователю нужно ввести число (у нас оно будет хранится в переменной day), а мы выведем по нему день недели:

case day of
1 : writeLn ('Понедельник');
2 : writeLn ('Вторник');
3 : writeLn ('Среда');
else
writeLn ('Какой-то другой день.');
end;

Итак ключ выбора - это у нас day. Для него мы составляем список выбора - список возможных значений и что мы будем делать при этих значениях. Так если day = 1, то мы выведем Понедельник, если 2 - Вторник и т.д. Часть, которая начинается с else может отсутствовать - она схожа с частью оператора if-then-else. Поэтому она выполняется, если ключ выбора не удовлетворяет ни одному условию из списка. У нас она выполнится, если day не равен 1, 2 или 3, например при day=0 или day=4.

О том, что никогда не меняется - константы! Константы - это переменные, которые не могут изменять своего значения (или переменные - это константы, которые его меняют :) Так вот константы - это очень важная часть программы, для их описания выделена целая сексия. Константы имеют имя и значение. Секция констант начинается со слова const. Эта секция обычно распологается перед секцией переменных. Теперь шаблон у нас превращается в нечто более сложное:
Program ИмяПрограммы;
uses список подключаемых модулей;
const
Здесь идёт объявление констант.
var
Здесь идёт объявление переменных.
begin
Здесь идёт текст программы.
end.

Объявить константу можно следующим образом: ИМЯ_КОНСТАНТЫ = ЗНАЧЕНИЕ; Обратите внимание, что мы пишем просто равно, без двоеточия! Например напишем программу, которая считает число П/2 (П = 3.14259265)
Program PI_DEL_TWO;
const
pi = 3.14159265;
var
pid2 : real;
begin
pid2 := pi / 2
end.
Константы могут быть не только числовые, но и текстовые. Например
const
Text = 'Hello, World!';
begin
writeLn (Text)
end.

- ещё одна вариация на тему hello world! Зачем нужны константы, ведь вполне можно использовать численные значения ? Константы нужны для удобства! При компиляции они автоматически заменяются своими значениями. Но например, если это число нужно изменить ? (число П не изменишь, но например стоимость товара или ширина шкафа) Тогда просто меняете значение константы, номер версии программы на 1.01 и получаете совершенно новый продукт :)
Программа

Давайте сегодня напишем маленькую ходилку - нажимая на клавиши будем двигать курсор по экрану. Управление выберем самое примитивное.... нет не стрелки :) ... они как не странно несколько сложнее, а буквы w, a, s, d. Выход из программы будем осуществлять по клавише ESC. Для передвижения курсора нам понадобится функция gotoxy (X, Y) - передвижение курсора на координаты X,Y. При этом левому верхнему углу экрана соответсивуют координаты (1,1) а правому нижнему (80, 25). Это функция из модуля CRT.
Program CURSOR;

uses CRT;

const
LEFT = 'a';
RIGHT = 'd';
UP = 'w';
DOWN = 's';
ESC = 27;

var
x, y : integer;
key : char;

begin
ClrScr;

key := #0;
x := 1;
y := 1;

while key <> chr (ESC) do
begin
key := readkey;

case key of
LEFT : begin
if (x - 1) >= 1 then
x := x - 1
else
x := 80
end;
RIGHT : begin
if (x + 1) <= 80 then
x := x + 1
else
x := 1
end;
UP : begin
if (y - 1) >= 1 then
y := y - 1
else
y := 25
end;
DOWN : begin
if (y + 1) <= 25 then
y := y + 1
else
y := 1
end
end;

gotoxy (x, y)
end
end.

Что сразу бросатеся в глаза ? Наверное key := #0; - что это за #0 ? Значек диез "#" означает, что это не число, а символ! Существует так называемая таблица символов, каждый символ имеет в ней свой номер. Например весёлая рожица - #1, цифра 0 - #48, буква Ъ - #154, буква ъ - #234. Заглавные и строчные буквы имеют разные номера. Символы можно выводить с помощью функции write, например write (#1, #32, #2) - посмотрите, что выйдет (#32 - символ пробела). Вот мы и присваиваем переменной key символ под номером 0! key - переменная типа char (анг. символ). Переменные типа char имеют размер в 1 байт и принемают значения от 0 до 255. В переменных x и y - у нас хранятся координаты. В начале мы присваем им значения 1,1 - т.к. после выполнения Clrscr курсор перемещается в эту точку. Цикл while у нас идёт с условием key <> chr (ESC). Функция chr (X) преобразует целое число к символу. Константа ESC имеет значение 27 - код клавиши ESC, однако мы помним, что Паскаль - строго типизированный язык, поэтому мы должны преобразовать целое число 27 к символу 27! key := readkey; - функция readkey считывает символ с клавиатуры, не выводя его на экран и возращает его. Теперь вырисовывается алгоритм :) программы - считываем клавишу с клавиатуры, проверяем его на совпадение с функциональными клавишами. Цикл выполняется, пока мы не нажмём клавишу ESC. Эта программа представляет собой упрощение алгоритма лежашее в основе многих игрушек.

Потерпевший признался в оговоре осужденного мэра Тамбова

_________________________________________________________________________
Нужна удобная и недорогая мебель для офиса? Тебе в интернет магазин мебели! Мебель качественная, персонал работает как часы. Рекомендую!
_________________________________________________________________________
Недорогая аренда сервера в Германии - качество европейское! Сервера на Нет-Директ.ру!
_________________________________________________________________________
Не понимаете зачем тратить множество денег если можно приобрести недорогую, но качественную копию чего либо? Приобретайте качественные копии телефонов Верту по низким ценам!
_________________________________________________________________________


Потерпевший по делу осужденного на девять с половиной лет бывшего мэра Тамбова Максима Косенкова добровольно явился в прокуратуру и заявил, что оговорил подсудимого, сообщает "Интерфакс".

В прокуратуре Ленинского района Тамбова агентству подтвердили, что 7 августа Виталий Бабий явился в сопровождении адвоката и подал соответствующее заявление. По информации источников агентства, Бабий заявил, что "его замучила совесть". По словам Бабия, он оговорил Косенкова под давлением некого сотрудника правоохранительных органов.

Прокурор Оксана Галкина сообщила агентству, что изложенные в заявлении доводы будут проверены и "получат надлежащую оценку". В прокуратуре уточнили, что если информация об оговоре подтвердится, Бабию грозит до пяти лет лишения свободы за лжесвидетельство.

Отбывающий срок в одной из мордовских колоний Косенков был задержан 16 апреля 2008 года в Москве. Его обвинили в похищении неработающего гражданина Украины Виталия Бабия, 1988 года рождения.

18 апреля Симоновский суд санкционировал арест Косенкова и его водителя Виталия Сычева. Третьим подозреваемым по делу был также задержанный неработающий житель Твери Максим Миронов.

Косенкова обвинили в том, что он вместе с сообщниками похитил в Москве, перевез в Тамбов и там насильно удерживал гражданина Украины Виталия Бабия. 19 января Нагатинский суд Москвы приговорил Косенкова к девяти с половиной годам лишения свободы в колонии строгого режима.

На суде Косенков своей вины не признал, он также опровергал версию об интимной связи с потерпевшим. Более того, адвокаты бывшего мэра Тамбова заявили, что Бабий, которого Косенков взял на работу "присматривать за домашними животными" в феврале 2008 года исчез, "прихватив из дома Косенкова 100 тысяч рублей и золотой слиток".

Двое других подсудимых также были признаны виновными в похищении человека. Сычева приговорили к 10 годам лишения свободы в колонии особого режима, а Миронова - к семи годами и семи месяцам в колонии строгого режима.


**
dane4ka.ru – обычный блог обо всем на свете в лучших традициях рунета ;)
Cкандалы, слухи, расследования.

Концерт The Prodigy в Минске рекламируют на яйцах




Организаторы гастролей знаменитой британской группы The Prodigy в Белоруссии придумали неожиданный рекламный ход - рекламу концерта напечатали на… куриных яйцах.
На продукции одной из белорусских птицефабрик появилась следующая надпись "05.10 ст. Динамо The Prodigy".
Это полностью соответствует действительности - концерт звезд электропанка состоится 5 октября этого года в Минске на стадионе "Динамо" в рамках фестиваля UltraMusicFеstival.

Источник: MIGnews.com.ua


_________________________________________________________________________
Опытные ветеринары займутся лечением кошек, собак и других Ваших домашних питомцев в секунду обращения! Советую.
_________________________________________________________________________
Желаете сделать искусственные водоемы? Сайт promecologiya.com.ua подскажет что к чему!
_________________________________________________________________________

Полосы - легко и элегантно




Этот дизайн ногтей хорошо будет смотреться на длинных ногтях. Новички смогут легко его выполнить, так как в этом дизайне используется не сложная техника рисунка акриловыми красками. Главная идея – узор дерева, выполненный на серебряном фоне, лично мне напоминает берёзку.

Вам потребуется:

* *1 лак: серебренный блеск (для фона);

* *2 цветных акриловых краски: черная для линий;
* Белая акриловая краска
* белая для линий;

* *Тонкая кисть;
* *Закрепляющий слой;

Делайте каждый шаг этого дизайна сразу на всех ногтях, например нанесите фон на все ногти, затем нарисуйте черное пятно на всех ногтях, после - белые полосы также для всех ногтей. Этот метод сэкономит Ваше время, Ваши изображения будут схожи, а акриловые краски не успеют высохнуть до того как вы закончите.
как делать

Шоколад снижает смертность




Пациенты, перенесшие сердечные приступы, защищаются от риска смерти, съедая шоколад хотя бы два раза в неделю.
Меньшие количества обеспечивают незначительную защиту от коронарной смерти.
Как пишет Неболей, более ранние исследования зафиксировали сильную связь между продуктами, содержащими какао, и понижением артериального давления. Также было отмечено, что такая пища снижает смертность среди пожилых мужчин и женщин.
Ученые из Каролинского института (Швеция) доказали, что шоколад помогает людям после инфаркта. Антиоксиданты в его составе обеспечивают защиту от свободных радикалов – молекул, которые накапливаются в организме, разрушая клетки и приводя к заболеваниям.
В исследовании приняло участие 1169 человек в возрасте от 45 до 70 лет после того, как был зарегистрирован их первый сердечный приступ. Они заполнили анкеты, касающиеся питания до госпитализации, а затем их обследовали на протяжении восьми лет.
Оказалось, что потребление шоколада снижало в три раза риском смерти после инфаркта.


_________________________________________________________________________
Дёшево купить книгу, необходимую Вам, в наше время проще и дешевле через интернет!
_________________________________________________________________________
Желаете увидеть настоящие суперкары? Множество фотографий (и кое что ещё!) собрано на сайте carsweek.ru
_________________________________________________________________________
Желайте почитать записки лондонского бурундука - фрилансера? Вам на temza.com! :)
_________________________________________________________________________

Поделки из косточек





Вчера вечером ела персик и вспомнила, как на море в лагере у нас делали поделки из этих самый косточек персика! И надо заметить получались отличные серьги, колечки! Решила по этому случаю пост сделать, как раз время собирать материал на поделки! А потом уж можно будет и мастерить, в том числе с нашими детками. Итак. Как же можно использовать персиковые и не только косточки.
Читать далее...

Афоризмы о женщинах

 01. Всякая хитрость ничтожна по сравнению с хитростью женщины. Библия.

02. Надо уметь часто повиноваться женщине, чтобы иметь право иногда ею повелевать. В. Гюго.

03. Женщина подобна общему правилу: правило, как и женщина, во многих случаях имеет исключение. Античный афоризм.

04. Женщины отдаются Богу, когда дьявол уже не желает иметь с ними дело. С. Арну.

05. Женщина смеется, когда может, и плачет, когда хочет. Ж. Баиф.

Читать далее...

Бесит меня моё состояние..

Я бью кружки...я истерю..я постоянно задаю подруге вопрос-"ТЫ правда веришь,что мы помиримся?"

Бесит.Не могу..

Больше не могу..Убила бы(с)

внутри меня уже нет ни чего.
выжгло..
чем?
тобой, наверное.
у меня нет ни каких ощущений
ни каких чувств
нет.пустота.большой ноль.и все.
но...
почему при виде тебя online вконтакте.
или...
видя тебя у кого то в мсне
я обязательно зайду, или прочту пустой статус.
зачем?
зачем я каждую ночь разговариваю с потолком,
говоря ни о чем, но там обязательно мелькнет твое имя.
почему?
почему когда я встречаю твое имя, я обязательно подумаю о тебе.
о тебе а не о ком то другом с твоим именем.
и что это?
любовь...
ненависть
привычка
заноза в жопе
что....
(с)

Потрясающие фотографии!!!

Кто со мной не согласен????

militsky

Читать далее...

Sweet stylish girls

style

The white tee project
Желаете скачать покер бесплатно и играть? Не проблема! Заходите на poker-freeroll.ru

Быстрые и проверенные поставки кранового оборудования.

Создание, дизайн и продвижение сайтов в кротчайшие сроки!

j and j