<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=610379</guid>
        <pubDate>Sat, 12 Feb 2005 20:52:41 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=610379</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=610144'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Arsuit &#064; <time class="tag-quote__quoted-time" datetime="2005-02-12T18:37:57+03:00">12.02.05, 15:37</time></span><div class='quote '>Ну там есть небольшая документация</div></div>Я видел, разумеется.  :) <br>
Но описание нужно ведь оформить, а кто этим должен заниматься? Можешь прямо здесь, в этой теме, написать сообщение с оформленным средствами форума описанием.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=610144</guid>
        <pubDate>Sat, 12 Feb 2005 15:37:57 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=610144</link>
        <description><![CDATA[Arsuit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=609965'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Romtek &#064; <time class="tag-quote__quoted-time" datetime="2005-02-12T11:00:43+00:00">12.02.05, 11:00</time></span><div class='quote '>Я же просил не кидать, а оформлять как следует.</div></div><br>
Ну там есть небольшая документация]]></description>
        <author>Arsuit</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609965</guid>
        <pubDate>Sat, 12 Feb 2005 11:00:43 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609965</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=609520'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Arsuit &#064; <time class="tag-quote__quoted-time" datetime="2005-02-11T19:46:04+00:00">11.02.05, 19:46</time></span><div class='quote '>Кидаю...</div></div>Я же просил не кидать, а оформлять как следует.<br>
Хочу видеть статьи, готовые к выпуску, а не модуль с программой.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609557</guid>
        <pubDate>Fri, 11 Feb 2005 20:37:20 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609557</link>
        <description><![CDATA[KiRiK: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=609520'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Arsuit &#064; <time class="tag-quote__quoted-time" datetime="2005-02-11T19:46:04+00:00">11.02.05, 19:46</time></span><div class='quote '>Вот видел нужен модуль для работы с БМП из ТМТ. Кидаю... </div></div><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=64755' target='_blank'>Работа с картинками</a>]]></description>
        <author>KiRiK</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609520</guid>
        <pubDate>Fri, 11 Feb 2005 19:46:04 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=609520</link>
        <description><![CDATA[Arsuit: Вот видел нужен модуль для работы с БМП из ТМТ. Кидаю...]]></description>
        <author>Arsuit</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=600143</guid>
        <pubDate>Thu, 03 Feb 2005 13:53:22 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=600143</link>
        <description><![CDATA[Vesper: ну задач таких немного, где обязательно читать информацию разными блоками... ядро в принципе одно и то же, только его использование нужно менять<br>надо подумать над такой задачей (подобрать нормальный пример)]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=600135</guid>
        <pubDate>Thu, 03 Feb 2005 13:46:13 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=600135</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=526947'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vesper &#064; <time class="tag-quote__quoted-time" datetime="2004-11-29T13:02:05+00:00">29.11.04, 13:02</time></span><div class='quote '>так, вот обещанная прога, переработал ее под объекты, разница только в том, что нельзя непосредственно подсмотреть скажем буфер. </div></div><br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=526947'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vesper &#064; <time class="tag-quote__quoted-time" datetime="2004-11-29T13:02:05+00:00">29.11.04, 13:02</time></span><div class='quote '>В соседнем файле (BufView.pas) пример использования буферизованного ввода для быстрого вывода BMP файла на экран. </div></div><br>
<br>
<strong class='tag-b'>Vesper</strong>, а не мог бы ты составить простой пример <strong class='tag-b'>без</strong> графики?<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=526947' target='_blank'>сообщ. №46</a>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=579603</guid>
        <pubDate>Mon, 17 Jan 2005 00:15:04 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=579603</link>
        <description><![CDATA[Romtek: <div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Program Animation;</div><div class="code_line">&nbsp;</div><div class="code_line">uses Crt,Graph;</div><div class="code_line">&nbsp;</div><div class="code_line">const</div><div class="code_line">&nbsp;Triangle: array[1..4] of PointType = ((X: 50; Y: 100), (X: 100; Y:100),</div><div class="code_line">&nbsp;&nbsp; (X: 150; Y: 150), (X: &nbsp;50; Y: 100));</div><div class="code_line">&nbsp;</div><div class="code_line">var Gd, Gm, Ap: Integer;</div><div class="code_line">&nbsp;&nbsp; &nbsp;Xpos : integer;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;STab : Array[0..199] of integer;</div><div class="code_line">&nbsp;</div><div class="code_line">Procedure Retrace;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;while (Port[DA] and  = 0) do;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">Procedure Flip;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;SetActivePage(Ap);</div><div class="code_line">&nbsp;&nbsp;Ap := (Ap + 1) and 1;</div><div class="code_line">&nbsp;&nbsp;SetVisualPage(Ap);</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">Function InitializeGraph : boolean;</div><div class="code_line">begin</div><div class="code_line">&nbsp;Gd := VGA;</div><div class="code_line">&nbsp;InitGraph(Gd, Gm,&#39;..\bgi&#39;);</div><div class="code_line">&nbsp;if GraphResult &#60;&#62; grOk then Halt(1);</div><div class="code_line">&nbsp;If (Gd = HercMono) or (Gd = EGA) or (Gd = EGA64) or (Gd = VGA) then begin</div><div class="code_line">&nbsp;&nbsp;InitializeGraph := True;</div><div class="code_line">&nbsp;&nbsp;Flip;</div><div class="code_line">&nbsp;end else begin</div><div class="code_line">&nbsp;&nbsp;OutText(&#39;No paging supported.&#39;);</div><div class="code_line">&nbsp;&nbsp;InitializeGraph := False;</div><div class="code_line">&nbsp;end;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;If InitializeGraph then begin</div><div class="code_line">&nbsp;&nbsp;For Stab[0] := 1 to 199 do</div><div class="code_line">&nbsp;&nbsp; Stab[Stab[0]] := round(50*Sin( (Stab[0] * (360/199)*pi) / 180));</div><div class="code_line">&nbsp;&nbsp;Stab[0] := 0;</div><div class="code_line">&nbsp;&nbsp;repeat</div><div class="code_line">&nbsp;&nbsp; Xpos := (Xpos +1) mod 200;</div><div class="code_line">&nbsp;&nbsp; ClearDevice;</div><div class="code_line">&nbsp;&nbsp; Circle(Xpos+50,100,50);</div><div class="code_line">&nbsp;&nbsp; Circle(250-Xpos,100,50);</div><div class="code_line">&nbsp;&nbsp; DrawPoly(SizeOf(Triangle) div Sizeof(PointType), Triangle);</div><div class="code_line">&nbsp;&nbsp; Triangle[1].Y := 50+Stab[Xpos] div 2;</div><div class="code_line">&nbsp;&nbsp; Triangle[1].X := 100-Stab[Xpos] div 2;</div><div class="code_line">&nbsp;&nbsp; Triangle[2].Y := 100+Stab[Xpos];</div><div class="code_line">&nbsp;&nbsp; Triangle[2].X := 100-Stab[Xpos];</div><div class="code_line">&nbsp;&nbsp; Triangle[3].X := 150+Stab[Xpos];</div><div class="code_line">&nbsp;&nbsp; Triangle[4] := Triangle[1];</div><div class="code_line">&nbsp;&nbsp; Line(60-Stab[Xpos],50,60+Stab[Xpos],10);</div><div class="code_line">&nbsp;&nbsp; Retrace;</div><div class="code_line">&nbsp;&nbsp; Flip;</div><div class="code_line">&nbsp;&nbsp;until keypressed;</div><div class="code_line">&nbsp;end;</div><div class="code_line">&nbsp;Readkey;</div><div class="code_line">&nbsp;CloseGraph;</div><div class="code_line">end.</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
<br>
Кто может составить статью по применению видеостраниц для анимации? Описать всё популярным языком.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576955</guid>
        <pubDate>Fri, 14 Jan 2005 11:38:03 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576955</link>
        <description><![CDATA[Romtek: Чуток оформил твой код...<br>
Надо только дополнить комментами.<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">uses graph, crt;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure InitGraphics;</div><div class="code_line">Const</div><div class="code_line">&nbsp;&nbsp; PathToBGI = &#39;e:\bp\bgi&#39;;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp; gd, gm,</div><div class="code_line">&nbsp;&nbsp; ErrorCode: Integer;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;gd := VGA;</div><div class="code_line">&nbsp;&nbsp;gm := VGAHi;</div><div class="code_line">&nbsp;&nbsp;InitGraph (gd, gm, PathToBGI);</div><div class="code_line">&nbsp;&nbsp;ErrorCode := GraphResult;</div><div class="code_line">&nbsp;&nbsp;if ErrorCode &#60;&#62; grOk then</div><div class="code_line">&nbsp;&nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Writeln (&#39;Graphics error: &#39;, GraphErrorMsg (ErrorCode));</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Readln;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Halt (1);</div><div class="code_line">&nbsp;&nbsp;end;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">Const</div><div class="code_line">&nbsp;&nbsp; Border = 5;</div><div class="code_line">&nbsp;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp; i, x, y,</div><div class="code_line">&nbsp;&nbsp; mx, my :integer;</div><div class="code_line">&nbsp;&nbsp; eexit:byte;</div><div class="code_line">&nbsp;&nbsp; c:char;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure DrawCursor;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;line (x - 15, y, x - 1, y);</div><div class="code_line">&nbsp;&nbsp;line (x, y - 15, x, y - 1);</div><div class="code_line">&nbsp;&nbsp;line (x + 15, y, x + 1, y);</div><div class="code_line">&nbsp;&nbsp;line (x, y + 15, x, y + 1);</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;eexit := 0;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;InitGraphics;</div><div class="code_line">&nbsp;&nbsp;mx := GetMaxX;</div><div class="code_line">&nbsp;&nbsp;my := GetMaxY;</div><div class="code_line">&nbsp;&nbsp;x := mx div 2;</div><div class="code_line">&nbsp;&nbsp;y := my div 2;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;OutText (&#39;Press Esc to exit&#39;);</div><div class="code_line">&nbsp;&nbsp;setcolor (Yellow);</div><div class="code_line">&nbsp;&nbsp;DrawCursor;</div><div class="code_line">&nbsp;&nbsp;repeat</div><div class="code_line">&nbsp;&nbsp; &nbsp;c := readkey;</div><div class="code_line">&nbsp;&nbsp; &nbsp;if c=#27 then eexit := 1;</div><div class="code_line">&nbsp;&nbsp; &nbsp;if c=#0 then</div><div class="code_line">&nbsp;&nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;c := readkey;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;setcolor (Black);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;DrawCursor;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;case c of</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;&#39;K&#39;:</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dec (x, 5);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if x &#60;= Border then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;x := Border;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;&#39;M&#39;:</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc (x, 5);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if x &#62;= mx - Border then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;x := mx - Border;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;&#39;H&#39;:</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dec (y, 5);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if y &#60;= Border then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;y := Border;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;&#39;P&#39;:</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc (y, 5);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if y &#62;= my - Border then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;y := my - Border;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;setcolor (Yellow);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;DrawCursor;</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp;until eexit &#62; 0;</div><div class="code_line">&nbsp;&nbsp;closegraph;</div><div class="code_line">end.</div></ol></div></div></div></div>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576878</guid>
        <pubDate>Fri, 14 Jan 2005 10:39:33 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576878</link>
        <description><![CDATA[Vesper: вот, только без комментов]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576871</guid>
        <pubDate>Fri, 14 Jan 2005 10:30:42 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=576871</link>
        <description><![CDATA[Vesper: <strong class='tag-b'>Romtek</strong>, завис :( если не подвалят ченить ща будет]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=575390</guid>
        <pubDate>Thu, 13 Jan 2005 11:41:42 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=575390</link>
        <description><![CDATA[Romtek: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=51046&st=15' target='_blank'>Неотёсанные топики</a> (Сообщ. #22) &quot;Определение принадлежности точки к многоугольнику&quot;<br>
Кто может, проверьте почему при некоторых значениях выдаётся неверный результат.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=569408</guid>
        <pubDate>Sat, 08 Jan 2005 22:10:41 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=569408</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=528637'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vesper &#064; 30.11.04, 19:27</span><div class='quote '>есть у меня прога, которая двигает крест в графике по экрану как прицел от курсорных клавиш, но там юзается модуль, который обрабатывает INT09, соответственно не подходит :( в принципе переделать под обычный readkey не проблема, завтра займусь</div></div><br>
А прога где ?  ;)]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=567471</guid>
        <pubDate>Thu, 06 Jan 2005 21:47:52 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=567471</link>
        <description><![CDATA[Romtek: Спасибо&#33; Именно то, что надо.  ;) <br>
<br>
<span class='tag-u'>Замечания к программе MENU.PAS :</span><ol class="tag-list" type="1"><li><br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp; &nbsp;Case ScanCode Of</div><div class="code_line">&nbsp;</div><div class="code_line">#77 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;PrintElementMenu((St - 1) * Length(Menu[St]) + 2,3,St,False);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;If St &#60;&#62; 7 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Inc(St)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Else</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; St := 1;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;PrintElementMenu((St - 1) * Length(Menu[St]) + 2,3,St,True);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;End;</div><div class="code_line">&nbsp;</div><div class="code_line">#75 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;PrintElementMenu((St - 1) * Length(Menu[St]) + 2,3,St,False);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;If St &#60;&#62; 1 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Dec(St)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Else</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; St := 7;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;PrintElementMenu((St - 1) * Length(Menu[St]) + 2,3,St,True);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;End</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div></ol></div></div></div></div><br>
лучше упростить с помошью введения дополнительной функции, в которую будем передавать параметр <em class='tag-i'>True </em>или <em class='tag-i'>False</em><div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">...</div><div class="code_line">procedure ShowMenu (Active: boolean);</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;PrintElementMenu((St - 1) * Length(Menu[St]) + 2,3,St,Active);</div><div class="code_line">end;</div><div class="code_line">...</div><div class="code_line">&nbsp;&nbsp; &nbsp;Case ScanCode Of</div><div class="code_line">&nbsp;</div><div class="code_line">#77 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ShowMenu (False);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;If St &#60;&#62; 7 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Inc(St)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Else</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; St := 1;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ShowMenu (True);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;End;</div><div class="code_line">&nbsp;</div><div class="code_line">#75 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ShowMenu (False);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;If St &#60;&#62; 1 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Dec(St)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Else</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; St := 7;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;ShowMenu (True);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;End</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div></ol></div></div></div></div><br>
</li><li><br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;Case MainMenuHorizontal Of</div><div class="code_line">1 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј1&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">2 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј2&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">3 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј3&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">4 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј4&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">5 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј5&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">6 : Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;ClrScr;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;WriteLn(&#39;Режим ј6&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;End;</div><div class="code_line">7 : Halt;</div><div class="code_line">&nbsp;&nbsp;End;</div></ol></div></div></div></div><br>
по-моему, проще переписать в<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">i := MainMenuVertical;</div><div class="code_line">if i in [1..6] then</div><div class="code_line">&nbsp;&nbsp;Menu[i];</div><div class="code_line">else</div><div class="code_line">&nbsp;&nbsp;Halt;</div></ol></div></div></div></div>аналогично и с <em class='tag-i'>MainMenuHorizontal</em><br>
<br>
</li><li>Куски типа<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;MainWindow(35,8,44,16,&#39;Name&#39;);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;PrintElementMenu(35,9,1,True);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;For i := 2 to 7 do</div><div class="code_line">&nbsp;&nbsp; Begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; PrintElementMenu(35,8 + i,i,False);</div><div class="code_line">&nbsp;&nbsp; end;</div></ol></div></div></div></div>меня смущают. Никогда не пиши программу с константными значениями, максимум - значения высоты и ширины экрана (MaxX=80, MaxY=25). Остальное заменяй на общий код. Хочешь выставить значение центра по X - пиши так:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">(Hi (WindMin) - Lo (WindMin)) div 2;</div></ol></div></div></div></div><br>
В крайнем случае, если не пишешь, то хотя бы одинаковые значения в программе обозначь одной константой.<br>
Например, значения 10, 9 желательно заменить на CX, CX-1</li></ol>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=567419</guid>
        <pubDate>Thu, 06 Jan 2005 20:50:03 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=567419</link>
        <description><![CDATA[Dima_R: Ура&#33; Сдал первый экзамен. Вот написал, правда, снова не идеал, но намного лучше чем в прошлый раз. Плюс программка для чтения файлов.]]></description>
        <author>Dima_R</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=565263</guid>
        <pubDate>Tue, 04 Jan 2005 20:52:20 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=565263</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=551005'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Romtek &#064; 21.12.04, 20:52</span><div class='quote '>А ещё нужна програмка, отображающая меню при помощи модуля CRT.</div></div>Всё ещё нужна. см. <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=73305&st=75&#' target='_blank'>(сообщ. #78)</a><br>
<br>
Также нужна программа, которая выводит текстовый файл на экран. При нажатии на пробел окно должно прокручиваться на размер экрана (без лишних наворотов, просто и понятно).]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=562759</guid>
        <pubDate>Sat, 01 Jan 2005 23:04:45 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=562759</link>
        <description><![CDATA[Romtek: <span class='tag-u'>Пример базы данных с использованием ООП</span> (продолжение от SortRec)<br>
При первом запуске создаёт коллекцию и сохраняет в файл, и при повторном выводит её в отсортированном виде.<br>
Примечательно то, что с использованием объектов уменьшился код програмы.<br>
К тому же, легче понять, что делает программа.<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">unit Shop_obj;</div><div class="code_line">&nbsp;</div><div class="code_line">interface</div><div class="code_line">uses Objects;</div><div class="code_line">&nbsp;</div><div class="code_line">type</div><div class="code_line">&nbsp;&nbsp; &nbsp;TInfo = record</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Product: string [40]; { наименование товара }</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Price: &nbsp;integer; { цена }</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; &nbsp;PInfo = ^TInfo;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;TProductInfo = object (TObject)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;TransferRecord: TInfo;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;constructor Load (var S: TStream);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;procedure &nbsp; Store(var S: TStream);</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; &nbsp;PProductInfo = ^TProductInfo;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;TProductColl = object (TSortedCollection)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;function Compare (Key1, Key2: Pointer): Integer; virtual;</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; &nbsp;PProductColl = ^TProductColl;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure ListAll (C: PCollection);</div><div class="code_line">&nbsp;</div><div class="code_line">implementation</div><div class="code_line">&nbsp;</div><div class="code_line">Const</div><div class="code_line">&nbsp;&nbsp; &nbsp;RProductInfo: TStreamRec = (</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; ObjType: 54321;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; VmtLink: Ofs(TypeOf(TProductInfo)^);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Load: &nbsp; &nbsp;@TProductInfo.Load;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Store: &nbsp; @TProductInfo.Store</div><div class="code_line">&nbsp;&nbsp; &nbsp; );</div><div class="code_line">&nbsp;</div><div class="code_line">constructor TProductInfo.Load(var S: TStream);</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;inherited Init;</div><div class="code_line">&nbsp;&nbsp;S.Read(TransferRecord, SizeOf(TransferRecord));</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure TProductInfo.Store(var S: TStream);</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;S.Write(TransferRecord, SizeOf(TransferRecord));</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">{$I sortfunc.inc}</div><div class="code_line">function TProductColl.Compare(Key1, Key2: Pointer): Integer;</div><div class="code_line">begin</div><div class="code_line">{ &nbsp; &nbsp; Compare :=</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; PProductInfo(Key2)^.TransferRecord.Price -</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; PProductInfo(Key1)^.TransferRecord.Price;</div><div class="code_line">{}</div><div class="code_line">&nbsp;&nbsp; &nbsp; Compare := StrCmp (</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; PProductInfo(Key1)^.TransferRecord.Product,</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; PProductInfo(Key2)^.TransferRecord.Product</div><div class="code_line">&nbsp;&nbsp; &nbsp; )</div><div class="code_line">{}</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure ListAll (C: PCollection);</div><div class="code_line">var</div><div class="code_line">&nbsp;i: word;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;procedure ShowItem (P : PProductInfo); far;</div><div class="code_line">&nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; with P^.TransferRecord do</div><div class="code_line">&nbsp;&nbsp; &nbsp; begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;inc (i);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;write &nbsp; ( I : 2 );</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;write &nbsp; ( &#39; &#39; : 4, Product );</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;writeln ( Price : 44 - Length (Product) );</div><div class="code_line">&nbsp;&nbsp; &nbsp; end;</div><div class="code_line">&nbsp;end;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;writeln;</div><div class="code_line">&nbsp;&nbsp;writeln (&#39;Product&#39; : 13, &#39;Price&#39; : 37);</div><div class="code_line">&nbsp;&nbsp;for I := 1 to 50 do write (&#39;=&#39;);</div><div class="code_line">&nbsp;&nbsp;writeln;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;i := 0;</div><div class="code_line">&nbsp;&nbsp;C^.ForEach(@ShowItem);</div><div class="code_line">&nbsp;&nbsp;readln;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;RegisterType (RProductInfo)</div><div class="code_line">end.</div></ol></div></div></div></div><br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">program Shop_OOP;</div><div class="code_line">uses Objects, shop_obj;</div><div class="code_line">&nbsp;</div><div class="code_line">Const</div><div class="code_line">&nbsp;&nbsp; &nbsp;Max = 5;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp; &nbsp;ProductColl: PProductColl;</div><div class="code_line">&nbsp;&nbsp; &nbsp;Info: PProductInfo;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure InputData;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp;i, qnt: integer;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;repeat</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;write (&#39;Enter quantity of products: &#39;); readln (qnt);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;if qnt = 0 then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; writeln (&#39;Quantity must be &#62; 0&#39;);</div><div class="code_line">&nbsp;&nbsp;until qnt &#60;&#62; 0;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;{Randomize;}</div><div class="code_line">&nbsp;&nbsp;for i := 1 to qnt do</div><div class="code_line">&nbsp;&nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp;Info := New (PProductInfo,Init);</div><div class="code_line">&nbsp;&nbsp; &nbsp;with Info^.TransferRecord do</div><div class="code_line">&nbsp;&nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;write (&#39;Enter product name (up to 40 chars): &#39;); readln (Product);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;write (&#39;Enter price of product: &#39;); readln (Price);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;{write (&#39;Enter Name: &#39;); readln (Product);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Price := 1 + Random (20);}</div><div class="code_line">&nbsp;&nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; &nbsp;ProductColl^.Insert (Info);</div><div class="code_line">&nbsp;&nbsp;end;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">procedure Save;</div><div class="code_line">var F: TBufStream;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;F.Init (&#39;shop_oop.dat&#39;, stCreate, 1024);</div><div class="code_line">&nbsp;&nbsp;ProductColl^.Store (F);</div><div class="code_line">&nbsp;&nbsp;if F.status &#60;&#62; stOk then</div><div class="code_line">&nbsp;&nbsp; &nbsp; writeln (&#39;Error while writing to file.&#39;);</div><div class="code_line">&nbsp;&nbsp;F.Done;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">function Loaded: boolean;</div><div class="code_line">var F: TBufStream;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;F.Init (&#39;shop_oop.dat&#39;, stOpenRead, 1024);</div><div class="code_line">&nbsp;&nbsp;if F.status = stOk then</div><div class="code_line">&nbsp;&nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; ProductColl^.Load (F);</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; Loaded := (F.status = stOk);</div><div class="code_line">&nbsp;&nbsp;end;</div><div class="code_line">&nbsp;&nbsp;F.Done;</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;ProductColl := New (PProductColl, Init (20, 5));</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;if not Loaded then</div><div class="code_line">&nbsp;&nbsp; &nbsp; InputData; { заполнение коллекции }</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;{ форматированный вывод коллекции на экран }</div><div class="code_line">&nbsp;&nbsp;ListAll (ProductColl);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;{ сохранение коллекции }</div><div class="code_line">&nbsp;&nbsp;Save;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;Dispose (ProductColl, Done);</div><div class="code_line">end.</div></ol></div></div></div></div>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=552848</guid>
        <pubDate>Thu, 23 Dec 2004 08:35:42 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=552848</link>
        <description><![CDATA[Vesper: <strong class='tag-b'>Romtek</strong>, не люблю транслит и кривые кодировки :-)))))<br>
ладно, пришел еще админ, терь будет время динамическое меню наваять]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=552126</guid>
        <pubDate>Wed, 22 Dec 2004 16:16:04 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=552126</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=551488'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Dima_R &#064; 22.12.04, 10:33</span><div class='quote '>Меню<br>
вертикальное<br>
цвет выбирать нельзя<br>
заголовок непишет<br>
P.S.<br>
Писал для других нужд, переделать и доработать лень, но хоть что-то.<br>
</div></div>В общем, что-то высвечивает, конечно, но код немного непродуман. Можно сделать и компактнее, и понятнее, и красивее.  8-) <br>
Сам могу написать, но хочется, чтобы и другие поучаствовали.  :whistle: <br>
Но всё равно спасибо&#33;<br>
<br>
<br>
<strong class='tag-b'>Vesper</strong>, хорошо. Только чего комменты на английском?  ;)   :)<br>
<br>
Чуток оформил программу и добавил функцию CalcStudAverage]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551501</guid>
        <pubDate>Wed, 22 Dec 2004 08:43:23 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551501</link>
        <description><![CDATA[Vesper: вот тебе прога про студентов]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551488</guid>
        <pubDate>Wed, 22 Dec 2004 08:33:24 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551488</link>
        <description><![CDATA[Dima_R: Меню<br> вертикальное<br> цвет выбирать нельзя<br> заголовок непишет<br>P.S.<br>Писал для других нужд, переделать и доработать лень, но хоть что-то.]]></description>
        <author>Dima_R</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551162</guid>
        <pubDate>Tue, 21 Dec 2004 21:55:13 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551162</link>
        <description><![CDATA[Romtek: Вот навалял прогу для работы с записями и указателями. Также используется сортировка записей по двум критериям.<br>Зацените. Что нужно добавить/изменить? Хочу поместить в Offline-FAQ.<br><br>Есть идея написать тоже самое с использованием объектов, коллекций (ООП). Ну и добавить междумордие (интерфейс)... :whistle:]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551005</guid>
        <pubDate>Tue, 21 Dec 2004 18:52:14 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=551005</link>
        <description><![CDATA[Romtek: А ещё нужна програмка, отображающая меню при помощи модуля CRT.<ul class="tag-list"><li>Меню должно состоять из заголовка и списка элементов, в котором активный элемент подсвечивается.</li><li>Всего 2 типа меню: вертикальное и горизонтальное.</li><li>Меню должно располагаться по центру экрана и иметь разные настройки цветов, по выбору (константные значения).</li><li>При нажатии на стрелки изменяется цвет активного элемента.<ol class="tag-list" type="1"><li>Элемент 1</li><li><span class="tag-color tag-color-named" data-value="blue" style="color: blue">Элемент 2</span>  &lt;- активный элемент</li><li>Элемент 3</li></ul></li></ol> <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-12-21T18:55:20+00:00">21.12.04, 18:55</time></span></span><br>
Функция Menu должна возвращать индекс выбранного элемента. Для начала, пусть при выборе выводится название элемента.<br>
<br>
Не забыть предусмотреть выход... :D]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=548413</guid>
        <pubDate>Sun, 19 Dec 2004 19:44:07 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=548413</link>
        <description><![CDATA[Romtek: Кто напишет задачку для Оффлайн-ФАК ?<br>
<br>
<em class='tag-i'>Имеются сведения о студентах N учебных группах со своими реквизитами (имя, группа_номер, оценка по 4-ём предметам). Кол-во студентов заранее не известно.<br>
Определить и вывести на экран группы с самым высоким средним баллом.</em><br>
<br>
Оформить красиво (с отступами), комментариями и имеющими смысл именами переменных.<br>
Использовать процедуры и функции, например<br>
InputData;<br>
CalcAverageMarks;<br>
OutputHighMarks;<br>
<br>
<strong class='tag-b'>без модуля CRT</strong>.<br>
<br>
<br>
]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=548218</guid>
        <pubDate>Sun, 19 Dec 2004 16:31:25 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=548218</link>
        <description><![CDATA[Romtek: Что мне не нравится в текущей системе форума - то, что надо зарегистрироваться для того, чтобы посмтореть FAQ. &lt;_&lt;   А я его готовил для всех, включая гостей.<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>vot,8.12.04, 08:59 &#064; <time class="tag-quote__quoted-time" datetime="1970-01-07T04:56:21+00:00">07.01.70, 04:56</time></span><div class='quote '>Идея ВИКИ мне не очень по душе, поскольку никто не застрахован от действий недоброжелателей или просто безграмотных людей, которые могут вам ТАКОГО наредактировать - что мало не покажется</div></div><br>
Вики позволяет ограничивать доступ к ресурсам, поэтому можно прикрутить такую фишку к форуму, чтобы зарегеные пользователи (скажем, начиная с юниоров) смогли править тексты и добавлять свои.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=547930</guid>
        <pubDate>Sun, 19 Dec 2004 09:22:27 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=547930</link>
        <description><![CDATA[Romtek: Версия 0.3 с некоторыми добавлениями. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-12-19T09:24:25+00:00">19.12.04, 09:24</time></span></span><br>
<span class='tag-u'>Содержание</span><hr><pre>Pascal FAQ
------------------------------------

  1. {Как правильно оформить программу} 
  2. {Сообщения и коды ошибок} 
  3. Основы Паскаля 
    * {Процедуры и функции Pascal} 
    * {Примеры работы с указателями} 
    * {Динамические массивы} 
    * Очереди, списки, стеки 
      * Списки  
    * Работа с файлами 
      * Есть ли на диске файл с данным именем?   
  4. Математика и алгоритмы 
    * {Базовые понятия} 
    * Как упорядочить массив по возрастанию? Алгоритмы сортировки 
      * {Метод пузырька} 
      * {Метод выбора} 
      * {Метод быстрой сортировки} 
      * {Метод простых вставок} 
      * {Метод бинарных вставок}  
    * Поиск подпоследовательности в массиве 
      * {Алгоритм СДВИГ-И} 
      * {Бинарный поиск в упорядоченном массиве} 
      * {Нечёткий поиск. Расстояние Левенштейна}  
    * {Как работать с отдельными битами?} 
    * Численные методы 
      * {Приближённое представление числа в виде дроби} 
      * {Вычисление интегралов различными методами} 
      * {Разложение функций в степенные ряды}   
  5. {Как упорядочить данные по возрастанию?} 
  6. {Простая база данных} 
  7. {Модуль для работы с длинными числами} 
  8. Графика 
    * Построение графика функции в 
      * {декартовой С.К.} 
      * {параметрической С.К.} 
      * {полярной С.К.}  
    * Работа с картинками. Обработка спрайтов, работа с BMP для TMT 
    * Фракталы и хаос 
      * {Множество Джулии} 
      * Множество Мандельброта   
  9. Объектно-Ориентированное Программирование (ООП) 
    * Объекты 
    * Виртуальные методы 
    * Turbo Vision  
  10. Советы программисту (Code Tuning)</pre>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=536181</guid>
        <pubDate>Wed, 08 Dec 2004 06:59:29 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=536181</link>
        <description><![CDATA[vot: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius,8.12.04, 01:13 &#064; <time class="tag-quote__quoted-time" datetime="1970-01-07T04:53:23+00:00">07.01.70, 04:53</time></span><div class='quote '>Не понимаю почему средств форума недостаточно?<br>
Форум - онлайн версия FAQ.</div></div><br>
Почти-что достаточно... Но не совсем...<br>
Я пытался сделать нечто вроде структурированного ФАК в стиле созданного у нас по Дельфи.<br>
На сегодня есть всего пара проблем - это ограниченная глубина подразделов и невозможность прикрепления нескольких файл-аттачей.<br>
Идея ВИКИ мне не очень по душе, поскольку никто не застрахован от действий недоброжелателей или просто безграмотных людей, которые могут вам ТАКОГО наредактировать - что мало не покажется  :lol: <br>
На тему коллективного доступа - движок форума уже сейчас позволяет назначить в раздел _группового модератора_, т.е. все, входящие в определенную группу, могут править/удалять посты.]]></description>
        <author>vot</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=536003</guid>
        <pubDate>Tue, 07 Dec 2004 22:13:26 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=536003</link>
        <description><![CDATA[DoctorGenius: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
DoctorGenius, мне больше нравится мой начальный вариант главной странички, структурный.<br>
Вообще, если дополняешь новыми материалами, то лучше просто оформи их как следует (пример: &quot;Поиск данных&quot; и &quot;Математика&quot;). А в главную страницу я сам буду добавлять.<br>
Совсем не устраивает оформление текстов по Вычислительной Математике - по ним нужно пройтись Source-formatter&#39;ом.<br>
</div></div><br>
Я пришёл к выводу, что основная задача Offline-FAQ - это не теория, а короткие примеры в ответ на вопросы (типа их задают).<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
Поэтому нет смысла переводить все материалы в FAQ. Многие статьи в разделе Pascal FAQ имеют теоретический характер. Offline-FAQ должен быть справочником по Паскалю (в основном, для студентов).<br>
</div></div><br>
Статьи теоретического плана тоже нужны, например, для защиты курсовых и лабораторных работ, и т.д. С другой стороны если в FAQ мы рассматриваем программы для математических вычислений, то помещать туда же учебник по математике с теорией данных методов не представляется возможным.<br>
Есть одна неплохая книга по Pascal в формате .doc. Здесь запостить не могу (весит ~300 КБ). Может быть стоит взять ее за основу.<br>
http://www.yourpascal.com/forum25.html - мой раздел студенческого форума. см. Книги и ресурсы для начинающего праграммера на TP. <br>
А вообще, я думаю Pascal Faq неплохо было бы сделать как drkb, только для Паскаля.<br>
Если HTML писать корректно, то можно сделать весьма солидный (информативный) справочник, который без труда будет умещаться на дискету.<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
Насчёт исходников: я не вижу необходимости таскать ещё и ZIP-файлы вместе с FAQ. Громоздких текстов мы в него помещать не будем, и будет достаточно скопировать из странички текст программы обычным способом. <br>
</div></div><br>
Есть некоторая информация, которая весит немного, но не может быть помещена прямо на странице - пример тому - руссификатор для DOS (используется для руссификации клавиатуры в TP под WinXP), можно привести и другие примеры инфы, которую не рационально хранить в виде HTML.<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
Я ищу самый лёгкий способ совместного пополнения примерами, а средств форума недостаточно, чтобы каждый мог оценить/исправить и дополнить чем-то своим без скачивания архива.<br>
</div></div><br>
Не понимаю почему средств форума недостаточно?<br>
Форум - онлайн версия FAQ. В off-line FAQ для каждого раздела я указывал автора ответа и источник материала. Таким образом в онлайне может вестись работа над статьями и исходниками (дополнение, исправление ошибок, и т.д.), а также если читатель заметит ошибки в исходнике, захочет предложить свой, допустим более оптимальный вариант решения данной проблемы, то он сможет просто перейти по ссылке на &quot;родную&quot; страницу в on-line FAQ и написать это в форуме.<br>
В конце концов чтобы не использовать форум есть еще один вариант: создать шаблонный сайт к примеру narod.ru, sitecity.ru, и т.д., чтобы у каждого из тех, кто работает над FAQ был логин и пароль для доступа к аккаунту. Авторам не потребуется знание HTML, и опыта настройки CGI, PHP скриптов. В этих бесплатных сервисах есть множество предустановленных скриптов (анкеты, форумы, гостевые книги). Это все можно прикрутить, чтобы посетители могли отправлять свои исходники, высказывать пожелания, замечания, сообщать об ошибках в предложенных материалах. Все это можно будет скачать, и выложить в виде архива.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=535737</guid>
        <pubDate>Tue, 07 Dec 2004 16:24:27 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=535737</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius,6.12.04, 03:51 &#064; <time class="tag-quote__quoted-time" datetime="1970-01-07T04:17:16+00:00">07.01.70, 04:17</time></span><div class='quote '>Не понимаю, зачем нужен CVS, WIKI, и т.д. Для коллективных обсуждений есть форум, и в любом случае то что сделали (где бы не деалали) придется редактировать, переделывать HTML и помещать в offline FAQ.</div></div>Я ищу самый лёгкий способ совместного пополнения примерами, а средств форума недостаточно, чтобы каждый мог оценить/исправить и дополнить чем-то своим без скачивания архива.<br>
<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius,6.12.04, 03:51 &#064; <time class="tag-quote__quoted-time" datetime="1970-01-07T04:17:16+00:00">07.01.70, 04:17</time></span><div class='quote '>Почему бы не преобразовать HTML в CHM - потом всегда можно преобразовать обратно.</div></div>Готовая версия будет в двух вариантах: HTML и CHM.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=534885</guid>
        <pubDate>Mon, 06 Dec 2004 23:02:01 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=534885</link>
        <description><![CDATA[Romtek: <strong class='tag-b'>DoctorGenius</strong>, мне больше нравится мой начальный вариант главной странички, <span class='tag-u'>структурный</span>.<br>
Вообще, если дополняешь новыми материалами, то лучше просто оформи их как следует (пример: &quot;Поиск данных&quot; и &quot;Математика&quot;). А в главную страницу я сам буду добавлять.<br>
Совсем не устраивает оформление текстов по Вычислительной Математике - по ним нужно пройтись Source-formatter&#39;ом.<br>
<br>
<hr>Я пришёл к выводу, что основная задача Offline-FAQ - это не теория, а короткие примеры в ответ на вопросы (типа их задают).<br>
Поэтому нет смысла переводить все материалы в FAQ. Многие статьи в разделе Pascal FAQ имеют теоретический характер. Offline-FAQ должен быть <strong class='tag-b'>справочником</strong> по Паскалю (в основном, для студентов).<br>
<br>
Насчёт исходников: я не вижу необходимости таскать ещё и ZIP-файлы вместе с FAQ. Громоздких текстов мы в него помещать не будем, и будет достаточно скопировать из странички текст программы обычным способом.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=533836</guid>
        <pubDate>Mon, 06 Dec 2004 01:51:29 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=533836</link>
        <description><![CDATA[DoctorGenius: 1. Вот что наклепал в HTML.<br>Конечно, все требует серьезной доработки - форматирование текста, и т.д. Вообщем 197 КБ (zip-архивы я выкинул, т.к. иначе не помещалось). Правда осталось еще несколько вопросов которые я не сдеалал:<br>Сделайте мне русский в Паскале &#33;&#33;&#33;<br>Графика в различных режимах <br>Как замерять время выполнения кода?<br>Изучаем IDE Turbo Pascal 7.0 <br>Как вывести Real в понятном виде? <br>их надо просто дорабоатать, переписать заново, и т.д.<br>2. Не понимаю, зачем нужен CVS, WIKI, и т.д. Для коллективных обсуждений есть форум, и в любом случае то что сделали (где бы не деалали) придется редактировать, переделывать HTML и помещать в offline FAQ.<br>3. Почему бы не преобразовать HTML в CHM - потом всегда можно преобразовать обратно.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=533731</guid>
        <pubDate>Sun, 05 Dec 2004 20:38:45 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=533731</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 2.12.04, 02:35, 529824</span><div class='quote '>Как я уже говорил в исходнике символы &lt;, &gt; надо заменить их эквивалентами &lt; &gt;. </div></div>Пока редактирование статей меня мало интересует. <br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 2.12.04, 02:35, 529824</span><div class='quote '>Преобразовать (переработать) всю инфу которая есть в Pascal FAQ на форуме в off-line вариант.</div></div>Я один не справлюсь, к тому же у меня есть другие дела. А ты, похоже, единственный, кто решил помочь. Поэтому, спасибо тебе.<br>
Надеюсь, не  всем параллельно. :whistle: <br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 2.12.04, 02:35, 529824</span><div class='quote '>Сделать on-line вариант данной базы (сайт)</div></div>Может потом. Главная цель - оффлайн-версия.<br>
<br>
И ещё:<br>
найти бы что-то типа проектов CVS для коллективного пополнения ФАКа. А то неудобно как-то. Wiki по идее подходит, но как его связать с форумом и есть ли возможность в нём писать тексты программ на Паскале? <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-12-05T20:41:18+00:00">05.12.04, 20:41</time></span></span><br>
Да, забыл:<br>
пока нет ничего другого в замену - если есть какие-то дополнения к FAQ, не прикрепляйте неизменённые файлы в архиве.<br>
Т.к. размер файла потихоньку увеличивается, и нет смысла качать то, что уже готово и не изменялось.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529824</guid>
        <pubDate>Thu, 02 Dec 2004 00:35:22 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529824</link>
        <description><![CDATA[DoctorGenius: Как я уже говорил в исходнике символы &lt;, &gt; надо заменить их эквивалентами &lt; &gt;. Что получится, если этого не сделать - см. исходник с интегралами. Т.к. заменять прямо в HTML довольно затруднительно, бери прямо в файлах, .pas, .txt проведи глобальную замену вышеуказанных символов на их HTML-эквиваленты.<br>Парсер работает намного быстрее, так что с этим все нормально.<br>Так же как я уже говорил, следует все делать по единому шаблону.<br>см. исправленную версию FAQ (HTML+добавлено несколько исходников по численным методам).<br>И все-таки я думаю в ближайшее время стоит:<br>1. Преобразовать (переработать) всю инфу которая есть в Pascal FAQ на форуме в off-line вариант.<br>2. К численным методам (да и другим исходникам тоже) добавить подробное описание.<br>3. Сделать on-line вариант данной базы (сайт) пусть даже на holm.ru, т.к. в скором времени размер данной базы превысит 200 КБ и тогда ее уже не прикрепишь так просто к посту в форуме.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529785</guid>
        <pubDate>Wed, 01 Dec 2004 22:42:28 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529785</link>
        <description><![CDATA[Romtek: <span class='tag-u'>Вторая версия альфа</span><br>
Немного добавил материала, вставил парсер <strong class='tag-b'>Mixxx</strong>&#39;а  ;) <br>
Слегка по другому оформил страницу (валидировал) и стили (объединил 2 стиля, тоже валидировал), учитывая советы от <strong class='tag-b'>shipbrother</strong> и <strong class='tag-b'>DoctorGenius</strong>.<br>
<br>
Оцените, как смотрится код на Паскале, и вообще.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529276</guid>
        <pubDate>Wed, 01 Dec 2004 11:28:17 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=529276</link>
        <description><![CDATA[Mixxx: Я оптимизнул свой скрипт, теперь он работает быстрее.<br>+ цвета подсветки стали как у Romtek&#39;a в его редакторе.<br>Для демонстрации её работы в аттаче сырцы из альфа версии фака.]]></description>
        <author>Mixxx</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528781</guid>
        <pubDate>Tue, 30 Nov 2004 22:10:50 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528781</link>
        <description><![CDATA[DoctorGenius: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
В Мозилле нет фона (будто не работает CSS)<br>
</div></div><br>
Потестил страницы в аналоге mozilla - Netscape 6. Фона небыло. Все дело было в отсутсвии символа # перед кодом цвета. Например конструкция background: ffffff отлично работает в IE, Opera и др. В Netscape же возникла данная проблема. Зная что Mozilla является его аналогом под linux, думаю теперь все будет нормально.<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
Ссылку на твой сайт замени на своё мыло. Кстати, и автора забыл :) <br>
&quot;Разработка HTML и CSS&quot; - тут я не согласен. Замени уж лучше на &quot;Оформление и дизайн&quot;<br>
</div></div><br>
Я сделал единый шаблон для всех страниц. Это удобно, т.к. можно управлять всеми страницами, таким образом чтобы если захочется вставить что-либо (менюшки, подключить какие-либо js, css, добавить, или удавлить любые элементы дизайна) можно используя программу для глобальной замены ( текста (на Delphi) присланную мною ранее. Например ищем &lt;/BODY&gt; заменяем на &lt;P ALIGN=&quot;RIGHT&quot;&gt;Разработчики: _______&lt;/P&gt;&lt;/BODY&gt;.<br>
Вот и все. Главное подобрать правильную замену, а также всегда иметь резервную копию редактируемых страниц.<br>
Имея единую структуру всех страниц мы всегда можем ими управлять, не редактируя каждую страницу в отдельности, если захочется что-либо добавить, или изменить в дизайне и т.д. Если все страницы взятые из разных источников будут иметь совершенно разную структуру, то автоматическая замена значительно усложнится. Поэтому лучше один раз потратить время на приведение ВСЕХ страниц под один стиль, и тогда можно быть уверенным в том, что автоматическая замена будет проведена во всех страницах абсолютно правильно.<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><br>
Я не хочу, например, выделять вручную каждое ключевое слово в коде программ. Может, есть какие-то предназначенные для этого программы?<br>
</div></div><br>
Вариант самый простой. Берешь исходник .pas затем поочередно берешь мою проргаммку вводишь ключевые слова var, begin, {comments} и др. и заменяешь их на &lt;b&gt;var&lt;/b&gt;,  &lt;b&gt;begin&lt;/b&gt;, &lt;i&gt;{comments}&lt;/i&gt;.<br>
А вообще нетрудно сделать программку, которая во-первых будет проводить такие замены глобально, за один проход, во-вторых будет нечувствительна к регистру, чтобы к примеру Var и var было одно и тоже.<br>
Можно сделать и полную подкраску тегов, с помощью программы. Возьми предложенный выше js парсер и посмотри как он сделан, сделай такую же штуку, только чтобы она парсила не &quot;на лету&quot;, а в файлах. Но как я уже говорил &quot;полноценная&quot; подкраска тегов занимает очень много места.<br>
Вот единый шаблон, для всех страниц данного сайта:<br>
1. HTML<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&#60;HTML&#62;</div><div class="code_line">&#60;HEAD&#62;</div><div class="code_line">&#60;META HTTP-EQUIV=&quot;Content-Type&quot; CONTENT=&quot;text/html; charset=windows-1251&quot;&#62;</div><div class="code_line">&#60;TITLE&#62;Pascal FAQ :Оглавление&#60;/TITLE&#62;</div><div class="code_line">&#60;link REL=&quot;STYLESHEET&quot; TYPE=&quot;text/css&quot; HREF=&quot;style.css&quot;&#62;</div><div class="code_line">&#60;/HEAD&#62;</div><div class="code_line">&#60;BODY&#62;</div><div class="code_line">&#60;H1&#62;Pascal FAQ&#60;/H1&#62;</div><div class="code_line">&#60;HR&#62;</div><div class="code_line">Здесь содержание страницы</div><div class="code_line">&#60;HR&#62;</div><div class="code_line">&#60;CENTER&#62;&#60;A HREF=&quot;index.html&quot;&#62;&lt; Оглавление&#60;/A&#62;&#60;/CENTER&#62;</div><div class="code_line">&nbsp;</div><div class="code_line">&#60;P ALIGN=&quot;RIGHT&quot;&#62;&#60;I&#62;Разрабочики&#60;/I&#62;&#60;/P&#62;</div><div class="code_line">&#60;/BODY&#62;</div><div class="code_line">&#60;/HTML&#62;</div></ol></div></div></div></div><br>
2. CSS (исправлен).<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">BODY { background: #FFFFFF url(background.gif); background-attachment: fixed; font-family: Monospace; font-size: 16px;} </div><div class="code_line">A { color: 0000ff; text-decoration: none; }</div><div class="code_line">A:hover { color: ff0000; text-decoration: none; }</div><div class="code_line">CENTER { font-weight: bold; text-decoration: underline; }</div><div class="code_line">PRE { font-size: 14px; }</div><div class="code_line">H1 { font-size: 24px; font-weight: bold; text-align: center; }</div><div class="code_line">B { color: 0000ff }</div><div class="code_line">I { color: 003399; font-weight: bold; }</div><div class="code_line">HR { color: 003399; width: 80%; }</div><div class="code_line">P { font-size: 10px; }</div></ol></div></div></div></div><br>
Также немелано бы разместить информацию по численным методам. Вот основные темы, по которым возникают частозадаваемые вопросы. Основные темы:<br>
1. Решение СЛАУ. Методы Гаусса, Крамера, простой итерации, Зейделя.<br>
2. Решение нелинейных уравнений. Методы: хорд, Ньютона, и др.<br>
3. Решение ОДУ. Методы Эйлера, Рунге-Кутта, Адамса.<br>
4. Приближение функций. Аппроксимация, интерполяция.<br>
5. Численное дифференцирование.<br>
6. Вычисление интегралов. Методы: прямоугольников, Симпсона, Гаусса, методы Монте-Карло и др.<br>
Также следует рассмотреть линейную и матричную алгебру, в частности вычисление определителей.<br>
Информацию по данным темам можно найти в моих постах на данном форуме, а также см. на <a class='tag-url' href='http://www.yourpascal.com' target='_blank'>Студенческом форуме</a> в моем разделе &quot;Вычислительная математика&quot;. Также (см. выше) я запостил методичку по численным методам, в ней тоже много чего расписано с примерами на Pascal. Есть еще много чего. Могу выслать, только проблематично постить в форуме (ограничение в 200 КБ). Лучше отправить по e-mail.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528766</guid>
        <pubDate>Tue, 30 Nov 2004 21:37:58 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528766</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>shipbrother</span><div class='quote '><div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp; &nbsp;Assign(f,str); &nbsp;{назначаем файловой переменной имя файла}</div><div class="code_line">&nbsp;&nbsp; &nbsp;rewrite(f); &nbsp; &nbsp; {открывает файл для записи &#60;=&#62; создаем пустой}</div><div class="code_line">&nbsp;&nbsp; &nbsp;close(f); &nbsp; &nbsp; &nbsp; {закрываем файл}</div></ol></div></div></div></div></div></div><br>
А где обработка ошибок?  :huh: <br>
<br>
Кстати, не надо в описании добавлять большие исходники. Достаточно самих PAS файлов.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528722</guid>
        <pubDate>Tue, 30 Nov 2004 19:37:28 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528722</link>
        <description><![CDATA[shipbrother: вот 3 проги + описание к ним в доке<br>
1. суммирование и деление многочленов в столбик (на списках)<br>
2. очередь на файлах<br>
3. 2 функции для строк (удаление и копирование N последних символов <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-30T19:46:32+00:00">30.11.04, 19:46</time></span></span><br>
еще есть следующее(довольно банальное): однонаправленный стек на списках, двунаправленная очередь на списках, организация списка с произвольным доступом(ох уж эти лабы - основа основ). все в виде модулей. по памяти еще есть перевод чисел из двоичной системы в 10, из десятичной в пятеричную и шестеричную. банально, но может быть полезно<br>
если надо - пишите.]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528643</guid>
        <pubDate>Tue, 30 Nov 2004 17:32:35 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528643</link>
        <description><![CDATA[shipbrother: да, но просили-то проги без ассемблерных вставок.<br>я видел где-то исправленный crt, только не пробывал...]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528641</guid>
        <pubDate>Tue, 30 Nov 2004 17:28:48 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528641</link>
        <description><![CDATA[Vesper: <strong class='tag-b'>shipbrother</strong>, а разница? там от crt используются две ф-и, keypressed и readkey, обе малюются на асме вне модуля и все :)<br>
как ни крути без асма в ТР7.0 никуды :(]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528638</guid>
        <pubDate>Tue, 30 Nov 2004 17:27:19 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528638</link>
        <description><![CDATA[shipbrother: могу кстати еще написать заметку про типизированные файлы и в добавок - маленькую лабу, которая в файл пишет всевозможные переменные паскалевского типа. это для того, если кому-нибудь интересно посмотреть как представляются данные в машине(могут быть вопросы в отношении типа real например)<br><br>вы только пишите, если это действительно нужно(можно на почту или в приват, чтобы форум не засорять), а то не охота делать что-нибудь в пустую. време6ни не так много...]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528637</guid>
        <pubDate>Tue, 30 Nov 2004 17:27:16 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528637</link>
        <description><![CDATA[Vesper: есть у меня прога, которая двигает крест в графике по экрану как прицел от курсорных клавиш, но там юзается модуль, который обрабатывает INT09, соответственно не подходит :( в принципе переделать под обычный readkey не проблема, завтра займусь]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528634</guid>
        <pubDate>Tue, 30 Nov 2004 17:23:19 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528634</link>
        <description><![CDATA[shipbrother: <strong class='tag-b'>Vesper</strong>, точно&#33; ошибочка вышла.. но тем лучше, другой алгоритм<br>
<strong class='tag-b'>Romtek</strong>, да я вроде везде комментарии написал, правда на английском, на русском не было возможности... если этот код пойдет и если нужно, напиши, я переделаю, чтобы вам не париться самим<br>
<br>
еще прога есть, которая линию по экрану двигает как подставочку в арканоиде, но прога древняя, написана с помощью crt, я, как переделаю, постараюсь скинуть]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528184</guid>
        <pubDate>Tue, 30 Nov 2004 11:38:50 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528184</link>
        <description><![CDATA[Vesper: ага, а отлаживать код тоже прямо в ворде? :D у меня вроде в комментах все расписано...<br>
<br>
Процедура <strong class='tag-b'>BubbleSort</strong> сортирует список методом пузырька (если элемент больше, чем следующий за ним, выполняет обмен). Возможно проще в таких случаях обменивать местами данные, а не ссылки, но в случае сложных данных (например объекты) такой обмен уже может быть некорректным.<br>
<br>
Процедура <strong class='tag-b'>ChoiceSort</strong> сортирует список методом простого выбора, пересобирая список в новый (с головой в другой переменной) из элементов старого, сначала ищется максимум в оставшейся части списка, затем найденный элемент исключается из старого списка и добавляется в голову нового списка, таким образом новый список отсортирован по неубыванию. Данные (elem) не меняют своего физического расположения.<br>
<br>
<strong class='tag-b'>[Romtek:: ChoiceSort: правильнее <span class="tag-color tag-color-named" data-value="purple" style="color: purple">SelectionSort</span>]</strong>]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528166</guid>
        <pubDate>Tue, 30 Nov 2004 11:21:27 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=528166</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Азат, 30.11.04, 10:23, 527921</span><div class='quote '>Люди&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33; А почему в этом ЧАВО только исходники? А кто статьи переносить будет? Без статей это всего лишь какой-то набор исходников, который лучше было бы поместить в формате PAS&#33;</div></div><br>
Да знаю я. Писал уже, что нужны подробные комментарии к коду, и, заодно, <strong class='tag-b'>описание</strong>. Хоть короткое:<br>
что делает, как делает. и желательно алгоритм. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-30T11:28:46+00:00">30.11.04, 11:28</time></span></span><br>
<span class='tag-size' data-value='11' style='font-size:11pt;'><span class="tag-color tag-color-named" data-value="blue" style="color: blue">Между прочим, а кто оформлять будет? Пушкин?</span></span><br>
Хоть выделите <strong class='tag-b'>ключевые слова</strong>. Форум ведь располагает всеми необходимыми для этого средствами&#33;]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527943</guid>
        <pubDate>Tue, 30 Nov 2004 08:35:06 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527943</link>
        <description><![CDATA[Vesper: вот пример сортировки списка (там два метода, пузырьком и выбором, выбор вообще просто реализуется) <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-30T08:42:13+00:00">30.11.04, 08:42</time></span></span><br>
<strong class='tag-b'>shipbrother</strong>, это вроде не метод простого выбора, а метор простых вставок :rolleyes: т.е. ты хватаешь первый попавшийся элемент и впихиваешь его в середину отсортированной части списка.]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527921</guid>
        <pubDate>Tue, 30 Nov 2004 08:23:08 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527921</link>
        <description><![CDATA[Азат: Можете разместить мою статью про <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=72091' target='_blank'>длинную арифметику</a><br>
Мне не жалко :) <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-30T08:34:38+00:00">30.11.04, 08:34</time></span></span><br>
Люди&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33;&#33; А почему в этом ЧАВО только исходники? А кто статьи переносить будет? Без статей это всего лишь какой-то набор исходников, который лучше было бы поместить в формате PAS&#33;]]></description>
        <author>Азат</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527790</guid>
        <pubDate>Tue, 30 Nov 2004 06:45:32 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527790</link>
        <description><![CDATA[shipbrother: вот программка, сортирующая список методом выбора. надеюсь подойдет. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-30T06:48:13+00:00">30.11.04, 06:48</time></span></span><br>
есть еще проги, которые суммируют и делят столбиком многочлены, коэффициенты и степени которых лежат в списках.<br>
если нужны - говорите]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527767</guid>
        <pubDate>Tue, 30 Nov 2004 06:17:27 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527767</link>
        <description><![CDATA[Romtek: <strong class='tag-b'>DoctorGenius</strong>, спасибо за помощь.<br>
Вот несколько деталей:<ul class="tag-list"><li>В Мозилле нет фона (будто не работает CSS)</li><li>Ссылку на твой сайт замени на своё мыло. Кстати, и автора забыл  :) <br>
&quot;Разработка HTML и CSS&quot; - тут я не согласен. Замени уж лучше на &quot;Оформление и дизайн&quot;</li><li>Я не хочу, например, выделять вручную каждое ключевое слово в коде программ. Может, есть какие-то предназначенные для этого программы?</li></ul>Короче, пока дизайн не самое главное. были бы материалы.<br>
<br>
<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Народ, вы присылать исходники будете, или где ?</span>  :whistle: <br>
<br>
]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527691</guid>
        <pubDate>Tue, 30 Nov 2004 02:30:07 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527691</link>
        <description><![CDATA[NadZ: Столько флейма читать не смог сразу и полностью.<br>vot, а если, скажем, оплатить хостинг, ну.. лет на 10 вперед?<br>Вообще, если есть такая необходимость, то стукни в асю или ПМ (Ася предпочтительней).]]></description>
        <author>NadZ</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527682</guid>
        <pubDate>Tue, 30 Nov 2004 02:16:09 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527682</link>
        <description><![CDATA[Eiden: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 30.11.04, 02:53, 527621</span><div class='quote '>Недостатки:<br>
Довольно таки неплохо сделано.</div></div><br>
 :D  :rolleyes: <br>
Сорь за оффтоп - бессоница напала, а тут такое ;)]]></description>
        <author>Eiden</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527621</guid>
        <pubDate>Mon, 29 Nov 2004 23:53:04 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527621</link>
        <description><![CDATA[DoctorGenius: Недостатки:<br>Довольно таки неплохо сделано.<br>Замечания:<br>1. Подсветка синтаксиса с использованием тегов font, и др. сильно увеличивает размер документа. Исходники которые весят 20 КБ весят 80 КБ. Пока их 5 штук вроде ничего страшного. При бОльшем числе исходников это будет уже ощутимо. Использование парсера на js значительно сокращает размер файла, но при этом возникает 2 проблемы:<br>а) если исходник большой, то это очень тормозит браузер. Исходник 8 КБ обрабатывается секунд 5-7 на celeron 700.<br>б) в старых браузерах это вообще не работает.<br>Для решения проблемы предлагаю отказаться от &quot;подробной&quot; подсветки кода, для выделения ключевых слов можно использовать теги &lt;B&gt;...&lt;/B&gt;, для комеентариев и др. &lt;I&gt;...&lt;/I&gt;. &quot;Раскрасить&quot; их можно используя СSS.<br>В результате размер документа значительно сократиться.<br>2. Нет единой структуры HTML файлов, что-то сделано в одном редакторе, что-то в другом, даже кодировки различные кое-что выполнено в koi-8, некоторые страницы в win-1251.<br>3. Нет кнопки на главную.<br>Предлагаю Вашему вниманию более оптимизированный вариант FAQ (до оптимизиации 308 К, после оптимизации - 134 КБ. (распакованный объем).]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527508</guid>
        <pubDate>Mon, 29 Nov 2004 20:37:29 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527508</link>
        <description><![CDATA[Romtek: Вот и первые плоды <strong class='tag-b'>Оффлайн-ФАК</strong> (простенький вариант-шаблон).<br>
<br>
Запускать <em class='tag-i'>Index.html</em>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527198</guid>
        <pubDate>Mon, 29 Nov 2004 16:01:32 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=527198</link>
        <description><![CDATA[Romtek: Нужен пример сортировки списка (Vesper,  ;) )<br>
<strong class='tag-b'>С подробными комментариями, пожалуйста&#33;</strong> <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-29T16:04:12+00:00">29.11.04, 16:04</time></span></span><br>
Кстати, и слияния двух в один, тоже. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-29T16:08:26+00:00">29.11.04, 16:08</time></span></span><br>
А ещё простой пример по управлению клавишами: по нажатию на определённую клавишу что-то делается (пофантазируйте :rolleyes: ).<br>
В том числе, стрелками (может, с применением ООП, в графике?)]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=526947</guid>
        <pubDate>Mon, 29 Nov 2004 13:02:05 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=526947</link>
        <description><![CDATA[Vesper: так, вот обещанная прога, переработал ее под объекты, разница только в том, что нельзя непосредственно подсмотреть скажем буфер. Работает оно вот как: assign связывает файл с именем и сразу открывает его (потому как объект предназначен для чтения, соответственно метод открытия есть всего один - reset(f,1) без попытки менять данные), после чего можно читать через метод read, параметры - буфер и его длина. Метод Seek позволяет сместить указатель, при этом немедленного чтения не осуществляется. Функция eof возвращает истину, если достигнут конец прочитанного буфера при условии, что занятая часть буфера меньше 256 байт (вообще-то это немного некорректно, если файл имеет длину 512 байт и на самом деле уже достигнут конец файла, т.е. из буфера прочитаны все данные, смещение начала буфера в файле 256, c_offset 0, ready=false, ф-я eof не вернет истину, хотя должна). Метод close просто закрывает файл.<br>
<br>
Более подробное описание объекта<br>
<br>
Объект TBufferedInput имеет 7 частных полей:<br>
hidden:file - сам инкапсулированный файл;<br>
buffer:array[byte] of byte - буфер данных, 256 байт;<br>
opflag:boolean - признак открытого файла;<br>
ready:boolean - признак наличия данных в буфере;<br>
c_offset:byte - текущее смещение позиции файла внутри буфера;<br>
l_offset:longint - смещение начала буфера в файле, кратно 256;<br>
last_read:word - размер занятой части буфера в байтах (0-256, из-за чего word).<br>
<br>
Метод Assign проверяет файл на существование и если файл существует, открывает его на чтение с гранулярностью данных 1 байт (так как мы передаем данные из файла с точностью до байта).<br>
<br>
Метод Read читает данные из файла в буфер пользователя, используя промежуточный буфер длиной 256 байт для уменьшения количества обращений к диску. В случае наличия требуемого объема данных в буфере они просто копируются, смещается &quot;короткий&quot; индекс c_offset и возвращается запрошенный размер. В случае конца буфера передается остаток буфера и выполняется его заполнение вызовом метода из System. В случае явного конца файла (длина занятой части буфера меньше 256 байт) наружу передается остаток занятой части буфера и возвращается количество переданных байт. Если только что был выполнен Seek, то сначала выполняется заполнение буфера, а уже потом - проверка на конец буфера и размер данных. Процедура не способна передавать наружу блоки данных больше 64 Кбайт (ограничение налагается менеджером памяти реального режима).<br>
<br>
Метод Seek устанавливает текущую позицию в файле и буфере. В случае ошибки позиция не изменяется.<br>
<br>
Метод Close закрывает файл. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-29T13:05:17+00:00">29.11.04, 13:05</time></span></span><br>
В соседнем файле (BufView.pas) пример использования буферизованного ввода для быстрого вывода BMP файла на экран. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-29T13:12:38+00:00">29.11.04, 13:12</time></span></span><br>
Модуль VESA тащить вот отсюда: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=46413&unread=1&hl=vesa' target='_blank'>Вывод BMP на экран</a>]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=525512</guid>
        <pubDate>Sat, 27 Nov 2004 17:08:51 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=525512</link>
        <description><![CDATA[DoctorGenius: Забыл об одной очень важной детали: <strong class='tag-b'>Все символы &lt; и &gt; (логические операции в исходниках) должны быть заменены их эквивалентами в HTML соответственно: &lt; и &gt;</strong><br>
Скобки, образующие теги в языке HTML в некоторых случаях могут не вызывать проблем, например эта строчка:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">if a&#62;b then writeln(&#39;test!&#39;);</div></ol></div></div></div></div><br>
Но, чтобы убедиться предлагаю следующий пример:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">if (a&#60;b) or (a&#62;c) then writeln(&#39;123&#39;);</div><div class="code_line">if a&#60;&#62;b then writeln(&#39;456&#39;);</div></ol></div></div></div></div><br>
Поэтому с целью избежания проблем с отображением исходников всегда следует делать глобальную замену.<br>
Естественно, что при использовании визуальных редакторов данная проблема не возникает.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523957</guid>
        <pubDate>Fri, 26 Nov 2004 07:03:00 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523957</link>
        <description><![CDATA[KiRiK: Ладненько, раз уж на то дело пошло, я чувствую какаю тему стоит делать мне, а именно мышинную ;). Вы скажите, что нужно поправить в Онлайн статье, что добавить.. а я уж сделаю :).]]></description>
        <author>KiRiK</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523815</guid>
        <pubDate>Thu, 25 Nov 2004 22:15:44 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523815</link>
        <description><![CDATA[DoctorGenius: Отправляю кое-что по численным методам. Это так сказать основные, во всяком случае широко применяется в учебной практике <br>
как то вычмат, информатика.<br>
Есть еще материалы по данной теме - описания, реализации и др., пишите на e-mail - вышлю. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-25T22:55:52+00:00">25.11.04, 22:55</time></span></span><br>
Посмотрел скрипт для подсветки кода. Самое то, что надо&#33; Используется стандартный тег &lt;PRE&gt;.<br>
Если даже посмотреть страницу старым браузером, который не поддерживает CSS и  JS, то скрипт просто не сработает, а само форматирование исходника сохраниться. Отсутсвие же подсветки кода при использовании допотного браузера вряд-ли можно считать большой проблемой. Также большим плюсом является то что в данном случае код можно вытащить открыв страницу текстовым редактором - блокнотом (чего не сделаешь при использовании тегов &lt;font color=...&gt; и &nbsp;). Так что данный скрипт просто замечательная вещь&#33;<br>
Также надо следить за тем, чтобы в самом оформлении HTML страницы не было тегов, которые могут вызвать серьезные нарушения читабельности страницы, особенно это относиться к таблицам, т.к. не исключена ситуация, что страницу могут просматривать и под IE 3.0 - не секрет что для выполнения &quot;повседневных задач&quot; - как то лабораторок на Pascal, Excel, Word, и др. вполне достаточно железа вроде i486dx2-66, Win95, IE3.0. И FAQ должно корректно смотреться везде.<br>
А вообще неплохим средством для проверки страниц &quot;на устойчивость&quot; является NN4.5, т.к. там даже незначительные ошибки в коде (которые не замечаются другими браузерами) приводят к серьезным нарушениям дизайна и читабельности страницы.<br>
Еще можно заметить, что страницы то будут в кодировке koi-8, win-1251 - неважно, а комментарии и сообщения в программе при копировании исходников в Turbo Pascal надо будет переводить в DOS кодировку. Конечно кто знает - это не проблема (в Pascal FAQ я уже описывал как выполнять подобные преобразования с помощью стандартного средства - Internet Explorer&#39;a). Но тем не менее эту сторону дела тоже нельзя упускать из виду.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523744</guid>
        <pubDate>Thu, 25 Nov 2004 20:13:48 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523744</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vesper, 25.11.04, 17:03</span><div class='quote '>есть пара программ по буферизованному чтению файла для ТР/ВР, нужны?</div></div><br>
Давай&#33;<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vesper, 25.11.04, 17:03</span><div class='quote '>еще могу доработать статью про объекты (из онлайна) с добавлением виртуальных методов (можно и экспертный уровень включить, хотя ты и говорил, что лучше без АСМа)</div></div><br>
А это пока не печёт. Редко встречается.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523507</guid>
        <pubDate>Thu, 25 Nov 2004 15:34:03 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523507</link>
        <description><![CDATA[Romtek: Пойдут почти любые примеры, которые часто спрашиваются (строки, матрицы, файлы).<br>
Особенно вычислительные: интегралы, сумма ряда. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-25T15:36:25+00:00">25.11.04, 15:36</time></span></span><br>
Уже есть кое-что из ФАКа:<br>
<br>
CRT: Error 200, devision by zero. Fast CPU.<br>
MATH: Почему умножение дает неверный результат (Longint)<br>
FIL: Как узнать из программы, в каком каталоге лежит EXE<br>
FIL: Как вставить/удалить строку внутри файла<br>
FIL: Как вывести текст на экран из файла<br>
FIL: Как найти строку в текстовом файле<br>
FIL. Как найти файлы на ВСЕХ дисках<br>
FIL. Как найти файлы на диске<br>
FIL. Как обойти все вложенные подкаталоги<br>
FIL. Как открыть на запись ReadOnly файл<br>
FIL. Как переименовать/удалить открытый файл<br>
FIL. Как получить путь к файлу<br>
GRF. Как работать с графическими файлами<br>
KBD. Как очистить буфер клавиатуры<br>
KBD. Как прочитать нажатия клавиш Ctrl, Alt, Shift<br>
MATH: перевод в 16-ричное число<br>
MAT. Как вычислить ArcSin<br>
KBD. Как узнать код функциональной клавиши по ReadKey<br>
MAT. Как вычислить X^3 или корень N-й степени<br>
MEM. Как пользоваться &quot;MEM&quot;<br>
MEM. Как создать массив заранее неизвестной длины<br>
STR. Как вытащить N-е слово из строки<br>
STR. Как преобразовать строку в число и обратно]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523469</guid>
        <pubDate>Thu, 25 Nov 2004 15:03:49 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523469</link>
        <description><![CDATA[Vesper: предлагаю свою помощь (хотя мне как модеру здесь самое место работать :))<br>есть пара программ по буферизованному чтению файла для ТР/ВР, нужны?  <br>еще могу доработать статью про объекты (из онлайна) с добавлением виртуальных методов (можно и экспертный уровень включить, хотя ты и говорил, что лучше без АСМа)<br>про строки вообще-то у нас хорошая тема... :rolleyes: <br>т.е. мне :ph34r: нужна конкретика, я много что могу расписать, но описывать общЁ у меня не выходит]]></description>
        <author>Vesper</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523425</guid>
        <pubDate>Thu, 25 Nov 2004 14:37:09 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523425</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>shipbrother, 25.11.04, 15:45</span><div class='quote '>надо спланировать структуру ФАКа</div></div>Его струкруру я уже описал в сообщении наверху.<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>shipbrother, 25.11.04, 15:45</span><div class='quote '>и сообщать народу конкретно какие темы и примеры программ нужны. &quot;Может у кого нибудь есть то-то и то-то?&quot;.</div></div><br>
Да ,но пока никто ничего не присылал.<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>shipbrother, 25.11.04, 15:45</span><div class='quote '>никак не могу решить, что может понадобиться, а что нет... а все подряд комментировать, делать описание к прогам, объяснять и пояснять не охота, тем более, что велика вероятность, что эта именно моя и именно эта прога, например, в факе не окажется.</div></div>Согласен. Поэтому опиши что выполняет каждая программа. А я и другие решим что надо, а что - нет. <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2004-11-25T14:40:20+00:00">25.11.04, 14:40</time></span></span><br>
P.S.<br>
Забыл про DoctorGenius. Не хочу пренебрегать его попыткой дополнить FAQ. ;)]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523339</guid>
        <pubDate>Thu, 25 Nov 2004 13:45:09 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523339</link>
        <description><![CDATA[shipbrother: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>как заполнить ФАК нужными материалами.</div></div><br>
я думаю, чтобы это дело пошло качественнее и быстрее, чтобы надо было меньше одбирать и смотреть чужой код(который может оказаться немного не по теме или просто не к месту), надо <strong class='tag-b'>спланировать структуру ФАКа</strong> и сообщать народу конкретно какие темы и примеры программ нужны. &quot;Может у кого нибудь есть то-то и то-то?&quot;.<br>
<br>
Просто посмотрел что есть у меня по паскалю(в основном лабы конечно, а ведь они-то и первые кандидаты в ФАК) и никак не могу решить, что может понадобиться, а что нет... а <strong class='tag-b'>все подряд</strong> комментировать, делать описание к прогам, объяснять и пояснять не охота, тем более, что велика вероятность, что эта именно моя и именно эта прога, например, в факе не окажется.]]></description>
        <author>shipbrother</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523177</guid>
        <pubDate>Thu, 25 Nov 2004 12:22:16 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523177</link>
        <description><![CDATA[Romtek: <strong class='tag-b'>Mixxx</strong>, большое спасибо за подсветку кода. Я тоже хотел подсветку отделить от HTML, но не знал у кого спрашивать.<br>
То что надо.  ;) <br>
<br>
<br>
<strong class='tag-b'>Но всё-таки хотелось бы, чтобы обсуждали не будущий интерфейс, а как заполнить ФАК нужными материалами.</strong>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523059</guid>
        <pubDate>Thu, 25 Nov 2004 11:13:54 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=523059</link>
        <description><![CDATA[Mixxx: Ну наконец то собрались сделать оффлайн фак&#33;&#33;&#33;<br>
По поводу подсветки синтаксиса предлагаю делать её на лету с помощью моего js скрипта :) честно говоря я писал его специально для этого случая :)<br>
Это сильно сократит объём страниц оффлайн фака. Вы посмотрите на объём FAQ&#39;а Vit&#39;a это из за того что подсветка там статическая и при том выполнена корявенько (в основном это пробелы через &nbsp;)<br>
<br>
<a class='tag-url' href='http://softbest.u9.ru/downloads/Myexample.html' target='_blank'>Demo</a> <br>
Подробности тут <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=54064&unread=1&hl=pascal' target='_blank'>Подсветка синтаксиса</a>]]></description>
        <author>Mixxx</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522736</guid>
        <pubDate>Thu, 25 Nov 2004 08:12:36 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522736</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Guest, 24.11.04, 23:31</span><div class='quote '>А кто сможет скачать off-line FAQ размером в пару гигов?</div></div><br>
Его пока не существует, рано говорить.<br>
Присылай материалы, а мы выберем самые интересные. Предполагаемый размер Offline FAQ  вряд ли будет свыше 5 МБ.]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522656</guid>
        <pubDate>Thu, 25 Nov 2004 07:05:23 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522656</link>
        <description><![CDATA[vot: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 25.11.04, 00:34</span><div class='quote '>А численные методы на pascal нужны?</div></div><br>
Нужны.]]></description>
        <author>vot</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522459</guid>
        <pubDate>Wed, 24 Nov 2004 21:34:56 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522459</link>
        <description><![CDATA[DoctorGenius: А численные методы на pascal нужны? Встречалось немало вопросов по этой теме.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522455</guid>
        <pubDate>Wed, 24 Nov 2004 21:31:24 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522455</link>
        <description><![CDATA[Guest: А кто сможет скачать off-line FAQ размером в пару гигов?]]></description>
        <author>Guest</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522059</guid>
        <pubDate>Wed, 24 Nov 2004 13:57:04 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522059</link>
        <description><![CDATA[vot: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 24.11.04, 01:04</span><div class='quote '>в виде сайта, используя технологии SSI.</div></div><br>
Именно так и построен сейчас этот сайт...<br>
Холм.ру нам пока не требуется,<br>
да и не согласятся они захостить пару гигов нахаляву :)]]></description>
        <author>vot</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522055</guid>
        <pubDate>Wed, 24 Nov 2004 13:54:12 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=522055</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>DoctorGenius, 24.11.04, 00:29</span><div class='quote '>Программа на Delphi для проведения глобальной замены в файлах.</div></div><br>
Несколько замечаний:<ul class="tag-list"><li>Исходник на Дельфи, а не на чистом Паскале. Кроме того, не самая лучшая реализация - VCL перемешан с работой над файлами.</li><li>А где комментарии? Где объяснение принципа работы?</li><li>Оформление должно быть подобающим для помещения в FAQ.</li><li>И, самое главное - зачем это добавлять в ЧАВО ? Ведь это специфичная проблема, которая встречается очень редко.</li></ul>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521240</guid>
        <pubDate>Tue, 23 Nov 2004 22:29:35 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521240</link>
        <description><![CDATA[DoctorGenius: Программа на Delphi для проведения глобальной замены в файлах.]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521236</guid>
        <pubDate>Tue, 23 Nov 2004 22:04:58 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521236</link>
        <description><![CDATA[DoctorGenius: Онлайн вариант FAQ вполне успешно может храниться, скажем там где и сейчас - на форуме. Готовые же обсуждения можно всегда добавлять в базу. А вообще я бы сделал все это в виде сайта, используя технологии SSI. Каждая страница может быть построена следующим образом:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&#60;HTML&#62;</div><div class="code_line">&#60;HEAD&#62;</div><div class="code_line">&#60;TITLE&#62;Pascal FAQ&#60;/TITLE&#62;</div><div class="code_line">&#60;LINK rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;style.css&quot;&#62;</div><div class="code_line">&#60;/HEAD&#62;</div><div class="code_line">&#60;BODY&#62;</div><div class="code_line">&#60;!--#include virtual=&quot;top.txt&quot;--&#62;</div><div class="code_line">Содержание страницы.</div><div class="code_line">&#60;HR align=center width=490 color=#ffffff&#62;</div><div class="code_line">&#60;!--#include virtual=&quot;bottom.txt&quot;--&#62;</div><div class="code_line">&#60;/BODY&#62;</div><div class="code_line">&#60;/HTML&#62;</div></ol></div></div></div></div><br>
В нижней части страницы можно разместить форму для отправки комментариев пользователей. Как например это сделано на <a class='tag-url' href='http://delphibase.endimus.ru' target='_blank'>http://delphibase.endimus.ru</a>. или же замечания и коменнтарии могут отправляться на e-mail администратору сайта.<br>
Таким образом когда имея &quot;исходные&quot; страницы автор позаменяет verh1 и verh2 на меню, элементы дизайна и др. (на сервере такая вставка происходит автоматически при каждом запросе страницы). Далее автор это все может прекрасно выложить в виде архива. Таким образом, не нужно будет делать никаких &quot;слепков&quot; с сайта и отдельно тратить время на оптимизацию FAQ для off-line и для on-line версии, делать &quot;слепки&quot; сайтов и др. Просто берем преобразуем материалы в HTML, вставляем в шаблон, и все.<br>
Что же касается создания CSS, и вообще сайтов, советую посетить свою страницу. <a class='tag-url' href='http://www.drgenius.h1.ru' target='_blank'>http://www.drgenius.h1.ru</a> Я использую SSI и CSS стиль, благодаря этому возможно изменение дизайна всего сайта (около 100 страниц) изменением всего 3-х файлов. Работа SSI выполняется на стороне сервера, поэтому нет никакой разницы использовали SSI или нет. Это удобство исключительно для создателя сайта. Еще одна проблема состоит в том, что далеко не каждый бесплатный хостинг поддерживает SSI, рекомендую <a class='tag-url' href='http://www.holm.ru' target='_blank'>http://www.holm.ru</a><br>
P.S. Почему сайт - быстрее, лучше, меньше траты on-line времени на скачивание, закачивание инфы и т.д. Вообще оптимальным было бы сделать все на PHP, с использованием mySQL, но это уже получиться новый форум, а не FAQ.<br>
Если есть вопросы относительно &quot;web-строительства&quot; - пишите doctogenius@mail.ru]]></description>
        <author>DoctorGenius</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521227</guid>
        <pubDate>Tue, 23 Nov 2004 21:25:06 +0000</pubDate>
        <title>Создаём Offline FAQ</title>
        <link>https://forum.sources.ru/index.php?showtopic=73305&amp;view=findpost&amp;p=521227</link>
        <description><![CDATA[Romtek: Текущая версия: 0.3a<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?act=Attach&type=post&id=547930' target='_blank'>Скачать <strong class='tag-b'>OfflineFAQa3.rar</strong></a> (~48кб)<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=73305&view=findpost&p=547930' target='_blank'>Содержание Offline-FAQ</a><br>
<br>
Народ, те кто хочет помочь - присылайте решения проблем на Паскале <strong class='tag-b'>без</strong> ассемблерных вставок.<br>
<br>
<strong class='tag-b'><span class='tag-u'>Основные топики:</span></strong><ol class="tag-list" type="a"><li>Основы Паскаля (самый главный упор именно на него)<ul class="tag-list"><li>Строки</li><li>Типы данных</li><li>Работа с файлами</li></ul></li><li>Математика и алгоритмы<ul class="tag-list"><li>численные методы</li><li>и т.д.</li></ul></li><li>Графика и игры</li><li>ООП</li><li>Дата и время</li></ol><br>
Примеры должны быть ориентированы на сегодняшний день, поэтому не принимаются примеры по<ul class="tag-list"><li>Interrupts (уже не актуально)</li><li>Hardware (как правило, используются прерывания и ассемблер)</li><li>TSR (уже не актуально)</li></ul><br>
<span class='tag-u'><strong class='tag-b'>Оформление:</strong></span><br>
Только в документах DOC, HTML, или в сообщении в форуме. <strong class='tag-b'>И не забудьте о соответствующих комментариях к коду программ&#33;</strong><br>
Если лень открывать редактор, то напишите описание прямо в своём сообщении. <strong class='tag-b'>Выделите</strong> ключевые слова, <span class='tag-u'>подчеркните</span>, где надо. Сам я не могу оформлять каждый присланный документ.<br>
Дополнения к ФАКу прикрепляйте в архиве к своему сообщению.<br>
<br>
А ещё неплохо собрать в HTML то, что лежит на сайте <a class='tag-url' href='http://pascal.sources.ru/' target='_blank'>http://pascal.sources.ru/</a> :<br>
<a class='tag-url' href='http://pascal.sources.ru/download/index.htm' target='_blank'>Pascal FAQ и Russian SWAG</a>]]></description>
        <author>Romtek</author>
        <category>Все языки: Статьи, заготовки в FAQ</category>
      </item>
	
      </channel>
      </rss>
	