<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; Арифметика</title>
	<atom:link href="http://www.vbfaq.ru/category/arithmetic/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Кривая Коха &#8212; как правильно построить рекурсию</title>
		<link>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/</link>
		<comments>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:59:57 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[Кривая Коха]]></category>
		<category><![CDATA[рекурсия]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=510</guid>
		<description><![CDATA[Кривая Коха &#8212; как правильно построить рекурсию Private Sub Command1_Click() Cls Kohh Text1.Text, 0, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY, _ Me.ScaleWidth, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY End Sub Private Sub Kohh(NumIt As Integer, x1&#038;, y1&#038;, x2&#038;, y2&#038;) If NumIt = 1 Or (x1 \ Screen.TwipsPerPixelX = x2 \ Screen.TwipsPerPixelX And y1 \ Screen.TwipsPerPixelY = y2 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/kak-pravilno-postroit-rekursiyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Кривая Коха &#8212; как правильно построить рекурсию</title>
		<link>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/</link>
		<comments>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:59:25 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[Кривая Коха]]></category>
		<category><![CDATA[рекурсия]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=508</guid>
		<description><![CDATA[Кривая Коха &#8212; как правильно построить рекурсию Option Explicit Dim L, h, xstart, ystart, xend, yend As Double Dim level As Integer Private Sub scaling(xstart, ystart, xend, yend) Picture1.Scale (-xstart, xstart)-(xstart, -xstart) Picture1.DrawWidth = 2 End Sub Private Sub Command1_Click() xstart = -10: ystart = 0: xend = 10: yend = 0: level = Val(Text1.Text) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/krivaya-koxa-kak-pravilno-postroit-rekursiyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu-3/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu-3/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:55:15 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[кратные]]></category>
		<category><![CDATA[положительные]]></category>
		<category><![CDATA[сумма]]></category>
		<category><![CDATA[числа]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=502</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For x = 21 to x = 99 step 3 itog = itog + x Next x]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu-3/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu-2/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu-2/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:54:43 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[кратные]]></category>
		<category><![CDATA[положительные]]></category>
		<category><![CDATA[сумма]]></category>
		<category><![CDATA[числа]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=500</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And (num(i) Mod 3) = 0 Then ' проверка Sum = Sum + [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3</title>
		<link>http://www.vbfaq.ru/2011/09/najti-summu/</link>
		<comments>http://www.vbfaq.ru/2011/09/najti-summu/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 11:53:05 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[кратные]]></category>
		<category><![CDATA[положительные]]></category>
		<category><![CDATA[сумма]]></category>
		<category><![CDATA[числа]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=497</guid>
		<description><![CDATA[Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 0 And num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And num(i) / 3 = Int(num(i) / 3) Then [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/najti-summu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Определить, является ли дробь периодической</title>
		<link>http://www.vbfaq.ru/2011/09/opredelit-yavlyaetsya-li-drob-periodicheskoj-2/</link>
		<comments>http://www.vbfaq.ru/2011/09/opredelit-yavlyaetsya-li-drob-periodicheskoj-2/#comments</comments>
		<pubDate>Wed, 21 Sep 2011 09:26:21 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[дробь]]></category>
		<category><![CDATA[периодическая]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=491</guid>
		<description><![CDATA[Определить, является ли дробь периодической Private Function GetPeriod(str As String) As String Dim arr a = Right(str, Len(str) - InStr(Replace(str, ",", "."), ".")) b = a retValue = "" For w = 0 To Len(b) - 1 retValue = Left(b, w) a = Right(a, Len(b) - w) For i = 1 To Len(a) / 2 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/09/opredelit-yavlyaetsya-li-drob-periodicheskoj-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Построения таблицы значений X и Y</title>
		<link>http://www.vbfaq.ru/2011/02/postroeniya-tablicy-znachenij-x-i-y/</link>
		<comments>http://www.vbfaq.ru/2011/02/postroeniya-tablicy-znachenij-x-i-y/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:38:34 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[диапозон]]></category>
		<category><![CDATA[простроить]]></category>
		<category><![CDATA[таблица]]></category>
		<category><![CDATA[функция]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=473</guid>
		<description><![CDATA[Построения таблицы значений X и Y Составить программу для построения таблицы значений X и Y для функции Y=X^3-e^(2*X-1) при изменении X в диапазоне от -5 до 5 с шагом 0.31 В колонках должны быть n, x, y>0, y&#60;0 где n &#8212; номер по порядку. Private Sub Command1_Click() Dim x0 As Double Dim xn As Double [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/postroeniya-tablicy-znachenij-x-i-y/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти минимальное число из квадратов данной последовательности</title>
		<link>http://www.vbfaq.ru/2011/02/chislo-iz-kvadratov/</link>
		<comments>http://www.vbfaq.ru/2011/02/chislo-iz-kvadratov/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:36:41 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[квадрат]]></category>
		<category><![CDATA[массив]]></category>
		<category><![CDATA[минимальное]]></category>
		<category><![CDATA[последовантельность]]></category>
		<category><![CDATA[цикл]]></category>
		<category><![CDATA[элемент]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=469</guid>
		<description><![CDATA[Найти минимальное число из квадратов данной последовательности Dim arrC(10) 'Объявляем массив Dim Min 'переменная для минимального значения Randomize 'Заполняем массив случайными числами, перебирая в цикле все его элементы For i = LBound(arrC) To UBound(arrC) Step 1 arrC(i) = Int(Rnd * 100) Next i 'Снова перебираем массив (кроме первого элемента, его квадрат первоначально считаем минимальным) и [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/chislo-iz-kvadratov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как правильно построить Ковер Серпинского</title>
		<link>http://www.vbfaq.ru/2011/02/kover-serpinskogo/</link>
		<comments>http://www.vbfaq.ru/2011/02/kover-serpinskogo/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:29:26 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[ковер]]></category>
		<category><![CDATA[построение]]></category>
		<category><![CDATA[Серпинский]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=457</guid>
		<description><![CDATA[Как правильно построить Ковер Серпинского Option Explicit Dim xA, yA, xB, yB, xC, yC As Double Dim level As Integer Dim yT As Double Private Sub Command1_Click() Picture1.Cls 'Picture1.Scale (-10, 10)-(10, -10) Picture1.DrawWidth = 2 'xA = -8: yA = -8: xC = 8: yC = -8 xA = 300: yA = Picture1.Height - 300: [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/kover-serpinskogo/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Найти максимальное число среди отрицательных (из 10 чисел)</title>
		<link>http://www.vbfaq.ru/2011/02/najti-maksimalnoe-chislo/</link>
		<comments>http://www.vbfaq.ru/2011/02/najti-maksimalnoe-chislo/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:27:29 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Арифметика]]></category>
		<category><![CDATA[максимальное]]></category>
		<category><![CDATA[найти]]></category>
		<category><![CDATA[отрицательное]]></category>
		<category><![CDATA[число]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=455</guid>
		<description><![CDATA[Найти максимальное число среди отрицательных (из 10 чисел) Option Explicit Private Sub Command1_Click() Dim arr As Variant Dim i As Integer Dim maxOtr As Double arr = Array(25, -8, -12, -3, 26, -52, 100, -115, 9, -2) maxOtr = -1 For i = 0 To UBound(arr) If Sgn(arr(i)) = -1 Then If arr(i) < maxOtr [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/najti-maksimalnoe-chislo/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

