115 lines
4.7 KiB
HTML
115 lines
4.7 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="">
|
|
</object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
<title></title>
|
|
<link rel="StyleSheet" href="../../default.css">
|
|
</head>
|
|
|
|
<body>
|
|
<H1>Ñîçäàíèå çàäàíèé äëÿ èñïîëíèòåëÿ Ðîáîò</H1>
|
|
<hr>
|
|
<p><span lang="ru">Îïèøåì ïîñëåäîâàòåëüíîñòü ñîçäàíèÿ ãðóïïû çàäàíèé äëÿ
|
|
èñïîëíèòåëÿ Ðîáîò. Ñîçäàäèì ìîäóëü </span>RobTasks.pas ñî ñëåäóþùè<span lang="ru">ì
|
|
òåêñòîì:</span></p>
|
|
<blockquote>
|
|
<p><code><b>unit</b> RobTasks;</code></p>
|
|
<p><code><b>interface</b></code></p>
|
|
<p><code><b>uses</b> RobotTaskMaker;</code></p>
|
|
<p><code><b>implementation</b></code></p>
|
|
<p><code><b>procedure</b> FirstRob;<br>
|
|
<b>begin</b><br>
|
|
<span lang="ru"> </span>TaskText('Çàäàíèå myrob1. Çàêðàñèòü ïîìå÷åííûå êëåòêè');<br>
|
|
<span lang="ru"> </span>Field(10,6);<br>
|
|
<span lang="ru"> </span>HorizontalWall(0,3,4);<br>
|
|
<span lang="ru"> </span>VerticalWall(4,3,2);<br>
|
|
<span lang="ru"> </span>RobotBegin(1,4);<br>
|
|
<span lang="ru"> </span>VerticalWall(5,1,5);<br>
|
|
<span lang="ru"> </span>HorizontalWall(5,1,4);<br>
|
|
<span lang="ru"> </span>RobotEnd(6,2);<br>
|
|
<span lang="ru"> </span>Tag(6,2);<br>
|
|
<b>end</b>;</code></p>
|
|
<p><code><b>begin</b><br>
|
|
RegisterGroup('myrob','Ìîè çàäàíèÿ äëÿ Ðîáîòà','RobTasks',2);<br>
|
|
RegisterTask('myrob1',FirstRob);<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p><span lang="ru">Íàáåðåì è çàïóñòèì îñíîâíóþ ïðîãðàììó (ñîõðàíÿòü åå â êàêîì-ëèáî ôàéëå íå òðåáóåòñÿ):</span></p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> Robot, RobTasks;<br>
|
|
<b>begin</b><br>
|
|
Task('myrob1');<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p>Áóäåò âûâåäåíî ñëåäóþùåå çàäàíèå äëÿ Ðîáîòà:
|
|
</p>
|
|
<p><img border="0" src="images/rbmake1.PNG"></p>
|
|
<p><span lang="ru">
|
|
Äîáàâèì çàäàíèå, â êîòîðîì êîíôèãóðàöèÿ ïîëÿ ñëó÷àéíà:</span></p>
|
|
<blockquote>
|
|
<p><code><b>procedure</b> SecondRob;<br>
|
|
<b>var</b> n,i: integer;<br>
|
|
<b>begin</b><br>
|
|
<span lang="ru"> </span>TaskText('Çàäàíèå myrob2. Çàêðàñèòü êëåòêè ïîä çàêðàøåííûìè');<br>
|
|
<span lang="ru"> </span>n:=Random(4)+7;<br>
|
|
<span lang="ru"> </span>Field(n,4);<br>
|
|
<span lang="ru"> </span>RobotBeginEnd(1,3,n,3);<br>
|
|
<span lang="ru"> </span>MarkPainted(n,2);<br>
|
|
<span lang="ru"> </span>Tag(n,3);<br>
|
|
<span lang="ru"> </span><b>for</b> i:=2 <b>to</b> n-1 <b>do</b><br>
|
|
<span lang="ru"> </span><b>if</b> Random(3)=1 <b>then</b><br>
|
|
<span lang="ru"> </span><b>begin</b><br>
|
|
<span lang="ru"> </span>MarkPainted(i,2);<br>
|
|
<span lang="ru"> </span>Tag(i,3);<br>
|
|
<span lang="ru"> </span><b>end</b>;<br>
|
|
<b>end</b>;</code></p>
|
|
</blockquote>
|
|
<p>Äîáàâèì âûçîâ ïðîöåäóðû ðåãèñòðàöèè äëÿ äàííîãî çàäàíèÿ; â ðåçóëüòàòå ñåêöèÿ èíèöèàëèçàöèè ïðèìåò ñëåäóþùèé âèä:</p>
|
|
<blockquote>
|
|
<p><code><b>begin</b><br>
|
|
RegisterGroup('myrob','Ìîè çàäàíèÿ äëÿ Ðîáîòà','RobTasks',2);<br>
|
|
RegisterTask('myrob1',FirstRob);<br>
|
|
RegisterTask('myrob2',SecondRob);<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p><span lang="ru">Èçìåíèì îñíîâíóþ ïðîãðàììó:</span></p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> Robot, RobTasks;<br>
|
|
<b>begin</b><br>
|
|
Task('myrob<span lang="ru">2</span>');<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p><span lang="ru">Ïðè çàïóñêå ýòîé ïðîãðàììû â îêíå èñïîëíèòåëÿ Ðîáîò áóäåò âûâåäåíî íîâîå çàäàíèå:</p>
|
|
<p><img border="0" src="images/rbmake2.PNG"></p>
|
|
<p>
|
|
Ïðè ïåðâîì çàïóñêå ïðîãðàììû ñ ïîäêëþ÷åííûì ìîäóëåì <code>DMTasks</code> ñîçäàííàÿ íàìè ãðóïïà áûëà àâòîìàòè÷åñêè çàðåãèñòðèðîâàíà
|
|
â ìàñòåðå ïî ñîçäàíèþ ïðîãðàìì-çàãîòîâîê <b>PT4Load</b>.
|
|
Åñëè òåïåðü íàæàòü êíîïêó <img border="0" src="images/load.gif" width="16" height="17"> è â ïîÿâèâøåìñÿ îêíå
|
|
<b>PT4Load</b> ââåñòè ïðåôèêñ
|
|
</span><span lang="en-us"><code>RB</code></span><span lang="ru"> â ïîëå «Çàäàíèå», òî îêíî ïðèìåò ñëåäóþùèé âèä:
|
|
</span></p>
|
|
|
|
<p><img border="0" src="images/rbmake3.PNG">
|
|
</p>
|
|
<p>Ìû âèäèì, ÷òî ãðóïïà çàäàíèé myrob ïîÿâèëàñü â ñïèñêå äîñòóïíûõ ãðóïï äëÿ èñïîëíèòåëÿ Ðîáîò. Íàáåðåì èìÿ çàäàíèÿ
|
|
<span lang="en-us"><code>myrob1</code></span>:</p>
|
|
<p><img border="0" src="images/rbmake4.PNG">
|
|
</p>
|
|
<p>Ïîñëå íàæàòèÿ <span lang="en-us">Enter </span>â ðàáî÷åì êàòàëîãå áóäåò ñîçäàí
|
|
íîâûé ôàéë <span lang="en-us">RBmyrob1.pas </span>ñî ñëåäóþùèì ñîäåðæèìûì:</p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> Robot, RobTasks;<br>
|
|
<br>
|
|
<b>begin</b><br>
|
|
Task('myrob1');<br>
|
|
<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p>Ìîæíî ïðèñòóïàòü ê ðåøåíèþ ñîáñòâåííîðó÷íî ðàçðàáîòàííîé çàäà÷è :)</p>
|
|
</body>
|
|
|
|
</html>
|