(Antb)

Ресей

МҮШЕСІ («ANT»)

! БАСЫ АЕМ

S ТӘРТІБІ

М GROUP

M1 REAL, DIM (79,14)! T17

М.К. REAL, DIM (8,14)

MG REAL, DIM (350,14).

CODE

CLEAR (M)

БУФЕРІ (ӨСК 0,9)

SET (ӨСК)

LOOP EOF дейін (ӨСК)

NEXT (ӨСК)

CLEAR (T17: RECORD)

T17: PNOMBER=ӨСК: PNOMBER

(T17, T17: C) GET

~ ErrorCode (), егер

M1 [ӨСК: NREGION, 1] +=T17: F001/1000 MG [ӨСК: NCITY, 1] +=T17: F001/1000 M1 [ӨСК: NREGION, 2] +=T17: F004/1000 MG [ӨСК: NCITY, 2] +=T17: F004/1000 M1 [ӨСК: NREGION, 3] +=T17: F010/1000 MG [ӨСК: NCITY, 3] +=T17: F010/1000

T17 IF: F018> 0

THEN

M1 [ӨСК: NREGION, 4] +=T17: F018/1000 MG [ӨСК: NCITY, 4] +=T17: F018/1000

ELSE

T17 IF: F020> 0

M1 [ӨСК: NREGION, 4] -=T17: F020/1000

MG [ӨСК: NCITY, 4] -=T17: F020/1000 ...

CLEAR (T67: RECORD)

T67: PNOMBER=ӨСК: PNOMBER

(T67, T67: C) GET

~ ErrorCode (), егер

M1 [ӨСК: NREGION, 5] +=T67: A400N/1000

MG [ӨСК: NCITY, 5] +=T67: A400N/1000

M1 [ӨСК: NREGION, 6] +=T67: A400K/1000 MG [ӨСК: NCITY, 6] +=T67: A400K/1000 M1 [ӨСК: NREGION, 7] +=T67: A495N/1000 MG [ӨСК: NCITY, 7] +=T67: A495N/1000 M1 [ӨСК: NREGION, 8] +=T67: A495K/1000 MG [ӨСК: NCITY, 8] +=T67: A495K/1000.

CLEAR (F92: RECORD)

F92: PNOMBER=ӨСК: PNOMBER

: (FC F92, F92) GET

~ ErrorCode (), егер

M1 [ӨСК: NREGION, 9] +=F92: F1/1000 MG [ӨСК: NCITY, 9] +=F92: F1/1000 M1 [ӨСК: NREGION, 10] +=F92: F7/1000 MG [ӨСК: NCITY, 10] +=F92: F7/1000 M1 [ӨСК: NREGION, 11] +=F92: F10/1000 MG [ӨСК: NCITY, 11] +=F92: F10/1000

IF F92: F19> 0

THEN

M1 [ӨСК: NREGION, 12] +=F92: F19/1000 MG [ӨСК: NCITY, 12] +=F92: F19/1000

ELSE

IF F92: F21> 0

M1 [ӨСК: NREGION, 12] -=F92: F21/1000

MG [ӨСК: NCITY, 12] -=F92: F21/1000 ...

CLEAR (SVV: RECORD)

SVV: PNOM=ӨСК: PNOMBER

SVV: KZ=2

GET (SVV, SVV: K)

~ ErrorCode (), егер

M1 [ӨСК: NREGION, 13] +=SVV: CR2

MG [ӨСК: NCITY, 13] +=SVV: CR2.

CLEAR (DF: RECORD)

DF: PNOMBER=ӨСК: PNOMBER

GET (DF, DF: C)

~ ErrorCode (), егер

M1 [ӨСК: NREGION, 14] +=DF: S750N MG [ӨСК: NCITY, 14] +=DF: S750N

.

.

LOOP N #=24 мен 31

TER: КОДТ=N #

SET (TER: K, TER: K)

EOF (TERR)

ДЕЙІН LOOP

NEXT (TERR)

TER IF: КОДТ <> N # одан кейін АРЫЛУҒА

.

LOOP M #=1-ден 14 MK [N # -23, М #] +=M1 [TER: NREGION, M #] ...

LOOP I #=1 8

F: NKUST=I # + 23

F: F1=MK [I # 5]

F: F2=MK [I # 6]

F: F3=MK [I # 7]

F: F4=MK [I # 8]

F: F5=MK [I # 12]

F: F6=MK [I # 4]

F: F9=MK [I # 10]

F: F10=MK [I # 2]

F: F11=MK [I # 9]

F: F12=MK [I # 1]

F: F13=MK [I # 11]

F: F14=MK [I # 3]

F: F15=MK [I # 13]

F: F16=MK [I # 14]

(F) қосыңыз.

LOOP I #=1 79

F: NKUST=0

F: NREGION=I #

F: F1=M1 [I # 5]

F: F2=M1 [I # 6]

F: F3=M1 [I # 7]

F: F4=M1 [I # 8]

F: F5=M1 [I # 12]

F: F6=M1 [I # 4]

F: F9=M1 [I # 10]

F: F10=M1 [I # 2]

F: F11=M1 [I # 9]

F: F12=M1 [I # 1]

F: F13=M1 [I # 11]

F: F14=M1 [I # 3]

F: F15=M1 [I # 13]

F: F16=M1 [I # 14]

(F) қосыңыз.

LOOP I #=1 350

F: NKUST=0

F: NREGION=0

F: Ngor=I #

F: F1=MG [I # 5]

F: F2=MG [I # 6]

F: F3=MG [I # 7]

F: ...




бет 1 - 69 | алға

  • 1000 МВт ЖЭС
  • Электр IES-1000 жобалау
  • Ыдыс жуғышта түрі MMU-1000
  • 1000 схемасы Цех ішіндегі электр
  • 1000 мал фермасы кеңістіктер үшін дизайн