<?xml version="1.0" encoding="windows-1251"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<atom:link href="https://pascal.0pk.me/export.php?type=rss" rel="self" type="application/rss+xml" />
		<title>Программирование на языке Pascal - ФОРУМ</title>
		<link>https://pascal.0pk.me/</link>
		<description>Программирование на языке Pascal - ФОРУМ</description>
		<language>ru-ru</language>
		<lastBuildDate>Mon, 04 Jul 2022 17:13:16 +0300</lastBuildDate>
		<generator>MyBB/mybb.ru</generator>
		<item>
			<title>Какое обучение пройти, чтобы научиться работать в Excel?</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=282#p282</link>
			<description>&lt;p&gt;У меня схожая ситуация была и мне посоветовали курсы от компании EFFECOM &lt;a href=&quot;https://effecom.ru/course/kak-uprostit-i-uskorit-rabotu-v-excel-i-google-tabliczah&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://effecom.ru/course/kak-uprostit- &amp;#8230; -tabliczah&lt;/a&gt;. Я их прошла и успешно теперь работаю.&lt;/p&gt;
						&lt;p&gt;Я получила навыки как образовывать графики в Excel и Google Таблицах. Узнала, как формировать огромные таблицы и многоэтажные формулы, употребляя инструменты, которые я ранее не знала. Также я получила знания как быстро выполнять все задания используя фишки, композиции кнопок – теперь для меня любое задание в Excel стала увлекательной и не скучной деятельность. Теперь я без малейшего затруднения и проворно проделываю поручения без поддержки других. Получила навыки, которые помогают выполнять трудные задания. Я стала в этой работе специалистом и нужным мастером.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (ertramadcrenen)</author>
			<pubDate>Mon, 04 Jul 2022 17:13:16 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=282#p282</guid>
		</item>
		<item>
			<title>Ман дилгиркунанда ногоњ</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=280#p280</link>
			<description>&lt;p&gt;Кор то шаб пайваста уставать зараровар, биеед, ман к&amp;#1263;шиш ба дарефти ро&amp;#1203;и &amp;#1203;ам як каме истиро&amp;#1203;ат. Тавре ки барои озод шаб&amp;#1203;о, ман фикр мекунам, ки ба ту лозим аст, ки поискать баъзе сомона фаъолият, биг&amp;#1263;, &lt;a href=&quot;https://parimatch.tj/tg/casino/slots/categories/keno&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://parimatch.tj/tg/casino/slots/categories/keno&lt;/a&gt;. Ч&amp;#1251; тавр ту меъери ба варзиш е онлайн-казино? Ба назар мерасад, ки он, ва дигар аъло ва&amp;#1179;т лозим аст.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Trewer)</author>
			<pubDate>Fri, 11 Feb 2022 12:00:08 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=280#p280</guid>
		</item>
		<item>
			<title>Футболни &amp;#1179;аерда томоша &amp;#1179;илиш керак?</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=278#p278</link>
			<description>&lt;p&gt;Дўстларим ва мен бир sport сатрига бориб. Баъзан биз бу ерда тикиш &lt;a href=&quot;https://pariuzs.com/uz&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://pariuzs.com/uz&lt;/a&gt; тадбирда &amp;#1179;изи&amp;#1179;иш исиниш ва ўйин &amp;#1179;изи&amp;#1179;ишини бошдан кечириш. Билишимча, сунъий йўлдош телевидениесида futbol ўйинлари ефирга узатиладиган бир нечта каналлар мавжуд. Аммо улар баъзан кейинчалик намойиш етилишини билиш му&amp;#1203;имдир. Ва сунъий йўлдош каналлари тўланади&lt;/p&gt;</description>
			<author>mybb@mybb.ru (sejis)</author>
			<pubDate>Fri, 11 Feb 2022 11:44:00 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=278#p278</guid>
		</item>
		<item>
			<title>Совет</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=274#p274</link>
			<description>&lt;p&gt;привет, вот в магазине &lt;a href=&quot;https://samokat.ua/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://samokat.ua/&lt;/a&gt; огромный выбор разных беговелов,цены очень доступные и выбор большой&lt;/p&gt;</description>
			<author>mybb@mybb.ru (МаришкаНамейко)</author>
			<pubDate>Wed, 29 Sep 2021 21:54:24 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=274#p274</guid>
		</item>
		<item>
			<title>Семена конопли</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=272#p272</link>
			<description>&lt;p&gt;Здравствуйте, можно &lt;a href=&quot;http://muzuka.3dn.ru/publ/1-1-0-205&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;здесь&lt;/a&gt; узнать все о разных сортах конопли. И подробно там описано где можно их купить&lt;/p&gt;</description>
			<author>mybb@mybb.ru (МаришкаНамейко)</author>
			<pubDate>Wed, 23 Dec 2020 07:41:40 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=272#p272</guid>
		</item>
		<item>
			<title>Как сделать по команде программы вывод (на печать или в файл) какое ли</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=270#p270</link>
			<description>&lt;p&gt;Как сделать по команде программы вывод (на печать или в файл) какое либо изображение (фото), или символ, например мне надо в определенный момент напечатать: &lt;br /&gt; &amp;quot; далее, вычисляем по формуле &lt;br /&gt; Х/Y^2&amp;quot; (только формула должна быть записана в красивом виде, как положено - сверху черты числитель X, а под чертой Y в квадрате&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Изосимов)</author>
			<pubDate>Mon, 04 Jun 2012 23:34:36 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=270#p270</guid>
		</item>
		<item>
			<title>Распродажа алкоголя.</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=269#p269</link>
			<description>&lt;p&gt;Просьба к модераторам не удалять эту тему, многим пригодится - свадьбы - дни рождение - другие мироприятия - алкоголь качественный все то что стоит на прилавках, продается до разлития по бутылкам без наценки - отсюда такие цены.Перед приобретением есть возможность дегустации - не понравиться не берите.&lt;br /&gt;За ранее спасибо. &lt;br /&gt;Виски - White Horse - 5 литров - 1500 рублей.&lt;br /&gt;Мартини - Bianco - 5 литров - 1200 рублей.&lt;br /&gt;Текила - Olmeca Gold - 5 литров - 1500 рублей.&lt;br /&gt;Ром - Captain Morgan Black - 5 литров - 1500 рублей.&lt;br /&gt;Амаретто - Ликер - 5 литров - 1500 рублей.&lt;br /&gt;Водка - Absolut - Standart,Kurant,Citron - 5 литров 1200 рублей.&lt;br /&gt;Настойка(40%) - Вишня - 5 литров - 1200 рублей.&lt;br /&gt;Коньяк - Ной -&amp;#160; 5 литров - 1200 рублей.&lt;br /&gt;Джин - Beefeater Gin - 5 литров - 1500 рублей.&lt;br /&gt;&lt;strong&gt;Москва 8 9653410236 ICQ 170882614&lt;/strong&gt;&lt;br /&gt;Все тоже самое что вы приобретете в обычных магазинах.&lt;br /&gt;Заводские пищевые канистры по 5 литров-опломбированы.&lt;br /&gt;Перед приобретением есть возможность открыть свою канистру - попробoвать.&lt;br /&gt;Дегустация - до 0.5 литра любого напитка на месте.&lt;br /&gt;Мы не продаем алкоголь несовершеннолетним.&lt;br /&gt;производят в нашей стране по лицензии от производителя,обычные винно-коньячные заводы, высококвалифицированные технологи,качественное оборудование,по рецепту.Не выгодно импортировать... себестоимость самого напитка низкая,разливают в канистры до бутылок - отсюда такая цена.&lt;br /&gt;есть напитки - возят из Питера, там коньячный спирт,кондитерский коньяк, вкусов 10(миндаль,карамель и тд). у нас нормальный коньяк, сам тестил - залил коньяк из канистры в бутылку реми мартин, пришел в компанию - всем понравилось - все довольны. Там психологический фактор играет, покупая бутылку, человек подсознательно доверяет производителю;магазину;тому, что он платит деньги. С канистрой отрицательные ассоциации. Конечно это не будет французский коньяк 15-20 лет выдержки, но у нас в обычных магазинах, вы только хуже найдете..&lt;br /&gt;Пишите в аську,звоните договоримся.170882614, 79653410236&lt;br /&gt;Выслать возможно EMS почтой,Почтой России,DHL. до 10 канистр.&lt;br /&gt;Более - грузоперевозкой&lt;br /&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;https://s010.radikal.ru/i312/1101/b5/659b2216ade6.jpg&quot; alt=&quot;http://s010.radikal.ru/i312/1101/b5/659b2216ade6.jpg&quot; /&gt;&lt;/p&gt;
						&lt;p&gt;Теги: секс,продам,куплю,авто,деньги,даром,отдам,xxx,порно,porno,срочно,ищу,девушка,ищет,девушки,би,пара,&lt;/p&gt;</description>
			<author>mybb@mybb.ru (easyeas)</author>
			<pubDate>Sat, 07 May 2011 14:37:45 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=269#p269</guid>
		</item>
		<item>
			<title>Деревья</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=268#p268</link>
			<description>&lt;p&gt;Помогите пожалуйста с программой, вроде не сложная, а понять ее не могу.Дано упорядоченное дерево глубины N (N &amp;gt; 0 — четное), каждая внутренняя вершина которого имеет два непосредственных потомка: A с весом 1 и B с весом –1. Корень дерева C имеет вес 0.Вывести все пути от корня к листьям, удовлетворяющие следующему условию: суммарный вес элементов пути равен 0.Порядок перебора путей — тот же.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Капелька)</author>
			<pubDate>Tue, 08 Jun 2010 13:48:06 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=268#p268</guid>
		</item>
		<item>
			<title>Поиск работы Pascal</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=267#p267</link>
			<description>&lt;p&gt;Для поиска работы приглашаю воспользоваться базой резюме и вакансий. У нас есть раздел &lt;a href=&quot;http://ru.staff-base.com/?sj+sl+pdx=0.0.0.10&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;поиск &lt;strong&gt;работы&lt;/strong&gt; Pascal&lt;/a&gt;. Профессиональный классификатор резюме и вакансий открыт для добавления новых разделов. База не требует следования строгому формату при оформлении резюме или вакансии, по-этому все контактные данные, которые оставите открытыми, будут доступны любому пользователю базы. База работает на русском и английском языках и допускает для каждой записи обе языковые версии.&lt;/p&gt;
						&lt;p&gt;Также, у нас есть партнёрская программа для владельцев интернет ресурсов. Приглашаем владельцев ресурсов с тематикой - образование, работа, бизнес или миграция. Смотрите раздел &amp;quot;Партнёрство&amp;quot;.&lt;/p&gt;
						&lt;p&gt;Приглашаем носителя казахского (перподаватель или переводчик) для работы по созданию языковой версии интерфейса нашей базы (технических знаний не требуется). Регистрация и тест доступны в базе через рабочий домен &lt;a href=&quot;http://lingva-partnero.staff-base.spb.ru/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://lingva-partnero.staff-base.spb.ru/&lt;/a&gt; в личном разделе, подраздел &amp;quot;Интернационализация&amp;quot;. Оплаты нет, но авторство работы будет полностью сохранено за переводчиком, можно использовать как пункт портфолио или для саморекламы.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (staff-base)</author>
			<pubDate>Wed, 10 Mar 2010 19:32:03 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=267#p267</guid>
		</item>
		<item>
			<title>Помогите пожалуйста сделать</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=266#p266</link>
			<description>&lt;p&gt;Помогите пожалуйста сделать&lt;br /&gt;1.Даны x1, …, x7; L1, …, L5; a, b.&lt;/p&gt;
						&lt;p&gt;Определить &lt;/p&gt;
						&lt;p&gt;S= сумма(Xi - ab)\ cумма(Li - a); Pi = S *Li&lt;/p&gt;</description>
			<author>mybb@mybb.ru (wahya)</author>
			<pubDate>Sun, 20 Dec 2009 18:16:07 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=266#p266</guid>
		</item>
		<item>
			<title>массивы помогите сделать</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=265#p265</link>
			<description>&lt;p&gt;1. Даны массивы&lt;/p&gt;
						&lt;p&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;HD1, …, HD8 &amp;#160; &amp;#160; – шифры дорог;&lt;br /&gt;	КАТ1, …, KAT2 	– категории дорог;&lt;br /&gt;	S1, …, S8 &amp;#160; &amp;#160; - протяженности в км.&lt;br /&gt;Вывести два списка:&lt;br /&gt;	1) список дорог 1-й категории протяженностью свыше 300 км;&lt;br /&gt;	2) список дорог 3-й категории.&lt;/p&gt;
						&lt;p&gt;2.&lt;br /&gt;Определить значение суммы членов бесконечного ряда&lt;/p&gt;
						&lt;p&gt;S= - (((2x)^2)/2)+ (((2x)^4)/24) - ...+(-1)^n * (((2x)^n)/(2n)!)+...&lt;/p&gt;
						&lt;p&gt;с точностью до члена ряда, меньшего &amp;#958; для x = 0,1.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (wahya)</author>
			<pubDate>Sat, 19 Dec 2009 22:58:58 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=265#p265</guid>
		</item>
		<item>
			<title>TurboPascal: теория графов, определение вершин лежащих на max пути</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=264#p264</link>
			<description>&lt;p&gt;Определение вершин лежащих на максимальном пути.&lt;br /&gt;задание:&lt;br /&gt;Определить длину максимального пути для графа, заданного матрицей расстояний. Это я сделала, вот код: &lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;program MDP;
uses crt;
var
 G,F1,F2,F3,F4,F5,F6,F7,F8,F9: set of byte;
R,M,S,B: array [1..20]  of array [1..20] of integer;
Y: array [1..10] of integer;
i,j,k,n,C,V: integer;
begin
 clrscr;
 G:=[1,2,3,4,5,6,7,8,9];
 F1:=[2,3,4];
 F2:=[3,6];
 F3:=[4,5];
 F4:=[5,7];
 F5:=[6,8];
 F6:=[9];
 F7:=[8,9];
 F8:=[9];
 F9:=[];

 for i:=1 to 9 do
for j:=1 to 9 do begin
 if j in F1 then R[1,j]:=1
  else R[1,j]:=0;
 if j in F2 then R[2,j]:=1
  else R[2,j]:=0;
 if j in F3 then R[3,j]:=1
  else R[3,j]:=0;
 if j in F4 then R[4,j]:=1
  else R[4,j]:=0;
 if j in F5 then R[5,j]:=1
  else R[5,j]:=0;
 if j in F6 then R[6,j]:=1
  else R[6,j]:=0;
  if j in F7 then R[7,j]:=1
  else R[7,j]:=0;
 if j in F8 then R[8,j]:=1
  else R[8,j]:=0;
   if j in F9 then R[9,j]:=1
  else R[9,j]:=0;
end;
 writeln(&#039;matrica smeznosti R-&amp;gt;&#039;);
 for i :=1 to 9 do begin
 for j:=1 to 9 do
  write(R[i,j],&#039; &#039;);
  writeln;
 end;

 for i:=1 to 9 do
for j:=1 to 9 do begin
if R[i,j]=1 then  begin
write(&#039;Vvedite ves dugi-&amp;gt; &#039;);
readln(V);
S[i,j]:=V;
end;
end;
writeln(&#039;matrica rasstoyanii L -&amp;gt;&#039;);
 for i :=1 to 9 do begin
 for j:=1 to 9 do
  write(S[i,j],&#039; &#039;);
  writeln;
 end;

for j:=1 to 9 do
B[j,1]:=0;
for i:=2 to 9 do
for j:=1 to 9 do
B[j,i]:=-100;

j:=1;
repeat j:=j+1;

k:=0;
for i:=1 to 9 do
if S[i,j]&amp;gt;0 then begin
k:=k+1;
Y[k]:=B[j-1,i]+S[i,j];
end;

C:=-100; {minus beskone4nost}
for n:=1 to k do
if Y[n]&amp;gt;C then C:=Y[n];

for i:=j to 9 do
B[i,j]:=C;
until j=9;

 writeln(&#039;opredelenie dliny maksimalnogo puti-&amp;gt;&#039;);

 for j:=1 to 9 do begin
 for i:=1 to 9 do
  write(B[j,i],&#039;   &#039;);
  writeln;
  end;
 readln;
End.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;Но 2-ое задание: Найти вершины, лежащие на этом пути. Причем препод требует чтобы всё было &amp;quot;просто и понятно&amp;quot; - т.е. без флажков, goto, процедур и функций, а только с помощью массивов, циклов и на крайняк множеств (как в программе которую я написала). Сможете мне помочь? Буду очень благодарна!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (ulala)</author>
			<pubDate>Fri, 18 Dec 2009 12:24:34 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=264#p264</guid>
		</item>
		<item>
			<title>Задачи по графам и орграфам</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=263#p263</link>
			<description>&lt;p&gt;используя метод поиска в ширину, найдите стягивающее дерево для произвольного связного неориентирова графа, заданного списками инцидентности&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Irishka)</author>
			<pubDate>Tue, 24 Nov 2009 20:08:18 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=263#p263</guid>
		</item>
		<item>
			<title>Задача на составление алгоритма</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=262#p262</link>
			<description>&lt;p&gt;В декартовой системе координат заданы четыре точки - (х1,у1); (х2у2); (х3у3); (х4у4),- образующие вершины прямоугольника. Как наилучшим образом написать программу, вычисляющую площадь этого прямоугольника?&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Евдокс)</author>
			<pubDate>Wed, 18 Nov 2009 11:20:18 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=262#p262</guid>
		</item>
		<item>
			<title>Задача связанная с Объктно0ориентированным программированием!!</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=260#p260</link>
			<description>&lt;p&gt;Помогите решить задачу!Нужна мельница с вращающимися крыльями(вертелами)!!!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (VAD-P13)</author>
			<pubDate>Thu, 21 May 2009 21:50:37 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=260#p260</guid>
		</item>
		<item>
			<title>Программа графического изображения</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=259#p259</link>
			<description>&lt;p&gt;Помогите нарисовать мельницу с вращающимися крыльями(как то так)!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (VAD-P13)</author>
			<pubDate>Wed, 20 May 2009 22:10:59 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=259#p259</guid>
		</item>
		<item>
			<title>Матрица , процедуры</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=258#p258</link>
			<description>&lt;p&gt;Задана прямоугольная матрица &lt;strong&gt;B&lt;/strong&gt; размера &lt;strong&gt;m x n&lt;/strong&gt; .Выполнить над матрицей &lt;strong&gt;В&lt;/strong&gt; действия.&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160;| 2&amp;#160; &amp;#160; 1&amp;#160; &amp;#160;7&amp;#160; &amp;#160;5 |&lt;br /&gt; B= |8&amp;#160; &amp;#160; 9&amp;#160; 11&amp;#160; 3 |&lt;br /&gt;&amp;#160; &amp;#160; &amp;#160; &amp;#160;|-3&amp;#160; -4&amp;#160; 18&amp;#160; &amp;#160;7 |&lt;/p&gt;
						&lt;p&gt;1.Найти сумму элементов строк и столбцов, на пересечении которых лежат отрицательные элементы.&lt;br /&gt;2.Вычислить суммы элементов строк, номера которых определяются номерами ненулевых элементов заданного вектора (для этого пользователю требуется задать вектор)&lt;br /&gt;3.Сформировать матрицу &lt;strong&gt;С&lt;/strong&gt; из строк &lt;strong&gt;В&lt;/strong&gt; расположив их так, чтобы количество отрицательных элементов в строке возростало с увеличением номера строки.&lt;br /&gt;4.Построить матрицу &lt;strong&gt;С=А*В*В&lt;/strong&gt;, где &lt;strong&gt;А&lt;/strong&gt; - прямоугольная матрица размера &lt;strong&gt;n x m&lt;/strong&gt;, а В квадратная матрица &lt;strong&gt;(m x m)&lt;/strong&gt; .(для этого пользователю требуется задать матрицу &lt;strong&gt;А&lt;/strong&gt; и &lt;strong&gt;В&lt;/strong&gt;, и вывести &lt;strong&gt;С &lt;/strong&gt;как матрицу)&lt;br /&gt;5.Сформировать из столбцов &lt;strong&gt;В&lt;/strong&gt; матрицу &lt;strong&gt;С &lt;/strong&gt;, в которой столбцы расположены в порядке возростания сумм их элементов.&lt;br /&gt;6.Вычислить суммы элементов строк, номера которых задаются целочисленным вектором.&lt;br /&gt;7. Если количество ненулевых элементов &lt;strong&gt;В&lt;/strong&gt; меньше , чем &lt;strong&gt;(m x n)/3&lt;/strong&gt; , сформировать матрицу &lt;strong&gt;С&lt;/strong&gt; размерами &lt;strong&gt;к х 3&lt;/strong&gt; в первом столбце которой содержатся ненулевые элементы матрицы В , а во втором и третьем столбцах - их координаты в исходной матрице.( (&lt;strong&gt;m x n)/3&lt;/strong&gt; - число, число &lt;strong&gt;к&lt;/strong&gt;&amp;#160; число не нулевых элементов в матрице &lt;strong&gt;В&lt;/strong&gt;.)&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;ПОМОГИТЕ ОФОРМИТЬ ВСЁ ЧЕРЕЗ ПРОЦЕДУРЫ БЕЗ ГЛОБАЛЬНЫХ ПЕРЕМЕННЫХ&lt;/strong&gt;&lt;/p&gt;
						&lt;p&gt;&lt;strong&gt;1&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
Const
Nmax=8;
NMAXIMUM=999999;
var i,j,m,n,k,p:integer;
    A,B,C:array[1..Nmax,1..Nmax] of real;
    v:array[1..Nmax] of real;
    sum,sum1,sum2:real;


begin

 writeln(&#039;Vvedite kol-vo strok v matrice B (do &#039;,Nmax,&#039;)&#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B (do &#039;,Nmax,&#039;)&#039;);readln(n);

 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;


 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:9:1,&#039; &#039;);
   writeln;
 end;

 begin
   for i:=1 to m do
   for j:=1 to n do
   if B[i,j]&amp;lt;0 then
    begin

      sum1:=0;
       begin
        for k:=1 to n do
         begin
          sum1:=sum1+B[i,k];
         end;
       end;

      sum2:=0;
       begin
        for p:=1 to m do
         begin
          sum2:=sum2+B[p,j];
         end;
       end;
      sum:=sum1+sum2;

     writeln(&#039;Summa stroki &#039;,i,&#039; i stolbca &#039;,j,&#039;  = &#039;,sum:5:2)
    end;

  end;


readln;
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;2&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
Const
Nmax=8;
var i,j,m,n,g,o,l:integer;
    A,B,C:array[1..Nmax,1..Nmax] of real;
    v:array[1..Nmax] of real;
    sm,sum,summax,summin:real;


begin

 writeln(&#039;Vvedite kol-vo strok v matrice B (do &#039;,Nmax,&#039;)&#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B (do &#039;,Nmax,&#039;)&#039;);readln(n);
 writeln(&#039;Vvedite kol-vo elementov vektora v&#039;);readln(g);
 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;


 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:9:1,&#039; &#039;);
   writeln;
 end;

 for i:=1 to g do
 begin
 write(&#039;V[&#039;,i,&#039;]=&#039;);readln(v[i]);
 end;

writeln;

for i:=1 to m do
begin
if v[i]&amp;lt;&amp;gt;0 then
 begin
  sm:=0;
  for j:=1 to n do
  sm:=sm+B[i,j];
  writeln(&#039;Summa v stroke # &#039;,i,&#039;=&#039;,sm);
 end;
 end;
readln;
clrscr;
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;3&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
Const
NMAX=4;
type matr=array[1..NMAX,1..NMAX+2] of integer;

procedure Vvod_B(var B:matr);{создание и вывод на экран исходной матрицы}
var i,j,k,l,m,n,x:integer;
begin

 writeln(&#039;Vvedite kol-vo strok v matrice B &#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B &#039;);readln(n);
 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;

 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:5,&#039; &#039;);
   writeln;
 end;
end;

procedure Summ_Str(var B:matr);
var i,j,k,l,m,n,x:integer;
begin
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if b[i,j]&amp;lt;0 then k:=k+1;{считаем количество отрицательных в строке}
  b[i,n+1]:=k;{записывем его в первый дополнительный столбец}
  b[i,n+2]:=i;{во аторой дополнительный записываем номер строки}
 end;
 end;
 procedure Sort_Str(Var B:matr);
 var i,j,l,x,m,n:integer;
 begin
for i:=1 to m-1 do
for j:=i+1 to m do
if b[i,n+1]&amp;gt;b[j,n+1]then{по возрастанию знасений в предпоследнем столбце}
for l:=n+1 to n+2 do{сортируем оба дополнительных столбца}
 begin
  x:=b[i,l];
  b[i,l]:=b[j,l];
  b[j,l]:=x;
 end;
 end;

procedure Vyvod_C3(var B,C:matr);
var i,j,m,n:integer;
begin
writeln;
writeln(&#039; matrica C :&#039;);
writeln;

for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=b[b[i,n+2],j];
{строке массива С присваиваем значения строки с номером в последнем столбце массива В}
    write(c[i,j]:9);
   end;
  writeln;
 end;
 end;

var B,C:matr;
begin
clrscr;
Vvod_B(B);
Summ_Str(B);
Sort_Str(B);
Vyvod_C3(B,C);
readln;
end.
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;4&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
const
n=4;
m=3;
type
matr=array[1..n,1..m] of integer;
procedure Vvod(var B:matr;x:integer;c:char);
var i,j:integer;
begin
writeln(&#039;Vvedite &#039;,x*m,&#039; Elementov Matrici &#039;,c,&#039;:&#039;);
for i:=1 to x do
for j:=1 to m do
 begin
  write(&#039;el[&#039;,i,&#039;,&#039;,j,&#039;]=&#039;);
  readln(B[i,j]);
 end;
end;
procedure Vyvod(var B:matr;x:integer;c:string);
var i,j:integer;
begin
writeln(&#039;Matrica &#039;,c,&#039;:&#039;);
for i:=1 to x do
 begin
   for j:=1 to m do
   write(B[i,j]:4,&#039; &#039;);
   writeln;
 end;
end;
procedure UmnMatr(m1,m2:matr;x:integer;var m3:matr);
var p,j,i:integer;
begin
for p:=1 to x do
for j:=1 to m do
   begin
     m3[p,j]:=0;
     for i:=1 to m do
       begin
         m3[p,j]:=m3[p,j]+m1[p,i]*m2[i,j];
       end;
   end;
end;
var a,b,c,d:matr;
begin
clrscr;
Vvod(a,n,&#039;A&#039;);
Vvod(b,m,&#039;B&#039;);
clrscr;
Vyvod(a,n,&#039;A&#039;);
Vyvod(b,m,&#039;B&#039;);
UmnMatr(a,b,n,d);
Vyvod(d,n,&#039;D=A*B&#039;);
UmnMatr(d,b,n,c);
Vyvod(c,n,&#039;C=A*B*B&#039;);
readln
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;5&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
const
NMAX=4;
type matr=array[1..NMAX+2,1..NMAX] of integer;{2 лишних строки для сортировки}
procedure Vvod_B(var B:matr);{создание и вывод на экран исходной матрицы}
var i,j,m,n:integer;
begin

 writeln(&#039;Vvedite kol-vo strok v matrice B &#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B &#039;);readln(n);
 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;

 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:9,&#039; &#039;);
   writeln;
 end;
end;
procedure Summ_Stb(var B:matr);{подсчет суммы в столбцах}
var i,j,sm,m,n:integer;
begin

for j:=1 to n do
 begin
  sm:=0;
  for i:=1 to m do
  sm:=sm+B[i,j];
  B[m+1,j]:=sm;{в первую дополнительную строку запишем суммы в столбцах}
  B[m+2,j]:=j;{во второю номера столбцов}
 end;
end;
procedure Sort_Stb(var B:matr);{сортировка номеров столбцов по возрастанию суммы}
var i,j,l,x,m,n:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n  do
if B[m+1,i]&amp;gt;B[m+1,j]then
for l:=m+1 to m+2 do
 begin
  x:=B[l,i];
  B[l,i]:=B[l,j];
  B[l,j]:=x;
 end;
end;
procedure Vyvod_C(var B,m1:matr);{вывод результирующей матрицы}
var i,j,m,n:integer;
begin
writeln(&#039;Matrica C:&#039;);
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    m1[i,j]:=B[i,B[m+2,j]];
{каждой строке новой матрицы присваиваем знвчения строк,
указанных в последней строке исходной матрицы после сортировки}
    write(m1[i,j]:4);
   end;
  writeln;
 end;
end;
var B,C:matr;
begin
clrscr;
randomize;
Vvod_B(B);
Summ_Stb(B);
Sort_Stb(B);
Vyvod_C(B,C);
readln;
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;6&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses crt;
const
m=3;{размеры матрицы по условию}
n=4;
type
mas=array[1..50] of integer;{целочисленный вектор}
str=array[1..n] of integer;{массивы-строки матрицы}
matr=array[1..m] of str;{матрица-массив строк}
procedure VvodMatr(var mt:matr);
var i,j:integer;
begin
writeln(&#039;Введите &#039;,m*n,&#039; элементов матрицы:&#039;);
for i:=1 to m do
for j:=1 to n do
 begin
  write(&#039;el[&#039;,i,&#039;,&#039;,j,&#039;]=&#039;);
  readln(mt[i,j]);
 end;
end;
procedure VyvodMatr(var mt:matr);
var i,j:integer;
begin
writeln(&#039;Матрица:&#039;);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(mt[i,j]:3,&#039; &#039;);
  writeln;
 end;
end;
procedure VvodMas(var ms:mas;var x:integer);
var i:integer;
begin
write(&#039;Размер массива x=&#039;);
readln(x);
writeln(&#039;Введите &#039;,x,&#039; элементов массива:&#039;);
for i:=1 to x do
 begin
  write(&#039;el[&#039;,i,&#039;]=&#039;);
  readln(ms[i]);
 end;
end;
procedure VyvodMas(var ms:mas;x:integer);
var i:integer;
begin
writeln(&#039;Массив:&#039;);
for i:=1 to x do
write(ms[i],&#039; &#039;);
writeln;
end;
function Summ(s:str):integer;
var i,sm:integer;
begin
sm:=0;
for i:=1 to n do
sm:=sm+s[i];{считаем сумму в массиве-строке матрицы}
Summ:=sm;
end;
procedure SummStr(mt:matr;ms:mas;x:integer;var sm:integer);
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to x do
if i=ms[j] then{если номер строки есть в векторе}
 begin
  writeln(&#039;Сумма в строке &#039;,i,&#039;=&#039;,Summ(mt[i]));{считаем и выводим сумму}
  break;{дальше не ищем, чтоб не было повторов}
 end;
end;
var a:matr;
    v:mas;
    k,sm:integer;
begin
clrscr;
VvodMatr(a);
VvodMas(v,k);
clrscr;
VyvodMatr(a);
VyvodMas(v,k);
SummStr(a,v,k,sm);
readln
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;strong&gt;7&lt;/strong&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;uses CRT;
Const
Nmax=12;
var
B,C:array[1..Nmax,1..Nmax] of integer;
i,j,m,n,y:integer;

procedure Vvod_B;

begin

 writeln(&#039;Vvedite kol-vo strok v matrice B &#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B &#039;);readln(n);
 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;

 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:5,&#039; &#039;);
   writeln;
 end;
 read;
end;


procedure Pere;

begin
y:= 0;

     begin
          for i:=1 to m do
          begin
               for j:=1 to n do
               begin
                    if B[i,j]&amp;lt;&amp;gt;0 then
                    begin
                         y:=y+1;
                         c[y,1]:=B[i,j];
                         c[y,2]:=i;
                         c[y,3]:=j;


                    end;
               end;
          end;
          read;
     end;

end;

procedure Vivod_C;

 begin
 writeln;
 writeln(&#039;Matrica C :&#039;);
 writeln;
  for i:=1 to y do
   begin
    for j:=1 to 3 do
     write(C[i,j]:5,&#039; &#039;);
     writeln;
   end;
   readln;
 end;




begin
 clrscr;
 Vvod_B;
 Pere;
 Vivod_C;
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (jorjinho10)</author>
			<pubDate>Mon, 18 May 2009 20:12:18 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=258#p258</guid>
		</item>
		<item>
			<title>Помогите пожалуйста с задачкой на матрицу</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=257#p257</link>
			<description>&lt;p&gt;Если количество ненулевых элементов &lt;strong&gt;В&lt;/strong&gt; меньше , чем (&lt;strong&gt;m x n)/3&lt;/strong&gt; , сформировать матрицу &lt;strong&gt;С &lt;/strong&gt;размерами &lt;strong&gt;к х 3&lt;/strong&gt; в первом столбце которой содержатся ненулевые элементы матрицы &lt;strong&gt;В&lt;/strong&gt; , а во втором и третьем столбцах - их координаты в исходной матрице.( &lt;strong&gt;(m x n)/3&lt;/strong&gt; - число, число&lt;strong&gt; к&lt;/strong&gt; - число не нулевых элементов в матрице &lt;strong&gt;В &lt;/strong&gt;.)&lt;/p&gt;
						&lt;p&gt;Задачу необходимо выполнить через &lt;strong&gt;procedure&lt;/strong&gt;&amp;#160; или &lt;strong&gt;function&lt;/strong&gt;.&lt;/p&gt;
						&lt;p&gt;Вот что я делал , но это не работает ((&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;program lab;
uses CRT;
const
n = 3;
m = 4;
type
matr= array[1..m,1..n] of integer;


procedure Vvod_B(var B:matr);
var i,j,m,n:integer;
begin

 writeln(&#039;Vvedite kol-vo strok v matrice B &#039;);readln(m);
 writeln(&#039;Vvedite kol-vo stolbcov v matrice B &#039;);readln(n);
 writeln;



 for i:=1 to m do
 for j:=1 to n do
 begin
 write(&#039;B[&#039;,i,&#039;,&#039;,j,&#039;]: &#039;);readln(B[i,j]);
 end;

 writeln;
 writeln(&#039; matrica B :&#039;);
 writeln;

 for i:=1 to m do
 begin
 for j:=1 to n do write(B[i,j]:5,&#039; &#039;);
   writeln;
 end;
end;


procedure Perestanovka(B:matr; var c:matr);
var
y,i,j,m,n:integer;
begin
y:= 0;

     begin
          for i:=1 to m do
          begin
               for j:=1 to n do
               begin
                    if B[i,j]&amp;lt;&amp;gt;0 then
                    begin
                         y:=y+1;
                         c[y,1]:=B[i,j];
                         c[y,2]:=i;
                         c[y,3]:=j;

                    end;
               end;
          end;
     end;
 readln;
end;

procedure Vivod_C(C:matr);
var i,j,m,n,y:integer;
 begin
  for i:=1 to y do
   begin
    for j:=1 to 3 do
     write(C[i,j]:5,&#039; &#039;);
     writeln;
   end;
 end;



var B,C:matr;
begin
 clrscr;
 Vvod_B(B);
 Perestanovka(B,C);
 Vivod_C(C);
 readln;
end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (jorjinho10)</author>
			<pubDate>Sat, 16 May 2009 16:41:59 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=257#p257</guid>
		</item>
		<item>
			<title>Задачи. Помогите срочно нужно</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=256#p256</link>
			<description>&lt;p&gt;2. Острова&lt;/p&gt;
						&lt;p&gt;В океане расположен архипелаг из N островов, каждый из которых имеет форму выпуклого многоугольника. Острова не соприкасаются и не пересекаются. Эти острова необходимо соединить между собой мостами так, чтобы от любого острова архипелага можно было добраться до любого другого. Каждый мост должен соединять пару островов, при этом суммарная длина мостов должна быть минимальной.&lt;/p&gt;
						&lt;p&gt;Вход: файл input.txt, имеющий следующую структуру: в первой строке входного файла записано число N – количество островов в архипелаге. Далее идет N строк с описанием островов. В каждой строке описывается один остров, который задаётся числом вершин (первое число строки) и далее их координатами в порядке обхода по часовой стрелке (у каждой вершины первой идет абсцисса, а второй - ордината). Координаты внутри строки разделяются пробелами.&lt;/p&gt;
						&lt;p&gt;Ограничения: число N – натуральное от 2 до 50 (включительно), для каждого острова число вершин не превосходит 20, все координаты – целые числа, не превосходящие по модулю 30000.&lt;/p&gt;
						&lt;p&gt;Выход: файл output.txt, содержащий два числа (по одному в строке), первая строка ¬- число: количество мостов; второе строка - число: суммарная длина мостов с точностью до 0.001&lt;/p&gt;
						&lt;p&gt;Примеры:&lt;br /&gt;Пример 1.	Пример 2.&lt;br /&gt;Входной файл input.txt содержит:&lt;br /&gt;2&lt;br /&gt;4 –2 –2 –2 2 2 2 2 –2&lt;br /&gt;3 3 –2 3 2 6 0&lt;br /&gt;Результат (файл output.txt):&lt;br /&gt;1&lt;br /&gt;1 	Входной файл input.txt содержит:&lt;br /&gt;3&lt;br /&gt;4 –2 –2 –2 2 2 2 2 –2&lt;br /&gt;3 -3 0 –5 –1 –5 1&lt;br /&gt;3 6 –5 8 –4 8 -5&lt;br /&gt;Результат (файл output.txt):&lt;br /&gt;2&lt;br /&gt;6&lt;/p&gt;
						&lt;p&gt;3. Шифр Цезаря&lt;/p&gt;
						&lt;p&gt;Некоторый русский текст, хранящийся в файле, зашифрован следующим образом: каждая буква текста циклически сдвигается на одно и тоже количество символов, а все остальные символы (знаки препинания и пробелы) остаются неизменными. При шифровке большие буквы переходят в большие, а маленькие в маленькие. Будем для простоты считать, что русский алфавит состоит из 32 букв (за буквой «е» следует буква «ж»). Требуется написать программу автоматической расшифровки текста.&lt;/p&gt;
						&lt;p&gt;Вход: файл input.txt c зашифрованным текстом.&lt;/p&gt;
						&lt;p&gt;Ограничения: длина текста не превосходит 250 символов.&lt;/p&gt;
						&lt;p&gt;Выход: Файл output.txt с расшифрованным текстом.&lt;/p&gt;
						&lt;p&gt;Пример:&lt;br /&gt;input.txt	&amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160; &amp;#160;output.txt&lt;br /&gt;А сбвпубя, оп а фтубм	&amp;#160; &amp;#160; Я работаю, но я устал&lt;/p&gt;
						&lt;p&gt;Примечание: размер выходного файла должен совпадать с размеров зашифрованного файла, не должно появляться лишних пробелов, знаков препинания и прочих разделителей.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Максим)</author>
			<pubDate>Wed, 15 Apr 2009 20:48:15 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=256#p256</guid>
		</item>
		<item>
			<title>интерфейс из 3 окон???</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=255#p255</link>
			<description>&lt;p&gt;Подскажите п-ста как сделать интерфейс из 3 окон:&lt;br /&gt;1) график функции у=cos(x^3);&lt;br /&gt;2) таблица значений у и х;&lt;br /&gt;3) окно с кнопками&lt;/p&gt;</description>
			<author>mybb@mybb.ru (sacta)</author>
			<pubDate>Fri, 27 Feb 2009 14:22:25 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=255#p255</guid>
		</item>
		<item>
			<title>Задачи по сортировкам</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=254#p254</link>
			<description>&lt;p&gt;всем привет!&lt;br /&gt;Помогите пожалуйста написать программу:&lt;br /&gt;Сформировать одномерный массив A(N,N),состоящий из элементов двухмерного массива,используя метод адресной сортировки&lt;/p&gt;</description>
			<author>mybb@mybb.ru (dark064)</author>
			<pubDate>Sun, 28 Dec 2008 18:19:00 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=254#p254</guid>
		</item>
		<item>
			<title>Обработка матриц</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=253#p253</link>
			<description>&lt;p&gt;Помогите сделать плизз, оч нада&lt;/p&gt;</description>
			<author>mybb@mybb.ru (DestroY)</author>
			<pubDate>Tue, 23 Dec 2008 19:53:36 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=253#p253</guid>
		</item>
		<item>
			<title>Vista и паскаль</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=251#p251</link>
			<description>&lt;p&gt;Все знаеют проблему того что виста не дает работать с графой в паскале, при&amp;#160; обращение она пишет что не поддерживает весь экран для доса...кто нибудь знает обход или особую сборку паскаля чтобы работало, устаноку ХП не предлагать.&lt;/p&gt;
						&lt;p&gt;===============================================&lt;br /&gt;&lt;/p&gt;
						&lt;p&gt;найдено решение, графика пол вистой работает, при использовании &lt;a href=&quot;http://webfile.ru/2464976&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;DosBox&lt;/a&gt;&lt;br /&gt;Установить, и затем перетащить мышкой turbo.exe на ярлык DOSbox&#039;a&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Mixazzz)</author>
			<pubDate>Mon, 08 Dec 2008 15:10:51 +0300</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=251#p251</guid>
		</item>
		<item>
			<title>Языки программирования</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=250#p250</link>
			<description>&lt;p&gt;:pained: :)&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Gordon)</author>
			<pubDate>Mon, 01 Sep 2008 21:20:52 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=250#p250</guid>
		</item>
		<item>
			<title>Стек</title>
			<link>https://pascal.0pk.me/viewtopic.php?pid=249#p249</link>
			<description>&lt;p&gt;:pained: :)&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Gordon)</author>
			<pubDate>Mon, 01 Sep 2008 20:46:41 +0400</pubDate>
			<guid>https://pascal.0pk.me/viewtopic.php?pid=249#p249</guid>
		</item>
	</channel>
</rss>
