- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
//Определение рангов узлов
NL1=NL2=0; int msKl1,kl1I1;
M6: NL1=NL1+NL2; FormMS(NL1,MS); K9=NO-NL1; KSS=32767*32767*2;
for(J=2;J<=K9;J++)
{KS[J]=KU1[J]*(KU1[J]-1)/2;
if(KS[J] != 0)
{L6=KU2[J-1]+1; L8=KU2[J]; L7=L8-1;
for(I1=L6;I1<=L7;I1++)
{II2=I1+1; kl1I1=KL1[I1];
for(I2=II2;I2<=L8;I2++)
{msKl1=MS[KL1[I2]];
L61=KU2[msKl1-1]+1; L71=KU2[msKl1];
for(L=L61;L<=L71;L++)
{if(KL1[L] != kl1I1)goto M10;
else { KS[J]--; goto M9;}
M10:;}
M9:;}
}
}
if(KS[J] < KSS) KSS=KS[J];
}
//=================
куски кода какой-то очень древней расчетной программы. Радует форматирование
bormand 01.03.2013 09:04 # +10
goto m10 = continue
goto m9 = break
absolut 01.03.2013 09:23 # +1
guest 01.03.2013 09:29 # 0
absolut 01.03.2013 09:54 # +1
bormand 01.03.2013 10:39 # +2
TarasB 01.03.2013 11:59 # +1
Dummy00001 01.03.2013 15:22 # 0
меня сильно не удивляет. тогда мониторы с разрешением 800х600 были high-end. а до этого - графический режим (с цветами!!!) был high-end-ом. вместить кусок логики на ~20 строк текстового экрана было своим отдельным искусством (и извращением которым все страдали).
Psionic 04.03.2013 02:14 # +1