<?xml version="1.0" encoding="windows-1251"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<atom:link href="https://deathwish.mybb.ru/export.php?type=rss" rel="self" type="application/rss+xml" />
		<title>Deathwish</title>
		<link>http://deathwish.mybb.ru/</link>
		<description>Deathwish</description>
		<language>ru-ru</language>
		<lastBuildDate>Wed, 08 Sep 2021 13:12:13 +0300</lastBuildDate>
		<generator>MyBB/mybb.ru</generator>
		<item>
			<title>Хакерские форумы заработок</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=62#p62</link>
			<description>&lt;p&gt;Добрый день. Хочу порекомендовать способ заработка в интернете без вложений, все зависит только от вас. Речь пойдет о бирже ссылок linkum. Хватит писать сообщения бесплатно когда на этом можно заработать!&lt;br /&gt;Конечно как и везде в похожих проектах есть простые задания не занимающие много времени такие как поставить лайк, просматривать видео, сделать репост, за что можете зарабатывать от 5 рублей за задание.&lt;br /&gt;Меня такой вид дохода не привлек поэтому решил зарабатывать на чуть более сложных - выполняя задания рекламодателей на всевозможных форумах. С заданий на форумах доход в настоящий момент от 19 до 75 но иногда бывает от 100 и больше, зависит от форума и количества постов на таком форуме.&lt;br /&gt;Сам смысл работы - надо найти какой нибудь форум, регистрируетесь и пишете несколько постов последний из которых с любой вашей ссылкой на сторонний веб-сайт. Если ссылку не удалили админы и вас не забанили то этот форум то что надо и его можно использовать.&lt;br /&gt;Я начинал с 10-ти подобных форумов так как сами знаете с одного тоже доход будет минимален и чем больше форумов тем лучше. Не запрещено и на одном аккаунте linkum иметь любое количество форумных профилей так как деньги можно получить и от ссылок в профилях форумов.&lt;br /&gt;Отмечу сразу что это не халява и не кнопка бабло а повседневная подработка в в нете, какое количество заданий сделали столько и получите. К слову сказать на YouTube достаточно рекомендаций от пользователей биржи где очень доходчиво оговорено как и что нужно сделать.&lt;br /&gt;По себе хочу сказать что делая работу на форумах необходимо достаточно грамотно писать небольшие посты (100-300 знаков в зависимости от требований рекламодателя) размещая ссылку на нужный сайт и это не так уж и сложно. Одно задание занимает у меня минут 10-15.&lt;br /&gt;Естественно в первое время заработок будет небольшой но дальше больше, в системе свой рейтинг исполнителя и чем рейтинг больше тем больше заданий.&lt;/p&gt;
						&lt;p&gt;Вот тут&amp;#160; ссылка на linkum &lt;a href=&quot;https://linkum.ru/invite/43cd31dea56a8fe5d1319f19c149d8c3/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://linkum.ru/invite/43cd31dea56a8f &amp;#8230; 9c149d8c3/&lt;/a&gt; &lt;/p&gt;
						&lt;p&gt;Регистрируйтесь если захотите зарабатывать но рефералам естественно помощь в быстром освоении системы и дам советы как больше заработать.&lt;/p&gt;
						&lt;p&gt;Вывод средств&amp;#160; можно на WebMoney, Мобильный телефон или Qiwi. Минималка на вывод 200 рублей.&lt;/p&gt;
						&lt;p&gt;Если вы не знаете где взять форумы для работы, то&amp;#160; эти. Со временем найдёте и другие.&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://fulltheme.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://fulltheme.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://komfort.rusff.me&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://komfort.rusff.me&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://barsetka.mybb.by&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://barsetka.mybb.by&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://mskforum.8bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://mskforum.8bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://womka.6bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://womka.6bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://chippolino.mybb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://chippolino.mybb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://woman.0bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://woman.0bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://interes.mybb.social&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://interes.mybb.social&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://girls.maminforum.com&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://girls.maminforum.com&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://womans.forum.cool&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://womans.forum.cool&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://faranga.mybb.kz&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://faranga.mybb.kz&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://zmurik.mybb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://zmurik.mybb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://razno.mybb.by&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://razno.mybb.by&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;деньги через интернет хакерские форумы заработок заработок на форумах с оплатой за сообщения&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://fiskulforum.webtalk.ru/viewtopic.php?id=65#p571&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;взять кредит онлайн быстро&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://stlkrs.2bb.ru/viewtopic.php?id=127#p1235&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;взять займ на карту киви&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://metrostyle.5bb.ru/viewtopic.php?id=133#p3443&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;другой прокси&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Юлечка)</author>
			<pubDate>Wed, 08 Sep 2021 13:12:13 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=62#p62</guid>
		</item>
		<item>
			<title>Взять займ займы онлайн тут</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=61#p61</link>
			<description>&lt;p&gt;Относительно не давно на одном экономическом форуме увидел сообщение с вопросом &amp;quot;Кто может дать в займ мелкую сумму рублей на небольшой промежуток до зарплаты?&amp;quot; несколько дней назад задумался над тем же вопросом, так как оперативно понадобились финансы, а у знакомых перезанять не вышло. К слову сказать ни разу не обращался к услугам микрофинансовых организаций и вот решил поискать возможность такого вида займа. Скажу честно, сам я человек не очень расторопный в плане заполнения множества анкет и разнообразных данных и после заполнения трех анкет на всевозможных сайтах мне это порядком надоело. Решил пойти другим путем и поискать ресурс где можно было бы разослать одну заявку сразу нескольким мфо. &lt;/p&gt;
						&lt;p&gt;Вот тут &lt;a href=&quot;https://lln.su/9E&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://lln.su/9E&lt;/a&gt; то и нашел то что нужно. &lt;/p&gt;
						&lt;p&gt;Предположим вы заполняете данные на сайте еКапуста а форма автоматически рассылается сразу десятку и более кредитных организаций таких к примеру как Uni_Zaim или всем известный ресурс MoneyMan. , очень удобно и самое главное весьма оперативно. К слову сказать кредит мне одобрили в мфо ezaem, получил именно ту сумму которая и была требовалась.&lt;/p&gt;
						&lt;p&gt;Проще всего взять займ здесь &lt;a href=&quot;https://lln.su/9F&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://lln.su/9F&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;взять займ под 0 взять займ займы онлайн тут взять срочный частный займ&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://work.6bb.ru/viewtopic.php?id=3937#p5949&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;заработки без вложений форум&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://mostwanted.7bb.ru/viewtopic.php?id=690#p1081&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;купить статью москва&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://newearth.topf.ru/viewtopic.php?id=962#p19932&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;не могу заработать деньги что делать&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Марина)</author>
			<pubDate>Fri, 28 May 2021 13:18:47 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=61#p61</guid>
		</item>
		<item>
			<title>Заработок в декрете форум</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=60#p60</link>
			<description>&lt;p&gt;Зарабатывать приличные деньги используя для этого интернет, не только можно, но и нужно. В этом деле нет ничего сложного и каждый желающий может начать это делать. Вариантов заработка через сеть достаточно много, но думаю если вы читаете эти строки, то уверен что вас наверняка интересует по настоящему простой и проверенный способ и желательно без денежных вливаний. Я прав?&lt;br /&gt;Если это действительно так, то изначально рекомендую рассмотреть заработок на форумах. Вам нужно будет писать посты на форумах и других социальных сайтах по нужным темам, за которые рекламодатели и будут выплачивать деньги. Не сомневаюсь, что с написанием небольших отзывов на форумах может справиться любой пользователь. Суммарный доход будет напрямую зависеть от того, какое количество постов вы можете создавать в день. Если не особо напрягаться, то вполне можно сделать 15 тысяч рублей за месяц, что примерно равняется средней зарплате. Если же подойти к этому делу с полной ответственностью и заниматься этим полный рабочий день, то прибыль будет намного больше.&lt;br /&gt;Итак, что нужно сделать чтобы начать зарабатывать?&lt;br /&gt;1. Регистрируемся на площадке Linkum &lt;a href=&quot;https://linkum.ru/invite/77f712e5bfe90a84f7094e7764eae3d6/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://linkum.ru/invite/77f712e5bfe90a &amp;#8230; 764eae3d6/&lt;/a&gt;&lt;br /&gt;Именно здесь можно взять задание в работу. Писать посты можно не только на форумах, но и в социальных сетях, сервисах вопросов и ответов, блогах.&amp;#160; Но я советую вам начинать именно с форумов, потому что за них обычно хорошо платят.&lt;br /&gt;2. Переходите в раздел &amp;quot;Исполнителю&amp;quot; и выбираете заказ который вам близок по тематике и устраивает по цене. В среднем на размещение одного поста уходит около 10 минут, поэтому просто начните их делать, а прибыль считайте уже после того как разместите несколько постов. &lt;br /&gt;3. Выводите свои денежки на кошелёк или карту.&lt;br /&gt;Как правило, больше всего уходит времени именно на поиск новых форумов, на которых можно работать не боясь что админы удалят ваш пост и все труды будут на смарку. Именно поэтому, вам потребуется начать собирать свою личную базу форумов, где админы не удаляют посты и позволяют размещать ссылки в топиках. Могу вас уверить, что таких форумов очень много. А чтобы вам не пришлось тратить своё время на их поиск, можете использовать форумы ниже. Каждый из них проверен мною лично и ваши топики никто не удалит. Можете смело заносить эти форумы в свою базу и работать с ними.&lt;br /&gt;Если у вас есть какие то вопросы, пожелания или предложения, то можете писать мне в телеграм @Sovgav, отвечаю всем.&lt;/p&gt;
						&lt;p&gt;Проверенные форумы для заработка&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;https://razno.mybb.by&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://razno.mybb.by&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://barsetka.mybb.by&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://barsetka.mybb.by&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://mskforum.8bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://mskforum.8bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://womka.6bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://womka.6bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://woman.0bb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://woman.0bb.ru&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://interes.mybb.social&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://interes.mybb.social&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://girls.maminforum.com&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://girls.maminforum.com&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://womans.forum.cool&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://womans.forum.cool&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://faranga.mybb.kz&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://faranga.mybb.kz&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;https://zmurik.mybb.ru&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://zmurik.mybb.ru&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;как заработать деньги через интернет заработок в декрете форум как работать удаленно через интернет&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://torontoprojectforum.mybb.ru/viewtopic.php?id=15#p17&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;работать биржи копирайтинга&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://schurovo.3bb.ru/viewtopic.php?id=1581#p13764&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;купить славянский оберег из стали&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://projectforum.liveforums.ru/viewtopic.php?id=213#p19923&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;открыть через прокси&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Юлечка)</author>
			<pubDate>Fri, 09 Oct 2020 21:19:02 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=60#p60</guid>
		</item>
		<item>
			<title>Славянский денежный амулет</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=59#p59</link>
			<description>&lt;p&gt;&lt;a href=&quot;https://dommagii.com/affiliate/11319/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;https://dommagii.com/sites/default/files/imagecache/product_large/product_images/belyy_na_fone.jpg&quot; alt=&quot;https://dommagii.com/sites/default/files/imagecache/product_large/product_images/belyy_na_fone.jpg&quot; /&gt;&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;Шикарная славянская атрибутика стала сильно популярной в последние годы. С каждым днём, всё больше мужчин и женщин надевают славянские обереги и рисуют на своём теле славянские руны, тем самым подчёркивая связь со своими предками. Видимо современное общество сильно устало от навязанной культуры и преходящих ценностей, которыми нас пичкает современное общество.&lt;br /&gt;Выбрать можно здесь &lt;a href=&quot;https://dommagii.com/affiliate/11319/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://dommagii.com/affiliate/11319/&lt;/a&gt;&lt;br /&gt;Такие талисманы не просто выглядят стильно и красиво, но и имеют строго определённые функции, такие как оберег своего владельца от разного рода негативных воздействий. Даже если вы не верите в магические свойства амулетов, но вас наверняка впечатлит высокое качество таких ювелирных изделий, а ваше окружение сто процентов обратит внимание на ваш хороший выбор.&lt;br /&gt;Посмотреть и заказать амулеты можно здесь &lt;a href=&quot;https://dommagii.com/affiliate/11319/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://dommagii.com/affiliate/11319/&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://skolkovbor.mybb.ru/viewtopic.php?id=633#p5198&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;рабочие прокси&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://donex.mybb.ru/viewtopic.php?id=1232#p18750&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;что такое прокси сервер&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://foxsamalisa.webtalk.ru/viewtopic.php?id=18#p1322&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;etext ru биржа копирайтинга войти etxt ru&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Марина)</author>
			<pubDate>Mon, 05 Oct 2020 01:17:56 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=59#p59</guid>
		</item>
		<item>
			<title>Где купить статьи</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=58#p58</link>
			<description>&lt;p&gt;Думаю вы тоже заметили что, стал весьма популярен яндекс.дзен, где всегда можно найти что нибудь увлекательное для любого читателя. Большинство авторов с удовольствием регулярно выкладывают свежие материалы, находя довольно много просмотров. И ничего удивительного в этом нет, ведь авторам за работу выплачивают деньги со стороны яндекса, нужно всего лишь регулярно выкладывать новые материалы, фото или видео материалы.&lt;br /&gt;Вы и сами можете попробовать свои силы в этом деле и удостовериться, что это не только выгодно, но и просто, для этого просто зайдите на главную страницу яндекс.дзен и нажмите Стать Автором.&lt;br /&gt;Если есть навык копирайтинга и вы можете создавать хороший контент, то вам сильно повезло, но если вы ещё не научились этому навыку, и заниматься блогами вам хочется, то советую обратить внимание на биржу статей &lt;a href=&quot;https://www.etxt.ru/?r=sovgav&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://www.etxt.ru/?r=sovgav&lt;/a&gt; , где можно покупать недорогие статьи и публиковать на своем блоге. &lt;/p&gt;
						&lt;p&gt;Если не знаете где купить статьи недорого для своего блога, то смотрите тут &lt;a href=&quot;https://www.etxt.ru/?r=sovgav&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://www.etxt.ru/?r=sovgav&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://balashiha.rusff.ru/viewtopic.php?id=267#p749&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;украинские прокси&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://fantasy.narutorpg.ru/viewtopic.php?id=17#p17&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;удаленная работа в интернете на дому вакансии&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://blasrp3.1bb.ru/viewtopic.php?id=38#p38&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;купоны промокоды алиэкспресс сентябрь&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Юлечка)</author>
			<pubDate>Thu, 01 Oct 2020 21:44:02 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=58#p58</guid>
		</item>
		<item>
			<title>Сайт платит за написание статей</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=57#p57</link>
			<description>&lt;p&gt;О том, что в наше время можно просто зарабатывать не выходя из дома, знают многие пользователи мировой сети. Но не смотря на это знание, на самом деле, весьма малое число людей знают методы того, как можно получать деньги через интернет. Так как интернет пестрит заголовками с предложениями заработка, то очень легко попасться на удочку мошенников и не только остаться без дохода, но и потерять свои деньги, оплачивая всевозможные курсы и семинары.&lt;br /&gt;Если эта тема вам интересна, но вы не хотите испытывать удачу, в надежде найти какой нибудь более менее доступный и простой способ заработка, то эта статья была создана для вас.&lt;br /&gt;Тот метод который я хочу вам открыть, на самом деле очень прост и доступен для каждого. Зарабатывать деньги через интернет может каждый человек и всё что вам нужно уметь, это формулировать свои мысли в слова или проще говоря - печатать на клавиатуре. &lt;/p&gt;
						&lt;p&gt;Самый главный вопрос, сколько же можно заработать? &lt;br /&gt;Успех зависит полностью от вашей усидчивости, от заказов которые вы будете брать в работу, а также от того как быстро вы печатаете. Не буду долго и нужно рассказывать вам о возможностях и преимуществах, а сразу перейду к делу. Итак, чтобы начать работать удалённо, вам следует?&lt;br /&gt;1. Зарегистрироваться на бирже контента ETXT перейдя по ссылке&amp;#160; &lt;a href=&quot;https://www.etxt.ru/?r=sovgav&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://www.etxt.ru/?r=sovgav&lt;/a&gt;&lt;br /&gt;2. Выбрать заказ от кого нибудь из рекламодателей (которых очень много) или просто написать статью любой тематики и выставить её на продажу. Уверяю вас, если статья интересная, то в ближайшее время её кто то купит. Чем больше статей на продаже у вас выставленно, тем больше доходы, поэтому не стоит ждать пока вашу первую статью кто-то купит, а имеет смысл писать ещё и ещё.&lt;br /&gt;Если вы выбрали заказ от кого то из работодателей, то выбирайте того кто предлагает высокую оплату. Не стоит брать самые дешёвые заказы, так как у вас не будет мотивации сделать эту работу хорошо за такие копейки. Если же вы возьмёте дорогой заказ в работу, то вам будет хотеться выполнить работу качественно и быстро, тем самым вы сможете быстро увеличить свои доходы.&lt;/p&gt;
						&lt;p&gt;Как видите, ничего сложного в этом нет и всё что нужно делать, это уметь печатать на клавиатуре. Те люди кто давно работает с этой биржей уже смогли сделать из неё источник постоянного дохода для себя, поэтому верьте в себя и всё у вас получится.&lt;/p&gt;
						&lt;p&gt;Регистрация в ETXT &lt;a href=&quot;https://www.etxt.ru/?r=sovgav&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://www.etxt.ru/?r=sovgav&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;&lt;a href=&quot;http://dominion.rolebb.com/viewtopic.php?id=38#p2731&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;купить прокси дешево&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://breakme.rusff.ru/viewtopic.php?id=45#p2117&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;форум курс заработка&lt;/a&gt;&amp;#160; &amp;#160;|&amp;#160; &amp;#160;&lt;a href=&quot;http://wwwethnokavkaz.1bb.ru/viewtopic.php?id=454#p6195&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;прокси купить&lt;/a&gt;&amp;#160; &amp;#160;|&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Юлечка)</author>
			<pubDate>Sat, 26 Sep 2020 19:47:13 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=57#p57</guid>
		</item>
		<item>
			<title>Вопрос №8. Матричные операции в Excel.Функции рабочего листа: МУМНОЖ,</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=56#p56</link>
			<description>&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=e3cbb871cc85c7f2c2269dbc8c4ab46a&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/e3cbb871cc85c7f2c2269dbc8c4ab46a/1//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/e3cbb871cc85c7f2c2269dbc8c4ab46a/1//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=01f19211c62e208195f8548f1fe68d3f&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/01f19211c62e208195f8548f1fe68d3f/2//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/01f19211c62e208195f8548f1fe68d3f/2//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=6f302f2e21f097a94782d9590329afd5&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/6f302f2e21f097a94782d9590329afd5/3//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/6f302f2e21f097a94782d9590329afd5/3//v_excel_imeyutsya_sleduyushchie_specialynye_funkcii_dlya_raboty_s_matricami/232910.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (stamatiou)</author>
			<pubDate>Thu, 30 Mar 2017 04:56:18 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=56#p56</guid>
		</item>
		<item>
			<title>Вопрос № 10. Общая структура программ VBA. Понятие идентификатора. Ком</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=55#p55</link>
			<description>&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=f40c33f361ad2c24458f0fa7e167c2d1&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/f40c33f361ad2c24458f0fa7e167c2d1/1//struktura_programmnogo_modulya_vba/4394.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/f40c33f361ad2c24458f0fa7e167c2d1/1//struktura_programmnogo_modulya_vba/4394.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=f7efb3c2000f1020c496f7fb40ea4428&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/f7efb3c2000f1020c496f7fb40ea4428/2//struktura_programmnogo_modulya_vba/4394.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/f7efb3c2000f1020c496f7fb40ea4428/2//struktura_programmnogo_modulya_vba/4394.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=9c03984d05a8c66cc999dac4b26d7992&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/9c03984d05a8c66cc999dac4b26d7992/3//struktura_programmnogo_modulya_vba/4394.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/9c03984d05a8c66cc999dac4b26d7992/3//struktura_programmnogo_modulya_vba/4394.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (forwarned)</author>
			<pubDate>Wed, 29 Mar 2017 07:36:47 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=55#p55</guid>
		</item>
		<item>
			<title>Вопрос №27. VBA-программа пузырьковой сортировки данных, заданных в фо</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=54#p54</link>
			<description>&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=34e1fd89aafe266f01e9a77099e223ed&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/34e1fd89aafe266f01e9a77099e223ed/1//vba_sortirovka_puzyrykom/673889.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/34e1fd89aafe266f01e9a77099e223ed/1//vba_sortirovka_puzyrykom/673889.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=9b0d3f973f7fec9b2d07aa7ba640cfc1&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/9b0d3f973f7fec9b2d07aa7ba640cfc1/2//vba_sortirovka_puzyrykom/673889.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/9b0d3f973f7fec9b2d07aa7ba640cfc1/2//vba_sortirovka_puzyrykom/673889.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;display: block; text-align: center&quot;&gt;&lt;a href=&quot;http://villeroyboutique.ru/contacts/?id=866785b154b05dd25888dea63a731bce&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://upload.bbfrm.ru/pixel/866785b154b05dd25888dea63a731bce/3//vba_sortirovka_puzyrykom/673889.jpg&quot; alt=&quot;http://upload.bbfrm.ru/pixel/866785b154b05dd25888dea63a731bce/3//vba_sortirovka_puzyrykom/673889.jpg&quot; /&gt;&lt;/a&gt;&lt;/span&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (fingolfin)</author>
			<pubDate>Tue, 28 Mar 2017 07:54:11 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=54#p54</guid>
		</item>
		<item>
			<title>Вопрос № 39.Задачи на одномерные и двумерные массивы. Вывод таблиц на</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=53#p53</link>
			<description>&lt;p&gt;Вопрос № 39.Задачи на одномерные и двумерные массивы. Вывод таблиц на любой рабочий лист Excel..&lt;br /&gt;Public Sub ee()&lt;br /&gt;p = 1&lt;br /&gt;For x = 1 To 5&lt;br /&gt;Cells(1, p) = x + 1&lt;br /&gt;p = p + 1&lt;br /&gt;Next x&lt;br /&gt;For y = 1 To 5&lt;br /&gt;Cells(2, p) = y + 3&lt;br /&gt;p = p + 1&lt;br /&gt;Next y&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:15:47 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=53#p53</guid>
		</item>
		<item>
			<title>Вопрос № 38. Оптимизация. Метод золотого сечения и метод перебора. Чис</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=52#p52</link>
			<description>&lt;p&gt;Вопрос № 38. Оптимизация. Метод золотого сечения и метод перебора. Числа Фибоначчи.&lt;br /&gt;Оптимизация.&lt;br /&gt;Оптимальный – лучший вариант из всех возможных. Выбор оптимального решения проводится с помощью некоторой зависимой величины (функции), определяемой проектными параметрами. Эта величина называется целевой функцией (или критерием качества). Целевую ф-цию можно записать в виде y = f(x1, x2,…,xn), где число n проектных параметров x1, x2,…,xn характеризует сложность задачи оптимизации. В процессе решения задачи должны быть найдены такие значения проектных параметров, при которых целевая ф-ция имеет min(max).&lt;br /&gt;Для одного проектного параметра y=f(x1) целевая ф-ция является ф-цией одной переменной и её график – некоторая кривая на плоскости.&lt;br /&gt;Для двух проектных параметров y=f(x1, x2) целевая ф-ция является ф-цией двух переменных и её график – поверхность.&lt;br /&gt;Задачи оптимизации:&lt;br /&gt;- Безусловные (нет никаких ограничений);&lt;br /&gt;- Условные (накладываются условия (ограничения)).&lt;br /&gt;Одномерная оптимизация – это ф-ция одной переменной, т.е. y = f(x1). Задача формулируется след. образом: Найти наименьшее (наибольшее) значение целевой ф-ции на интервале и определить значение проектного параметра х, принадлежащего интервалу, при котором ф-ция принимает экстремальное значение.&lt;br /&gt;Существование решения вытекает из теоремы Вейерштрасса: всякая ф-ция f(x) непрерывна на отрезке [a; b] и принимает на этом отрезке наибольшие и наименьшие значения, т.е. на отрезке [a; b] существуют такие точки x1 и х2, что для любого x, принадлежащего [a; b] имеют место неравенства f(x1) &amp;#8804; f(x) &amp;#8804; f(x2).&lt;br /&gt;Теорема не доказывает единственности решения. Ф-ция может достигать своего наибольшего и наименьшего значения либо в граничных точках, либо в точках min и max. Последние точки должны быть обязательно критическими, т.е. f’(x)&amp;#160; в этих точках обращается в нуль. Это необходимое условие экстремума.&lt;br /&gt;Следовательно, для наименьшего и наибольшего значений нужно вычислить её значения во всех критических точках данного отрезка и сравнить полученные значения.&lt;br /&gt;Методы поиска экстремальных решений:&lt;br /&gt;- Метод перебора.&lt;br /&gt;- Метод деления отрезка пополам.&lt;br /&gt;- Метод золотого сечения.&lt;br /&gt;Необходимым условием метода золотого сечения является унимодальность ф-ции (т.е. ф-ция принимает на заданном отрезке 1 минимум или максимум).&lt;br /&gt;Метод з.с. является наиболее эффективным, т.к. наилучшая точность достигается при ограниченном количестве вычислений.&lt;br /&gt;Этот метод состоит в построении последовательности отрезков, стягивающихся к точке min(max). На каждом шаге, за исключением первого, вычисление значения ф-ции f(x) производится лишь один раз. Эту точку называют золотым сечением и выбирают специальным образом.&lt;br /&gt;1. Выбираем 2 точки так, чтобы x1 &amp;lt; x2 (выбираем специальным образом!).&lt;br /&gt;Находим f(x1) и f(x2).&lt;br /&gt;Если f(x1) &amp;lt; f(x2), то min принадл. [a; x1] или [x1; x2]. Отбрасываем [x2; b], т.е. b замещает x2; x2 замещает x1.&lt;br /&gt;2. Точка x2 перешла с 1 шага. Снова находим x1. Сравниваем значения ф-ции в этих точках, выбираем нужные интервалы и т.п.&lt;br /&gt;Итерационный процесс продолжается до тех пор, пока |b - a| &amp;lt; &amp;#949;. При этом проектный параметр оптимизации составляет ak &amp;lt; x &amp;lt; bk. В качестве оптимального значения принять можно x = (ak + bk) / 2&lt;br /&gt;Как выбрать x1 и x2?&lt;br /&gt;1.Рассмотрим отрезок [a; b] как стержень длиной l = 1.&lt;br /&gt;2. Возьмём точку таким образом, что l1 &amp;lt; l2. Правило золотого сечения гласит: l1 / l = l2 / l1, где l = l1 + l2.&lt;br /&gt;l1 / (l1 + l2) = l2 / l1&lt;br /&gt;l12 = l2(l1 + l2) &lt;br /&gt;l12 - l1 l2 + l22 (разделить на l12; l2 / l1 заменить на z)&lt;br /&gt;1 – z – z2 = 0&lt;br /&gt;z2 + z – 1 = 0&lt;br /&gt;Решаем, находим z1 = 0,618 (отрицательное значение не подходит).&lt;br /&gt;l1 / l = l2 / l1 = 0,618&lt;br /&gt;l1 = 0,618 • l, где l = 1 (1 – 0,618 = 0.382)&lt;br /&gt;x1 = 0,618•a + 0,382•b&amp;#160; &amp;#160; &lt;br /&gt;x2 = 0,382•a + 0,618•b- примерно одинаковое расположение от центра отрезка в соответствии с правилом золотого сечения метода Фибоначчи&lt;br /&gt;Const eps = 1E – 3&lt;br /&gt;Function F(x As Double) As Double&lt;br /&gt;F = (x^3) / 3 – x^2&lt;br /&gt;End Function&lt;br /&gt;Sub Zolot (a As Double, b As Double, x As Double, min As Double)&lt;br /&gt;Dim x1 As Double, x2 As Double&lt;br /&gt;Cells(1, 1) = “x1 = ”&lt;br /&gt;Cells(1, 3) = “x2 = ”&lt;br /&gt;p = 2&lt;br /&gt;x1 = 0.618*a + 0.382*b&lt;br /&gt;x2 = 0.382*a + 0.618*b&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;If F(x1) &amp;lt; F(x2) Then&lt;br /&gt;&amp;#160; &amp;#160;b = x2&lt;br /&gt;&amp;#160; &amp;#160;x2 = x1&lt;br /&gt;&amp;#160; &amp;#160;Else a = x1&lt;br /&gt;&amp;#160; &amp;#160;x1 = x2&lt;br /&gt;&amp;#160; &amp;#160;x2 = 0.382*a + 0.618*b&lt;br /&gt;&amp;#160; &amp;#160;End If&lt;br /&gt;Loop Until Abs(b – a) &amp;lt; eps&lt;br /&gt;x = (a + b) / 2&lt;br /&gt;min = F(x)&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double, x As Double, min As Double&lt;br /&gt;a = 1&lt;br /&gt;b = 3&lt;br /&gt;Zolot a, b, x, min&lt;br /&gt;Cells(20, 1) = “x = ” &amp;amp; Format(x, “0.000”)&lt;br /&gt;Cells(21, 1) = “min = ” &amp;amp; Format (min, “0.000”)&lt;br /&gt;End Sub&lt;br /&gt;Числа Фибоначчи.&lt;br /&gt;Это элементы числовой последовательности, в которой каждый последующий член равен сумме предыдущих.&lt;br /&gt;Sub My_Pr()&lt;br /&gt;F1 = 1&lt;br /&gt;F2 = 2&lt;br /&gt;Cells(2, 1) = F1&lt;br /&gt;Cells(2, 2) = F2&lt;br /&gt;Cells(1, 5) = &amp;quot;числа Фибоначчи&amp;quot;&lt;br /&gt;Range(&amp;quot;E1&amp;quot;).Font.ColorIndex = 3&lt;br /&gt;Range(&amp;quot;E1&amp;quot;).Font.Italic = True&lt;br /&gt;P = 3&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;F = F1 + F2&lt;br /&gt;&amp;#160; &amp;#160;Cells(4, P) = F1&lt;br /&gt;&amp;#160; &amp;#160;Cells(4, P + 1) = F2&lt;br /&gt;&amp;#160; &amp;#160;Cells(4, P + 2) = F&lt;br /&gt;&amp;#160; &amp;#160;P = P + 1&lt;br /&gt;&amp;#160; &amp;#160;F1 = F2&lt;br /&gt;&amp;#160; &amp;#160;F2 = F&lt;br /&gt;Loop Until F &amp;gt; 144&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:15:32 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=52#p52</guid>
		</item>
		<item>
			<title>Вопрос №37. Алгоритм поиска минимального и максимального элементов одн</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=51#p51</link>
			<description>&lt;p&gt;Вопрос №37. Алгоритм поиска минимального и максимального элементов одномерного и двумерного массива.&lt;br /&gt;Нахождение max и min (шаблон)&lt;br /&gt;Max = x(I):p=I&lt;br /&gt;Min = x(I):t=I&lt;br /&gt;For I to n&lt;br /&gt;If x(I)&amp;gt;Max Then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; Max=x(I)&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; P=I&lt;br /&gt;If x(I)&amp;lt;Min Then &lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;Min=X(I)&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;T=I&lt;br /&gt;End If&lt;/p&gt;
						&lt;p&gt;ПРИМЕР&lt;br /&gt;Option Base 1&lt;br /&gt;Const n = 4&lt;br /&gt;Const m = 4&lt;br /&gt;Dim A(n, m) As Integer&lt;br /&gt;Public Sub MaxMin()&lt;br /&gt;Max = A(1, 1): P = i: T = i&lt;br /&gt;Min = A(1, i): p1 = i: t1 = i&lt;br /&gt;For i = 1 To n&lt;br /&gt;For j = 1 To m&lt;br /&gt;If A(i, j) &amp;gt; Max And i = о Then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; Max = A(i, j)&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; P = i&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; T = j&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; End If&lt;br /&gt;If A(i, j) &amp;lt; Min And i + j = n + 1 Then&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;Min = A(i, j)&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;p1 = i&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;t1 = j&lt;br /&gt;End If&lt;br /&gt;Next i&lt;br /&gt;Next j&lt;br /&gt;Q = A(P, T)&lt;br /&gt;A(P, T) = A(p1, t1)&lt;br /&gt;A(p1, t1) = Q&lt;br /&gt;For i = 1 To n&lt;br /&gt;For j = 1 To m&lt;br /&gt;Cells(i + 9, j) = A(i, j)&lt;br /&gt;Next i&lt;br /&gt;Next j&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:15:13 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=51#p51</guid>
		</item>
		<item>
			<title>Вопрос № 36. Численное интегрирование функций методом Симпсона (парабо</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=50#p50</link>
			<description>&lt;p&gt;Вопрос № 36. Численное интегрирование функций методом Симпсона (парабол). Оценка точности метода. Привести примеры.&lt;br /&gt;1. Разбиваем отрезок [a; b] на n равных частей (n обязательно чётное!).&lt;br /&gt;2. Находим шаг интегрирования. h = (b – a) / n&lt;br /&gt;3. Наносим на ось Ох точки разбиения. x0 = a; x1 = a + h; x2 = a + 2h….xn = b&lt;br /&gt;4. Из этих точек разбиения проводим перпендикуляр.&lt;br /&gt;5. Проводим параболу через [f(x0); f(x2)], далее через [f(x2); f(x4)] и т.д.&lt;br /&gt;6. x0&amp;#8747;x2f(x)dx = h/3 (f(x0) + 4f(x1) + f(x2))&lt;br /&gt;&amp;#160; &amp;#160; x2&amp;#8747;x4f(x)dx = h/3 (f(x2) + 4f(x3) + f(x4))&lt;br /&gt;&amp;#160; &amp;#160; x4&amp;#8747;x6f(x)dx = h/3 (f(x4) + 4f(x5) + f(x6))&lt;br /&gt;&amp;#160; &amp;#160; x0&amp;#8747;x6f(x)dx = h/3 (f(a) + 4f(x1) + 2f(x2) + 4f(x3) + 2f(x4) + 4f(x5) + f(b))&lt;br /&gt;&amp;#160; &amp;#160; c = 4&lt;br /&gt;&amp;#160; &amp;#160; c = 2&lt;br /&gt;&amp;#160; &amp;#160;a&amp;#8747;bf(x)dx = h/3 (f(a) + f(b) + c&amp;#8721;i=1n-1f(xi), где x0 = a, x1 = a + h и т.п.&lt;br /&gt;&amp;#160; &amp;#160;a&amp;#8747;bf(x)dx = h/3 (f(a) + f(b) + c&amp;#8721;i=1n-1f(a + i•h)&lt;br /&gt;&amp;#160; &amp;#160; c = 4&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;-&amp;#160; &amp;#160;формула для метода Симпсона.&lt;br /&gt;&amp;#160; &amp;#160; c = 2&lt;br /&gt;Однако одно приближенное значение не позволяет адекватно оценить точность интеграла. Поэтому необходимо найти второе приближённое значение интеграла. Для этого увеличим количество разбиений интервала [a; b] в 2 раза, т.е. n = 2n, в результате чего шаг h становится меньше в 2раза и вычисляется новое значение. Допустим, что S2 – второе приближённое значение, а S1 – первое. Проверяется условие |S2-S1| &amp;lt; &amp;#949;. Если условие не выполняется, тогда на каждом шаге значение S1 считается предыдущим приближением, т.е. S1 присваивает S2 (S1 = S2), а S2 – последующим.&lt;br /&gt;Итерационный процесс удвоения n и вычисление S2 продолжается до тех пор, пока |S2 – S1| &amp;lt; &amp;#949;.&lt;br /&gt;Метод Симпсона является самым точным методом, т.к. парабола на каждом интервале почти повторяет кривую подынтегральной ф-ции, на каждом интервале определяются новые коэффициенты a, b, c.&lt;br /&gt;Const eps = 1E – 4&lt;br /&gt;Function F(x As Double) As Double&lt;br /&gt;F = sqr(1 – &amp;#188; * (sin(x))^2)&lt;br /&gt;End Function&lt;br /&gt;Sub Simpson ( a As Double, b As Double, n As Integer, S2 As Double)&lt;br /&gt;Dim S1 As Double&lt;br /&gt;S2 = 0&lt;br /&gt;Cells(1, 1) = “пред. зн. S1”&lt;br /&gt;Cells(1, 3) = “посл. зн. S2”&lt;br /&gt;Cells(1, 5) = “n”&lt;br /&gt;p = 2&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;h = (b - a) / n&lt;br /&gt;&amp;#160; &amp;#160;S1 = S2&lt;br /&gt;&amp;#160; &amp;#160;S2 = 0&lt;br /&gt;&amp;#160; &amp;#160;c = 1&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;For i = 1 To n-1&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;S2 = S2 + F(a + i*h)*(c+3)&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;c = -c&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160;Next i&lt;br /&gt;&amp;#160; &amp;#160;S2 = h/3*(F(a) + F(b) + S2)&lt;br /&gt;&amp;#160; &amp;#160;Cells(p, 1) = S1&lt;br /&gt;&amp;#160; &amp;#160;Cells(p, 3) = S2&lt;br /&gt;&amp;#160; &amp;#160;Cells(p, 5) = n&lt;br /&gt;&amp;#160; &amp;#160;p = p + 1&lt;br /&gt;&amp;#160; &amp;#160;n = 2*n&lt;br /&gt;Loop Until Abs(S2 – S1) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double, n As Integer, S2 As Double&lt;br /&gt;a = 0&lt;br /&gt;b = 1.57&lt;br /&gt;n = 6&lt;br /&gt;Simpson a, b, n, S2&lt;br /&gt;Cells(20, 1) = “оконч. сумма = ” &amp;amp; Format (S2, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:14:58 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=50#p50</guid>
		</item>
		<item>
			<title>Вопрос № 35. VBA-программа численного интегрирования функций методом т</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=49#p49</link>
			<description>&lt;p&gt;Вопрос № 35. VBA-программа численного интегрирования функций методом трапеций. Оценка точности метода. Привести пример.&lt;br /&gt;1.Произвольным образом делим отрезок [a; b] на n равных частей.&lt;br /&gt;2.Находим шаг интегрирования h = (b – a) / n&lt;br /&gt;3.Наносим точки разбиения на интервал. x0 = a; x1 = a + h, x2 = a + 2h ….&lt;br /&gt;4.Проводим перпендикуляры до пересечения с графиком.&lt;br /&gt;5.Строим трапеции.&lt;br /&gt;6.I = &amp;#8721;Sn = ((f(x0) + f(x1)) / 2) * h + ((f(x1) + f(x2)) / 2) * h + … + ((f(x3) + f(x4)) / 2) * h&lt;br /&gt;&amp;#160; &amp;#160;I = h * ((f(x0) + 2f(x1) + 2f(x2) + 2f(x3) + F(x4)) / 2) (x0 = a; x4 = b)&lt;br /&gt;&amp;#160; &amp;#160;I = h * ((f(a) + f(b)) / 2 + &amp;#8721;i=1n-1f(xi))&lt;br /&gt;&amp;#160; &amp;#160;I = S = h * ((f(a) + f(b)) / 2 + &amp;#8721;i=1n-1f(a + i*h))&lt;br /&gt;Однако одно приближенное значение не позволяет адекватно оценить точность интеграла. Поэтому необходимо найти второе приближённое значение интеграла. Для этого увеличим количество разбиений интервала [a; b] в 2 раза, т.е. n = 2n, в результате чего шаг h становится меньше в 2раза и вычисляется новое значение. Допустим, что S2 – второе приближённое значение, а S1 – первое. Проверяется условие |S2-S1| &amp;lt; &amp;#949;. Если условие не выполняется, тогда на каждом шаге значение S1 считается предыдущим приближением, т.е. S1 присваивает S2 (S1 = S2), а S2 – последующим.&lt;br /&gt;Итерационный процесс удвоения n и вычисление S2 продолжается до тех пор, пока |S2 – S1| &amp;lt; &amp;#949;.&lt;br /&gt;Из всех методов метод трапеций (наравне с методом средних прямоугольников) самый точный.&lt;br /&gt;Const eps = 1E – 4&lt;br /&gt;Function F(x As Double) As Double&lt;br /&gt;F = sqr(1 – &amp;#188; * (sin(x))^2)&lt;br /&gt;End Function&lt;br /&gt;Sub Trap (a As Double, b As Double, n As Integer, S2 As Double)&lt;br /&gt;Dim S1 As Double&lt;br /&gt;S2 = 0&lt;br /&gt;Cells(1, 1) = “пред. зн. S1”&lt;br /&gt;Cells(1, 3) = “послед. зн. S2”&lt;br /&gt;Cells(1, 5) = “n”&lt;br /&gt;p = 2&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;h = (b – a) / n&lt;br /&gt;&amp;#160; &amp;#160;S1 = S2&lt;br /&gt;&amp;#160; &amp;#160;S2 = 0&lt;br /&gt; For i = 1To n-1&lt;br /&gt; S2 = S2 + F(a + i * h)&lt;br /&gt; Next i&lt;br /&gt; S2 = h * ((f(a) + f(b)/2 + S2)&lt;br /&gt; Cells(p, 1) = S1&lt;br /&gt; Cells(p, 3) = S2&lt;br /&gt; Cells(p, 5) = n&lt;br /&gt; p = p + 1&lt;br /&gt;n = 2 * n&lt;br /&gt;Loop Until abs(S2 – S1) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr ()&lt;br /&gt;a As Double, b As Double, n As Integer, S2 As Double&lt;br /&gt;a = 0&lt;br /&gt;b = 1.57&lt;br /&gt;n = 10&lt;br /&gt;Trap a, b, n, S2&lt;br /&gt;Cells(20, 1) = “оконч. сумма =” &amp;amp; Format (S2, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:14:45 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=49#p49</guid>
		</item>
		<item>
			<title>Вопрос № 34. VBA-программа численного интегрирования функций методами</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=48#p48</link>
			<description>&lt;p&gt;Вопрос № 34. VBA-программа численного интегрирования функций методами правых, левых и центральных (средних) прямоугольников.&lt;br /&gt;Метод левых прямоугольников.&lt;br /&gt;1.произвольным образом берём n количество частей, на которые делится интервал [a; b].&lt;br /&gt;2.находим шаг интегрирования h = (b – a) / n&lt;br /&gt;3.Наносим точки разбиения на интервал [a; b].&lt;br /&gt;x0 = a&lt;br /&gt;x1 = a + h&lt;br /&gt;x2 = a + 2h … и т.п.&lt;br /&gt;4.Из этих точек пересечения проводим перпендикуляры до пересечения с графиком подынтегральной ф-ции.&lt;br /&gt;5.Стоим прямоугольники, начиная с левой точки пересечения.&lt;br /&gt;6.Суммируем все площади прямоугольников.&lt;br /&gt;S = f(x0) * h + f(x1) * h + f(x2) * h + f(x3)*h&lt;br /&gt;S = h * (f(x0) + f(x1) + f(x2) + f(x3))&lt;br /&gt;S = h •&amp;#8721;i=0n-1f(xi), где x0 = a, x1 = a + h, x2 = a + 2h и т.п.&lt;br /&gt;S = h •&amp;#8721;i=0n-1f(a + i•h) – формула для левых прямоугольников.&lt;br /&gt;Однако одно приближенное значение не позволяет адекватно оценить точность интеграла. Поэтому необходимо найти второе приближённое значение интеграла. Для этого увеличим количество разбиений интервала [a; b] в 2 раза, т.е. n = 2n, в результате чего шаг h cстановится меньше в 2раза и вычисляется новое значение. Допустим, что S2 – второе приближённое значение, а S1 – первое. Проверяется условие |S2-S1| &amp;lt; &amp;#949;. Если условие не выполняется, тогда на каждом шаге значение S1 считается предыдущим приближением, т.е. S1 присваивает S2 (S1 = S2), а S2 – последующим.&lt;br /&gt;Итерационный процесс удвоения n и вычисление S2 продолжается до тех пор, пока |S2 – S1| &amp;lt; &amp;#949;.&lt;br /&gt;Метод правых прямоугольников.&lt;br /&gt;Аналогично методу левых прямоугольников. Отличие состоит в шаге 5:&lt;br /&gt;5. Строим прямоугольники, начиная с правой точки пересечения.&lt;br /&gt;6. Суммируем все площади.&lt;br /&gt;S = f(x1) * h + f(x2) * h + f(x3) * h + f(x4)*h&lt;br /&gt;S = h * (f(x1) + f(x2) + f(x3) + f(x4))&lt;br /&gt;S = h •&amp;#8721;i=1nf(xi)&lt;br /&gt;S = h •&amp;#8721;i=1nf(a + i•h)&amp;#160; - формула метода правых прямоугольников.&lt;br /&gt;Однако одно приближенное значение не позволяет адекватно оценить точность интеграла. Поэтому необходимо найти второе приближённое значение интеграла. Для этого увеличим количество разбиений интервала [a; b] в 2 раза, т.е. n = 2n, в результате чего шаг h cстановится меньше в 2раза и вычисляется новое значение. Допустим, что S2 – второе приближённое значение, а S1 – первое. Проверяется условие |S2-S1| &amp;lt; &amp;#949;. Если условие не выполняется, тогда на каждом шаге значение S1 считается предыдущим приближением, т.е. S1 присваивает S2 (S1 = S2), а S2 – последующим.&lt;br /&gt;Итерационный процесс удвоения n и вычисление S2 продолжается до тех пор, пока |S2 – S1| &amp;lt; &amp;#949;.&lt;br /&gt;Метод средних прямоугольников.&lt;br /&gt;Аналогично предыдущим методам. Отличие состоит с пункта 5.&lt;br /&gt;5. Делим отрезки h пополам. Проводим перпендикуляр.&lt;br /&gt;6. От точек пересечения, образованных в п. 5, проводим прямые влево и вправо.&lt;br /&gt;7. точка 0 = a + h/2; 1 = a + h/2 + h; 2 = a + h/2 + 2h…&lt;br /&gt;I = S = h(f(a + h/2) + f(a+ h/2 + h) + f(a + h/2 + 2h) + f(a + h/2 + 3h))&lt;br /&gt;S = h •&amp;#8721;i=0n-1f(a + h/2 + i•h) – формула метода средних прямоугольников.&lt;br /&gt;Однако одно приближенное значение не позволяет адекватно оценить точность интеграла. Поэтому необходимо найти второе приближённое значение интеграла. Для этого увеличим количество разбиений интервала [a; b] в 2 раза, т.е. n = 2n, в результате чего шаг h становится меньше в 2раза и вычисляется новое значение. Допустим, что S2 – второе приближённое значение, а S1 – первое. Проверяется условие |S2-S1| &amp;lt; &amp;#949;. Если условие не выполняется, тогда на каждом шаге значение S1 считается предыдущим приближением, т.е. S1 присваивает S2 (S1 = S2), а S2 – последующим.&lt;br /&gt;Итерационный процесс удвоения n и вычисление S2 продолжается до тех пор, пока |S2 – S1| &amp;lt; &amp;#949;.&lt;br /&gt;Const eps = 1E-4&lt;br /&gt;Function F( x As Double) As Double&lt;br /&gt;F = (1 – (sin(x))^2 * (1/4)^(1/2)&lt;br /&gt;End Function&lt;br /&gt;Sub Integral (a As Double, b As Double, n As Integer, S2 As Double)&lt;br /&gt;S2 = 0&lt;br /&gt;p = 1&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;h = (b – a) / n&lt;br /&gt;&amp;#160; &amp;#160;S1 = S2&lt;br /&gt;&amp;#160; &amp;#160;S2 = 0&lt;br /&gt;&amp;#160; &amp;#160;p = p + 1&lt;br /&gt; For i = 0 To n – 1 ( для правых For i = 1 To n; для средних – как для левых)&lt;br /&gt; S2 = S2 + F(a + i * h) (для правых то же самое, для средних: S2 = S2 + F(a + h/2 + i * h)&lt;br /&gt; Next i&lt;br /&gt;S2 = h * S2&lt;br /&gt;Cells(p, 1) = S2&lt;br /&gt;n = 2 * n&lt;br /&gt;Loop Until Abs(S2 – S1) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double, n As Integer, S2 As Double&lt;br /&gt;a = 0&lt;br /&gt;b = 1.57&lt;br /&gt;n = 4&lt;br /&gt;Integral a, b, n, S2&lt;br /&gt;MsgBox (“интеграл = ”) &amp;amp; Format (S2, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:14:32 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=48#p48</guid>
		</item>
		<item>
			<title>Вопрос № 33. VBA-программа для решения нелинейных алгебраических уравн</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=47#p47</link>
			<description>&lt;p&gt;Вопрос № 33. VBA-программа для решения нелинейных алгебраических уравнений методом простых итераций. Привести пример.&lt;br /&gt;Пусть, дана ф-ция f(x)=0 на интервале [а; b]. Найти корни уравнения для данной функции с точностью &amp;#949; = 1Е-4. Ф-ция имеет всего 1 корень на заданном отрезке, причём значения f’(x), f”(x) определены, непрерывны и сохраняют постоянные значения.&lt;br /&gt;Ф-цию f(x) = 0 можно преобразовать Леву. и правую часть можно умножать на одно и то же число &amp;#955;, прибавлять или отнимать одно и то же число х. Т.о.:&lt;br /&gt;x = x + &amp;#955;f(x), или, обозначив правую часть как &amp;#966;(х), x = &amp;#966;(х).&lt;br /&gt;Условие сходимости метода: | &amp;#966;’(х)| &amp;lt; 1.&lt;br /&gt;1.Начальное приближение х0 к корню можно брать в точке a, точке b или на всём интервале [а; b].&lt;br /&gt;2. В качестве следующего приближения х1 принимаем значение ф-ции в предыдущей точке интервала [а; b], т.е. точки х0 . х1 = &amp;#966;(х0). &lt;br /&gt;3. ---//--- х2 = &amp;#966;(х1) …… хn = &amp;#966;(хn-1).&lt;br /&gt;Процесс продолжается до тех пор, пока |xn – xn-1| &amp;lt; &amp;#949;.&lt;br /&gt;Этот процесс последовательного вычисления приближенных значений к истинному значению корня называется методом итераций.&lt;br /&gt;Увеличивая k (количество итераций) можно получить приближение, сколь угодно мало отличающееся от истинного значения корня.&lt;br /&gt;Ряд сходящийся – с увеличением количества итераций можно приблизиться к корню с заданной точностью.&lt;br /&gt;Ряд расходящийся – с увеличением количества итераций корень найти не возможно (мы всё дальше отдаляемся от него).&lt;br /&gt;Достоинство метода: если ряд сходится, , сходимость очень высокая + простой подход.&lt;br /&gt;Недостаток: необходимо помнить об условии сходимости.&lt;br /&gt;Sin2x + Cos2x – 10x = 0&lt;br /&gt;x = (Sin2x + Cos2x) / 10&lt;br /&gt;Const eps = 1E-4&lt;br /&gt;Function F(x As Double) As Double&lt;br /&gt;F = (Sin(x))^2 + (Cos(x))^2 – 10*x&lt;br /&gt;End Function&lt;br /&gt;Function Fi (x As Double) As Double&lt;br /&gt;Fi = ((Sin(x))^2+(Cos(x))^2) / 10&lt;br /&gt;End Function&lt;br /&gt;Sub Iter (a As Double, b As Double, x As Double)&lt;br /&gt;Dim x0 As Double&lt;br /&gt;x = b&lt;br /&gt;Cells(1, 1) = “пред зн. x0”&lt;br /&gt;Cells(1, 3) = “посл. зн. x”&lt;br /&gt;p = 2&lt;br /&gt;Do&lt;br /&gt;x0 = x&lt;br /&gt;x = Fi(x0)&lt;br /&gt;Cells(p, 1) = x0&lt;br /&gt;Cells(p, 3) = x&lt;br /&gt;p = p + 1&lt;br /&gt;Loop Until Abs(x – x0) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double, x As Double&lt;br /&gt;a = 0&lt;br /&gt;b = 1&lt;br /&gt;Iter a, b, x&lt;br /&gt;Cells(20, 1) = “корень =” &amp;amp; Format (x, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:14:14 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=47#p47</guid>
		</item>
		<item>
			<title>Вопрос № 32. VBA-программа для решения нелинейных алгебраических уравн</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=46#p46</link>
			<description>&lt;p&gt;Вопрос № 32. VBA-программа для решения нелинейных алгебраических уравнений методом касательных (Ньютона). Привести пример.&lt;br /&gt;Пусть, дана ф-ция f(x)=0 на интервале [а; b]. Найти корни уравнения для данной функции с точностью &amp;#949; = 1Е-4. Ф-ция имеет всего 1 корень на заданном отрезке, причём значения f’(x), f”(x) определены, непрерывны и сохраняют постоянные значения.&lt;br /&gt;1. x0 = b. В точнее m к графику проводим касательную до пересечения с осью Ох. Х1 – первое приближение к корню.&lt;br /&gt;2. Проводим из х1 перпендикуляр до пересечения с графиком. Через новую точку M снова проводим касательную до пересечения с Ох. Х2 – второе приближение к корню и т.д.&lt;br /&gt;Итерационный процесс продолжается до тех пор, пока |хn – xn-1| &amp;lt; &amp;#949;.&lt;br /&gt;х1 = &lt;br /&gt;f(x0) + f’(x0)( х1 - x0) = 0&lt;br /&gt;f(x0) + f’(x0)• х1 – f’(x0)• (x0) = 0&lt;br /&gt;f’(x0)• х1 = f’(x0)• (x0) - f(x0)&lt;br /&gt;х1 = x0 – (f(x0) / f’(x0))&lt;br /&gt;хn = xn-1 – (f(xn-1) / f’(xn))&lt;br /&gt;Условие сходимости метода: f(a)•f”(a) &amp;gt; 0 (тогда соотв. выбираем a) или f(b)•f”(b) &amp;gt; 0 (тогда b).&lt;br /&gt;Достоинства метода: если метод сходится, то количество итераций минимально. Скорость сходимости значительно выше, чем в других методах.&lt;br /&gt;Недостатки: Необходимо пользоваться условиями сходимости; на каждом шаге берётся 1 производная.&lt;br /&gt;Const dx = 0.1&lt;br /&gt;Const eps = 1E-4&lt;br /&gt;Function F (x As Double) As Double&lt;br /&gt;F = (sin(x))^(1/2) + (cos(x))^(1/2) – 10*x&lt;br /&gt;End Function&lt;br /&gt;Function F1 (x As Double) As Double&lt;br /&gt;F1 = 2*cos(x)*sin(x) – 2*cos(x)*sin(x)-10&lt;br /&gt;End Function&lt;br /&gt;Function F2 ( x As Double) As Double&lt;br /&gt;F2 = ( F1(x + dx) – F1(x)) / dx&lt;br /&gt;End Function&lt;br /&gt;Sub Kasat (a As Double, b As Double., x As Double)&lt;br /&gt;Dim x0 As Double&lt;br /&gt;If F(b)*F2(b) &amp;gt; 0 Then&lt;br /&gt;&amp;#160; &amp;#160;x=b&lt;br /&gt;Else x = a&lt;br /&gt;End If&lt;br /&gt;Cells(1, 1) = “пред. зн. X0”&lt;br /&gt;Cells(1, 3) = “послед. зн. x”&lt;br /&gt;p = 2’ номер строки&lt;br /&gt;Do&lt;br /&gt;x0 = x&lt;br /&gt;x = x0 –F(x0) / F1(x0)&lt;br /&gt;Cells(p, 1) = x0&lt;br /&gt;Cells(p, 3) = x&lt;br /&gt;p = p+1&lt;br /&gt;Loop Until Abs(x – x0) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double., x As Double&lt;br /&gt;a = 0&lt;br /&gt;b = 1&lt;br /&gt;Kasat a, b, x&lt;br /&gt;Cells(20, 1) = “корень = ”&amp;amp; Format (x, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:13:59 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=46#p46</guid>
		</item>
		<item>
			<title>Вопрос №31. VBA-программа для решения нелинейных алгебраических уравне</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=45#p45</link>
			<description>&lt;p&gt;Вопрос №31. VBA-программа для решения нелинейных алгебраических уравнений методом хорд. Привести пример.&lt;br /&gt;1. Проводим хорду через точки М1 и М.&lt;br /&gt;2. Находим значение в т. х.&lt;br /&gt;3. Если f(a)•f(b) &amp;lt; 0, тогда корень принадлежит&amp;#160; [a; x]. Тогда отбрасываем [x, b], т.е. b=x. (Или всё наоборот соответственно).&lt;br /&gt;4. Снова проводим хорду. Находим х и т.д. см. п.3.&lt;br /&gt;Один из концов жёстко закреплён!&lt;br /&gt;Итерационный процесс продолжается до тех пор, пока |f(x)| &amp;lt; eps.&lt;br /&gt;Чему равен х? х – 1ое приближение к корню.&lt;br /&gt;(x-a) / (-f(a)) = (b-x) / f(b)&lt;br /&gt;f(b)*x – f(b)*a = -f(a)*b + f(a)*x&lt;br /&gt;f(b)*x – f(a)*x&amp;#160; = f(b)*a – f(a)*b&lt;br /&gt;x = (f(b)*a-f(a)*b) / (f(b)-f(a)) – формула при жёстко закреплённом конце b.&lt;br /&gt;(Если конец а жёстко закрёплён, то&lt;br /&gt;f(a) / (x – a) = -f(b) / (b – x)&lt;br /&gt;x = (f(a)*b – f(b)*a) / (f(a) – f(b)))&lt;br /&gt;Достоинство метода: метод широко распространён и сходится очень быстро. Этим методом всегда можно найти корень.&lt;br /&gt;Const eps = 1E-4&lt;br /&gt;Function F (x As Double) As Double&lt;br /&gt;F = x – 2 + Sin (1 / x)&lt;br /&gt;End Function&lt;br /&gt;Sub Horda (a As Double, b As Double, x As Double)&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;x = (f(b)*a-f(a)*b) / (f(b)-f(a))&lt;br /&gt;&amp;#160; &amp;#160;If F(a)*F(x) &amp;lt; 0 Then&lt;br /&gt;&amp;#160; &amp;#160; b =x&lt;br /&gt;Else a = x&lt;br /&gt;End If&lt;br /&gt;Loop Until Abs(f(x)) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr()&lt;br /&gt;Dim a As Double, b As Double, x As Double&lt;br /&gt;a = 1.2&lt;br /&gt;b = 2&lt;br /&gt;‘Вызов процедуры&lt;br /&gt;Horda a, b, x&lt;br /&gt;Cells(20, 1) = “корень =”&amp;amp; Format (x, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:13:43 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=45#p45</guid>
		</item>
		<item>
			<title>Вопрос №30. VBA-программа для решения нелинейных алгебраических уравне</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=44#p44</link>
			<description>&lt;p&gt;Вопрос №30. VBA-программа для решения нелинейных алгебраических уравнений методом половинного деления.&lt;br /&gt;Пусть, дана ф-ция f(x)=0 на интервале [а; b]. Найти корни уравнения для данной функции с точностью &amp;#949; = 1Е-4. Ф-ция имеет всего 1 корень на заданном отрезке, причём значения f’(x), f”(x) определены, непрерывны и сохраняют постоянные значения.&lt;br /&gt;1. В качестве начального приближения к корню выбираем середину отрезка. x = (a + b)/2&lt;br /&gt;2. Далее исследуем значение ф-ции в точках a, b, x. Если f(a)•f(x)&amp;lt;0, то корень находится на отрезке [a; x]. Тогда отрезок [x, b] отбрасываем, т.е. b=x.&lt;br /&gt;3. Снова делим отрезок пополам…. Если… (см. п.2). Т.о., после каждой итерации отрезок, на котором расположен корень, сокращается вдвое, т.е. после k-ой итерации он сокращается в 2k раз.&lt;br /&gt;4. и т.д. до тех пор, пока |b - a| &amp;lt; &amp;#949;&lt;br /&gt;Достоинство метода: им всегда можно найти корень для заданного уравнения на заданном интервале.&lt;br /&gt;Недостаток: метод медленный, т.к. на каждом шаге интервал приходится делить пополам.&lt;br /&gt;Const eps = 1E-4&lt;br /&gt;Function F (x As Single) As Single&lt;br /&gt;F = x^2 + 5*x – 9&lt;br /&gt;End Function&lt;br /&gt;Sub PolDel (a As Single, b As Single, ByRef x As Single)&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160;x = (a + b)/2&lt;br /&gt;&amp;#160; &amp;#160;If F(a)*F(x) &amp;lt; 0 Then&lt;br /&gt;&amp;#160; &amp;#160;b = x&lt;br /&gt;&amp;#160; &amp;#160;Else&lt;br /&gt;&amp;#160; &amp;#160;a = x&lt;br /&gt;&amp;#160; &amp;#160;End If&lt;br /&gt;Loop Until Abs(b – a) &amp;lt; eps&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr&lt;br /&gt;Dim a As Single, b As Single, x As Single&lt;br /&gt;a = - 4&lt;br /&gt;b = 4&lt;br /&gt;‘Вызов процедуры&lt;br /&gt;PolDel a, b, x&lt;br /&gt;Cells (10, 1) = “корень =” &amp;amp; Format (x, “0.0000”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:13:27 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=44#p44</guid>
		</item>
		<item>
			<title>Вопрос № 29. Поиск корней нелинейного алгебраического уравнения методо</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=43#p43</link>
			<description>&lt;p&gt;Вопрос № 29. Поиск корней нелинейного алгебраического уравнения методом сканирования. VBA-программа.&lt;br /&gt;Пусть, дана ф-ция f(x)=0 на интервале [а; b]. Найти корни уравнения для данной функции с точностью &amp;#949; = 1Е-3.&lt;br /&gt;1. Найдём 1ое приближение к корню х = а и определим значение ф-ции в этой точке.&lt;br /&gt;2. Прибавим постоянный шаг, равный &amp;#949; = 1Е-3. Определим значение ф-ции в точке х = х + &amp;#949;.&lt;br /&gt;3. Если f(x)•f(х + &amp;#949;)&amp;lt;0, то есть корень на интервале [x; х + &amp;#949;]. В противном случае наращиваем шаг до тех пор, пока x&amp;gt;b.&lt;br /&gt;Достоинство метода заключается в том, что с известной погрешностью можно найти все корни для данной ф-ции, если таковые имеются на заданном интервале.&lt;br /&gt;Option Explicit&lt;br /&gt;Const eps = 0.001&lt;br /&gt;Dim x As Double, a As Double, b As Double, p As Integer&lt;br /&gt;Function F(x As Double) As Double&lt;br /&gt;F = Sin(x)&lt;br /&gt;End Function&lt;br /&gt;Sub skan(a As Double, b As Double, x As Double)&lt;br /&gt;x = a&lt;br /&gt;p = 1 &#039;номер строки&lt;br /&gt;Do&lt;br /&gt;&amp;#160; &amp;#160; x = x + eps&lt;br /&gt;&amp;#160; &amp;#160; If F(x) * F(x + eps) &amp;lt; 0 Then&lt;br /&gt;Cells(p, 1) = &amp;quot;корень&amp;quot; &amp;amp; Format(x, &amp;quot;0.000&amp;quot;)&lt;br /&gt;p = p + 1&lt;br /&gt;&amp;#160; &amp;#160; End If&lt;br /&gt;Loop Until x &amp;gt; b&lt;br /&gt;End Sub&lt;br /&gt;Sub My_Pr1()&lt;br /&gt;Worksheets(&amp;quot;Лист2&amp;quot;).Activate&lt;br /&gt;a = -7&lt;br /&gt;b = 7&lt;br /&gt;&#039;вызов процедуры&lt;br /&gt;skan a, b, x&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:13:16 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=43#p43</guid>
		</item>
		<item>
			<title>Вопрос №28. Встроенные функции MsgBox и InputBox. Привести примеры.</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=42#p42</link>
			<description>&lt;p&gt;Вопрос №28. Встроенные функции MsgBox и InputBox. Привести примеры.&lt;br /&gt;Самой простой способ вывести информацию пользователю— воспользоваться встроенной функцией VBA MsgBox().Полный ее синтаксис выглядит так:&lt;br /&gt;MsgBox(Текст[,кнопки] [,заголовок окна] [, файл справки, метка в файле справки]) &lt;br /&gt;Возможностей у MsgBox() достаточно много: &lt;br /&gt;•	можно отображать разное кол-во кнопок (OK, Cancel, Abort, Retry, Ignore, Yes, No), &lt;br /&gt;•	можно показывать символы Critical, Warning, Question, Information, &lt;br /&gt;•	можно выбирать кнопку по умолчанию, &lt;br /&gt;•	можно делать окно модальным или обычным. &lt;br /&gt;В зависимости от того, на какую пользователь кнопку нажал, такое значение возвращается приложению (всего 7 вариантов). Пример возврата значения от MsgBox():&lt;br /&gt;Dim nVar As Integer &lt;br /&gt;nVar = MsgBox (&amp;quot;Будем делать?&amp;quot;, 65, &amp;quot;Демонстрационное окно сообщения&amp;quot;) &lt;br /&gt;Если значение nVar равно 1, то пользователь нажал OK, если 2, то Cancel.&lt;br /&gt;Самый простой способ принять информацию от пользователя— воспользоваться функцией InputBox(). &lt;br /&gt;Dim Input&lt;br /&gt;Input = InputBox(&amp;quot;Введите Ваше имя: &amp;quot;) &lt;br /&gt;MsgBox (&amp;quot; Вы ввели: &amp;quot; &amp;amp; Input ) &lt;br /&gt;Для InputBox() можно указать текст приглашения, заголовок окна, значение по умолчанию, местонахождение окна и файл справки. Не забывайте, что все вводимое пользователем InputBox() автоматически переводит в тип данных String— может потребоваться выполнить преобразование.&lt;br /&gt;Можно привлечь внимание пользователем звуковым сигналом. Для этой цели используется оператор Beep:&lt;br /&gt;Dim I&lt;br /&gt;For I = 1 To 3&lt;br /&gt;Beep &lt;br /&gt;Next I &lt;br /&gt;x=InputBox(“введи х=”)-ввести число Х&lt;br /&gt;MsgBox (“число х=”)&amp;amp;x-бесформатный вывод&lt;br /&gt;MsgBox (“число х=”)&amp;amp;Format(x,”0.00”) – форматный вывод&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:12:55 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=42#p42</guid>
		</item>
		<item>
			<title>Вопрос №26. Функции рабочего листа, определенные пользователем. VBA –</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=40#p40</link>
			<description>&lt;p&gt;Вопрос №26. Функции рабочего листа, определенные пользователем. VBA – функция для расчета средних: арифметического, геометрического, гармонического. Привести примеры.&lt;br /&gt;1) Найти среднее геометрическое и гармоническое в Excel и составить программу. Массив х считывать с раб.листа Excel. &lt;br /&gt;A	B	C	D&lt;br /&gt;&amp;#160; &amp;#160; 	&lt;br /&gt;2	3	4	5&lt;/p&gt;
						&lt;p&gt;Среднее геометрическое = (x1*x2*x3*x4*xn)^1/2&lt;br /&gt;Среднее гармоническое = (1/x1+1/x2+1/x3+1/xn)^1/2&lt;br /&gt;2) Найти среднее геометрическое, арифметическое и гармоническое&lt;br /&gt;1) Option Base 1&lt;br /&gt;Const n=4&lt;br /&gt;Dim x(n) As Integer&lt;br /&gt;Function Geom (n as Integer, x()&amp;#160; as Integer) As Single&lt;br /&gt;P=1&lt;br /&gt;For I=1 to n&lt;br /&gt;P=p*x(I)&lt;br /&gt;Next I&lt;br /&gt;SrGeom=p^(1/n)&lt;br /&gt;End Function&lt;br /&gt;Function Garm (n as Integer, x () as Integer) As Single&lt;br /&gt;S=0&lt;br /&gt;For I=1 to n&lt;br /&gt;S=S+1/x(I)&lt;br /&gt;Next I&lt;br /&gt;SrGarm=n/s&lt;br /&gt;End function&lt;br /&gt;Sub MyPr_10()&lt;br /&gt;‘считывание массива&lt;br /&gt;R=Selection. Row&lt;br /&gt;C=Selection. Colomn&lt;br /&gt;K=Selection. Columns. Count&lt;br /&gt;For I=1 to n&lt;br /&gt;X(I)=Cells(R,C+I-1)&lt;br /&gt;MsgBox(«массив=»)&amp;amp;x(I)&lt;br /&gt;Next I&lt;br /&gt;‘вызов 1 функции&lt;br /&gt;SrGeom=Geom(n,x)&lt;br /&gt;‘вызов 2функции&lt;br /&gt;SrGarm=Garm(n,x)&lt;br /&gt;Cells(15,1)=”ср.геом=”&amp;amp;Format(SrGeom, “Standard”)&lt;br /&gt;Cells(16,1)=”ср.гарм=”&amp;amp;Format(SrGarm, “Fixed”)&lt;br /&gt;End Sub	2) Option Base 1&lt;br /&gt;Const n=6&lt;br /&gt;Dim x(n) As Integer&lt;br /&gt;Sub Poisk(n as Integer, x() as Integer, SrAr as Single, SrGeom as Single, SrGarm as Single) As Single&lt;br /&gt;S1=0:S2=0&lt;br /&gt;For I=1 to n&lt;br /&gt;S1=S1+x(I)&lt;br /&gt;S2=S2+1/x(I)&lt;br /&gt;S3=S3+x(I)&lt;br /&gt;Next I&lt;br /&gt;SrAr=S1/n&lt;br /&gt;SrGeom=S3^(1/n)&lt;br /&gt;SrGarm=n/S2&lt;br /&gt;End Sub&lt;br /&gt;Sub MyPr_3()&lt;br /&gt;Dim SrAr as Single, SrGeom as Single, SrGarm As Single&lt;br /&gt;R=Selection. Row&lt;br /&gt;C=Selection. Colomn&lt;br /&gt;K=Selection. Columns. Count&lt;br /&gt;For I=1 to k&lt;br /&gt;X(I)=Cells(R,C+I-1)&lt;br /&gt;MsgBox(«элемент=»)&amp;amp;x(I)&lt;br /&gt;Poisk n, x, SrAr, SrGeom, SrGarm&lt;br /&gt;Cells(10,1)=”ср.ар=”&amp;amp;Format(SrAr, “Fixed”)&lt;br /&gt;Cells(11,1)=”ср.геом=”&amp;amp;Format(SrGeom, “Standard”)&lt;br /&gt;Cells(12,1)=”ср.гарм=”&amp;amp;Format(SrGarm, “0.00”)&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:12:25 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=40#p40</guid>
		</item>
		<item>
			<title>Вопрос №25. Двумерные массивы в языке VBA. Индексы. Оператор Option Ba</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=39#p39</link>
			<description>&lt;p&gt;Вопрос №25. Двумерные массивы в языке VBA. Индексы. Оператор Option Base1. Операторы Dim и ReDim. Привести примеры.&lt;br /&gt;Двумерные массивы. К ним относятся матрицы. Матрица – таблица, заполненная числами. В VBA базовым индексом строки и столбца являются нулевые индексы.&lt;br /&gt;Описание двумерного массива.&lt;br /&gt;Dim Имя_Массива(индекс1, индекс2)As Тип_Данных&lt;br /&gt;Dim – ключевое слово, декламирующие массив; As – ключевое слово, определяющее из какого типа элементов состоит массив; Имя_Массива – это идентификатор, определяющий имя массива; Индекс1 – значение индекса(номера) последнего элемента в массиве, считая с нулевого; Индекс1 – значение индекса(номера) последнего элемента в массиве, считая с нулевого; Тип_Данных – любой тип данных в VBA.&lt;/p&gt;
						&lt;p&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; а00&amp;#160; &amp;#160; а 01&amp;#160; а 02&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;b 00&amp;#160; &amp;#160; b 01&amp;#160; b 02&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; c 00&amp;#160; &amp;#160; &amp;#160; &amp;#160; c&amp;#160; 01 &lt;br /&gt;А=&amp;#160; &amp;#160; &amp;#160; &amp;#160;а 10&amp;#160; &amp;#160;а 11&amp;#160; а 12&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; В=&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;C=&amp;#160; &amp;#160; &amp;#160; &amp;#160;c 10&amp;#160; &amp;#160; &amp;#160; &amp;#160; c 11 &lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; а 20&amp;#160; &amp;#160;а 21&amp;#160; а 22&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; b 10&amp;#160; &amp;#160;b 11&amp;#160; b 12&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; c&amp;#160; 20&amp;#160; &amp;#160; &amp;#160; &amp;#160;c 21 &lt;/p&gt;
						&lt;p&gt;Sub Primer_6()&lt;br /&gt;Dim A(2,2) As Integer&lt;br /&gt;Dim B(1,2) As Single&lt;br /&gt;Dim C(2,1)&lt;br /&gt;End Sub&lt;br /&gt;Как и в одномерных массивах, чтобы изменить базовый нулевой индекс строки и базовый yetdjq индекс столбца, в начале листа модуля нужно указать опцию Option Base 1. Тогда все массивы, используемые в программе. Будут начинаться с индекса 1. Матрицы А, В, С нужно объявить следующим образом:&lt;br /&gt;Option Base 1&lt;br /&gt;Sub Primer_6()&lt;br /&gt;Dim A(3,3) As Integer&lt;br /&gt;Dim B(2,2) As Single&lt;br /&gt;Dim C(3,2)&lt;br /&gt;End Sub&lt;br /&gt;Элементы матрицы распределяться следующим образом:&lt;/p&gt;
						&lt;p&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; a11&amp;#160; &amp;#160; а 12&amp;#160; а 13&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;b 11&amp;#160; &amp;#160; b 12&amp;#160; b 13&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;c 11&amp;#160; &amp;#160; &amp;#160; &amp;#160; c&amp;#160; 12 &lt;br /&gt;А=&amp;#160; &amp;#160; &amp;#160; &amp;#160;а 21&amp;#160; &amp;#160;а 22&amp;#160; а 23&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; В=&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; C=&amp;#160; &amp;#160; &amp;#160; &amp;#160;c 21&amp;#160; &amp;#160; &amp;#160; &amp;#160; c 22 &lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; а 31&amp;#160; &amp;#160;а 32&amp;#160; а 33&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;b 21&amp;#160; &amp;#160;b 22&amp;#160; b 23&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;c&amp;#160; 31&amp;#160; &amp;#160; &amp;#160; &amp;#160;c 32 &lt;/p&gt;
						&lt;p&gt;Другим способом изменения нулевого базового индекса на единичный является использование ключевого слова To при объявлении массива. &lt;br /&gt;Option Base 1&lt;br /&gt;Sub Primer 2()&lt;br /&gt;Dim A(1 to 3, 1 to 3 ) As Integer&lt;br /&gt;Dim B(1 to 2, 1 to 3) As Integer&lt;br /&gt;Dim c(1to 3, 1 to 2) As Variant&lt;br /&gt;End Sub&lt;br /&gt;Иногда в процессе выполнения программы требуется изменить размер массива. В этом случае первоначально массив объявляется как динамический, т.е. в объявлении не указывается размерность. Количество элементов в массиве можно предопределить с помощью ключевого слова ReDim. &lt;br /&gt;ReDim Имя_Массива (индекс) As Тип_Данных&lt;br /&gt;Option Base 1&lt;br /&gt;Sub Primer_10()&lt;br /&gt;Dim B()&lt;br /&gt;Const N As Integer =2’количество строк обозначено как N&lt;br /&gt;Const M As Integer =3’количество столбцов обозначено как М&lt;br /&gt;ReDim В(N,М) As Single&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:12:07 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=39#p39</guid>
		</item>
		<item>
			<title>Вопрос №24.Считывание одномерных и двумерных массивов с рабочего листа</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=38#p38</link>
			<description>&lt;p&gt;Вопрос №24.Считывание одномерных и двумерных массивов с рабочего листа Excel в память VBA и вывод на рабочий лист Excel (бесформатный и форматный). Форматы: “Fixed”, “Standard”, “Currency”.Привести примеры.&lt;br /&gt;Допустим дан одномерный массив X(4). Исходные данные: x=0.5; x=-3, x=10.1, x=5. Занесем эти числа в рабочий лист Excel в область A1:D1. &lt;br /&gt;Одномерный массив считывается в цикле.&lt;br /&gt;For I=1 To 4&lt;br /&gt;X(I)=Cells(1,I).Value&lt;br /&gt;Next I&lt;br /&gt;Работа цикла: 1 цикл: I=1&amp;lt;=4-да, Х(1)=Cells(1,1)’ В Х(1) заноситься значение ячейки А(1,1)=0,5&lt;br /&gt;Next I&lt;br /&gt;2 цикл: I=2&amp;lt;=4-да, Х(2)=Cells(1,2)’ в Х(2) заноситься значение ячейки А(1,2)=-3&lt;br /&gt;Next I и так далее. Проверка окончания цикла: I=5&amp;lt;=4-нет. Тогда цикл прекращает работу и выполняется следующий оператор, стоящий за концом цикла, т.е. за Next I. &lt;br /&gt;Вывод одномерного массива по формату. Одномерный массив выводиться на рабочий лист Excel тоже в одном цикле, например, для вещественных чисел:&lt;br /&gt;For I=1 To 4&lt;br /&gt;Cells(3,I)=Format(X(I), “0.0”)&lt;br /&gt;Next I&lt;br /&gt;Для целых чисел: &lt;br /&gt;For I=1 To 4&lt;br /&gt;Cells(3,I)=Format(Y(I), “0”)&lt;br /&gt;Next I	Бесформатный вывод одномерного массива. &lt;br /&gt;For I=1 To 4&lt;br /&gt;Cells(3,I)=Y(I)&lt;br /&gt;Next I&lt;/p&gt;
						&lt;p&gt;Пользователь выбирает формат самостоятельно. Если массив был описан как Single или Double, то и числа нужно выводить как вещественные с определенным количеством знаков после запятой, отделяющую целую часть числа от дробной. А если массив был описан как Integer или как Byte, то и числа нужно вводить как целые. &lt;br /&gt;Ввод матрицы(двумерного массива). Данные заносят в ячейки Excel. Если значение матрицы B(2,3) занести в область рабочего листа А1:С2, тогда в память VBA числаматрицы считываются из ячеек в двух циклах по строкам и столбцам, т.е.&lt;br /&gt;For I=1 To2 ‘внешний цикл&lt;br /&gt;For J=1 To 3’внутренний цикл&lt;br /&gt;B(I,J)=Cells(I,J).Value&lt;br /&gt;Next J&lt;br /&gt;Next I&lt;br /&gt;При первом внешнем цикле I=1 работает весь внутренний цикл от 1 до 3 (шаг по умолчанию 1) вместе с циклической частью. При 2 внешнем цикле I=2 снова работает весь внутренний цикл 3 раза вместе с циклической частью. Пример:&lt;br /&gt;1 цикл внешний I=1&lt;br /&gt;1 цикл внутренний J=1&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; B(1,1)=Cells(1,1).Value&lt;br /&gt;2 цикл внутренний J=2&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;B(1,2)=Cells(1,2).Value&lt;br /&gt;3 цикл внутренний J=3&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; B(1,3)=Cells(1,3).Value.&lt;br /&gt;При завершении внутреннего цикла снова меняется внешний цикл&lt;br /&gt;2 ц. внешний I=2&lt;br /&gt;1 ц. внутренний J=1&lt;br /&gt;B(2,1)=Cells(2,1).Value&lt;br /&gt;2 ц. внутренний J=2&lt;br /&gt;B(2,2)=Cells(2,2).Value&lt;br /&gt;3 цикл внутренний J=3&lt;br /&gt;B(2,3)=Cells(2,3).Value&lt;br /&gt;Таким образом, циклическая часть отработала 2*3=6&lt;br /&gt;Вывод матрицы таблицей по формату. Матрица выводиться на рабочий лист Excel тоже в двух циклах, например, для вещественных чисел:&lt;br /&gt;For I=1 To2 ‘внешний цикл&lt;br /&gt;For J=1 To 3’внутренний цикл&lt;br /&gt;Cells(I,J)=Format(B(I,J),”0.0#”)&lt;br /&gt;Next J&lt;br /&gt;Next I&lt;br /&gt;Для целых чисел:&lt;br /&gt;For I=1 To2 &lt;br /&gt;For J=1 To 3&lt;br /&gt;Cells(10+I,J)=Format(X(I,J),”0”)&lt;br /&gt;Next J&lt;br /&gt;Next I&lt;br /&gt;По этой программе заносятся числа матрицы в рабочие ячейки следующим образом:&lt;br /&gt;Cells(11,1)=X(1,1)&lt;br /&gt;Cells(11,2)=X(1,2)&lt;br /&gt;Cells(11,3)=X(1,3)&lt;br /&gt;Cells(12,1)=X(2,1)&lt;br /&gt;Cells(12,2)=X(2,2)&lt;br /&gt;Cells(12,3)=X(2,3)	Бесформатный вывод матрицы. &lt;br /&gt;For I=1 To2 &lt;br /&gt;For J=1 To 3&lt;br /&gt;Cells(10+I,J)=X(I,J).Value&lt;br /&gt;Next J&lt;br /&gt;Next I&lt;/p&gt;
						&lt;p&gt;Пользователь выбирает формат самостоятельно. Если массив был описан как Single или Double, то и числа нужно выводить как вещественные с определенным количеством знаков после запятой, отделяющую целую часть числа от дробной. А если массив был описан как Integer или как Byte, то и числа нужно вводить как целые. &lt;br /&gt;Именованный формат	Описание&lt;br /&gt;Currency	Выводит 2 цифры справа от дес. точки и учитывает разделителя для тысяч&lt;br /&gt;Fixed	По крайней мере одна цифра слева и две справа от десятичной точки&lt;br /&gt;Standard	То же и разделитель тысяч&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:11:42 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=38#p38</guid>
		</item>
		<item>
			<title>Вопрос №23. Одномерные массивы и их описания. Индексы массивов. Операт</title>
			<link>http://deathwish.mybb.ru/viewtopic.php?pid=37#p37</link>
			<description>&lt;p&gt;Вопрос №23. Одномерные массивы и их описания. Индексы массивов. Операторы Dim и ReDim . Оператор Option Base 1. &lt;br /&gt;Одномерные массивы. Массив представляет собой структуру, т.е. упорядоченную последовательность (совокупность) данных одного типа, объединенных общим именем. Массивы относятся к структурным типам переменных. &lt;br /&gt;Массивы могут быть одномерными и многомерными. Одномерные массивы определяют вектор, двумерные – матрицы. Обычной записи a0, a1, a2 в VBA соответствуют следующие члены последовательности массива A – это А(0), А(1), А(2). А(0) – нулевой элемент массива А, А(1) – первый элемент массива А, А(2) – второй элемент массива А. А(0), А(1), А(2)-индексные переменные. Каждый элемент (компонента) массива определяются именем массива и индексом, т.е его положением в массиве. Индекс заключается в круглые скобки. В VBA базовым индексом является нулевой. Все массивы, используемые в программе, должны быть описаны (объявлены) в самом начале программы для резервирования памяти. &lt;br /&gt;Описание массива. Dim Имя_Массива (индекс) As Тип_Данных, Dim – ключевое слово, декламирующие массив; As – ключевое слово, определяющее из какого типа элементов состоит массив; Имя_Массива – это идентификатор, определяющий имя массива; Индекс – значение индекса(номера) последнего элемента в массиве, считая с нулевого; Тип_Данных – любой тип данных в VBA.&lt;br /&gt;Пример объявления массивов&lt;br /&gt;Sub Primer()&lt;br /&gt;Dim A(2) As Integer&lt;br /&gt;Dim X(3) As Single&lt;br /&gt;Dim B(50)&lt;br /&gt;…..&lt;br /&gt;End Sub. Массив А будет состоять из 3 элементов: А(0), А(1), А(2). Массив Х – из 4, и т.д.&lt;br /&gt;Чтобы изменить базовый - нулевой тип на единичный, в начале листа модуля нужно написать опцию Option Base 1.&lt;br /&gt;Другим способом изменения нулевого базового индекса на единичный является использование ключевого слова To при объявлении массива. Sub Primer 2()&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; Dim Z(1 to 4 ) As Integer&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; Dim D(1 to 10) As Single&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; End Sub, Z будет состоять из 4 элементов, D из 10. &lt;br /&gt;Иногда в процессе выполнения программы требуется изменить размер массива. В этом случае первоначально массив объявляется как динамический. Тогда в объявлении не указывается размерность. Количество элементов в массиве можно предопределить с помощью ключевого слова ReDim. &lt;br /&gt;ReDim Имя_Массива (индекс) As Тип_Данных&lt;br /&gt;Sub Primer_3()&lt;br /&gt;Dim C()&lt;br /&gt;Const N As Integer =3&lt;br /&gt;ReDim C(1 To N) As Single&lt;br /&gt;….&lt;br /&gt;End Sub&lt;br /&gt;__________&lt;br /&gt;Option Base 1&lt;br /&gt;Sub Primer_4()&lt;br /&gt;Dim C()&lt;br /&gt;Const N As Integer =3&lt;br /&gt;ReDim C(N) As Single&lt;br /&gt;….&lt;br /&gt;End Sub&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zlobnoe)</author>
			<pubDate>Thu, 19 Nov 2009 13:11:19 +0300</pubDate>
			<guid>http://deathwish.mybb.ru/viewtopic.php?pid=37#p37</guid>
		</item>
	</channel>
</rss>
