Procedure Stavsel1(PERCEN:simple; ZAKCIS:longint); var ii :longint; Pod :array[1..10000] of longint; begin POD[ 1]:=ZAKCIS+ 24; POD[ 2]:=ZAKCIS+ 27; POD[ 3]:=ZAKCIS+ 30; POD[ 4]:=ZAKCIS+ 31; POD[ 5]:=ZAKCIS+ 35; POD[ 6]:=ZAKCIS+ 36; POD[ 7]:=ZAKCIS+ 40; POD[ 8]:=ZAKCIS+ 41; POD[ 9]:=ZAKCIS+ 42; POD[ 10]:=ZAKCIS+ 47; POD[ 11]:=ZAKCIS+ 48; POD[ 12]:=ZAKCIS+ 49; POD[ 13]:=ZAKCIS+ 54; POD[ 14]:=ZAKCIS+ 55; POD[ 15]:=ZAKCIS+ 56; POD[ 16]:=ZAKCIS+ 57; POD[ 17]:=ZAKCIS+ 58; POD[ 18]:=ZAKCIS+ 59; POD[ 19]:=ZAKCIS+ 60; POD[ 20]:=ZAKCIS+ 61; POD[ 21]:=ZAKCIS+ 62; POD[ 22]:=ZAKCIS+ 63; POD[ 23]:=ZAKCIS+ 64; POD[ 24]:=ZAKCIS+ 65; POD[ 25]:=ZAKCIS+ 66; POD[ 26]:=ZAKCIS+ 67; POD[ 27]:=ZAKCIS+ 68; POD[ 28]:=ZAKCIS+ 69; POD[ 29]:=ZAKCIS+ 70; POD[ 30]:=ZAKCIS+ 71; POD[ 31]:=ZAKCIS+ 72; POD[ 32]:=ZAKCIS+ 73; POD[ 33]:=ZAKCIS+ 74; POD[ 34]:=ZAKCIS+ 75; POD[ 35]:=ZAKCIS+ 76; POD[ 36]:=ZAKCIS+ 77; POD[ 37]:=ZAKCIS+ 78; POD[ 38]:=ZAKCIS+ 79; POD[ 39]:=ZAKCIS+ 80; POD[ 40]:=ZAKCIS+ 81; POD[ 41]:=ZAKCIS+ 82; POD[ 42]:=ZAKCIS+ 83; POD[ 43]:=ZAKCIS+ 84; POD[ 44]:=ZAKCIS+ 85; POD[ 45]:=ZAKCIS+ 86; POD[ 46]:=ZAKCIS+ 87; POD[ 47]:=ZAKCIS+ 88; POD[ 48]:=ZAKCIS+ 89; POD[ 49]:=ZAKCIS+ 90; POD[ 50]:=ZAKCIS+ 91; POD[ 51]:=ZAKCIS+ 92; POD[ 52]:=ZAKCIS+ 93; POD[ 53]:=ZAKCIS+ 94; POD[ 54]:=ZAKCIS+ 95; POD[ 55]:=ZAKCIS+ 96; POD[ 56]:=ZAKCIS+ 97; POD[ 57]:=ZAKCIS+ 98; POD[ 58]:=ZAKCIS+ 99; POD[ 59]:=ZAKCIS+ 100; POD[ 60]:=ZAKCIS+ 101; POD[ 61]:=ZAKCIS+ 102; POD[ 62]:=ZAKCIS+ 103; POD[ 63]:=ZAKCIS+ 104; POD[ 64]:=ZAKCIS+ 105; POD[ 65]:=ZAKCIS+ 106; POD[ 66]:=ZAKCIS+ 133; POD[ 67]:=ZAKCIS+ 134; POD[ 68]:=ZAKCIS+ 136; POD[ 69]:=ZAKCIS+ 137; POD[ 80]:=ZAKCIS+ 148; POD[ 81]:=ZAKCIS+ 149; POD[ 82]:=ZAKCIS+ 167; POD[ 83]:=ZAKCIS+ 168; POD[ 84]:=ZAKCIS+ 169; POD[ 85]:=ZAKCIS+ 170; POD[ 86]:=ZAKCIS+ 171; POD[ 87]:=ZAKCIS+ 172; POD[ 88]:=ZAKCIS+ 173; POD[ 89]:=ZAKCIS+ 174; POD[ 90]:=ZAKCIS+ 175; POD[ 91]:=ZAKCIS+ 179; POD[ 92]:=ZAKCIS+ 180; POD[ 93]:=ZAKCIS+ 181; POD[ 94]:=ZAKCIS+ 182; POD[ 95]:=ZAKCIS+ 183; POD[ 96]:=ZAKCIS+ 184; POCET:=96; for II:=1 to POCET do // uprava suradnic vyselektovanych uzlov (zuzenie stavca) begin NU:=POD(II); // ! Cislo noveho uzla NINC(NU,ZAKCIS+2,NU,PERCEN); end; end; // Stavsel1