WWW.DISSERS.RU

    !


Pages:     | 1 |   ...   | 5 | 6 ||
----------------------------STOP---------------------------- ITERAPRESS 2500 ************************************************************* r = 2# Eps =.05# OPEN "itera_p.res" FOR OUTPUT AS #CLS PRINT #1, "-----------------------------------------------------------" PRINT #1, " X1,X3 X2(K1) X2(K2) X2(K3) " PRINT " X1,X3 X2(K1) X2(K2) X2(K3) " PRINT #1, "-----------------------------------------------------------" PRINT "-----------------------------------------------------------" FOR m% = 1 TO X1 = 50# + (m% 1) * DeltaX X3 = 50# + (m% 1) * DeltaX X2K1 = 50#: X2K2 = 50#: X2K3 = 50#: Ip% = DO A1 = 7.65# / X1 ^ 4 + 970# / X2K1 ^ 4 + 13.7# / X3 ^ B1 =.48# / X1 ^ 4 + 22.6# / X2K1 ^ 4 +.535# / X3 ^ K1 = 4750# * A1 / B1 / X1 ^ A2 = 7.65# / X1 ^ 4 + 970# / X2K2 ^ 4 + 13.7# / X3 ^ B2 =.48# / X1 ^ 4 + 22.6# / X2K2 ^ 4 +.535# / X3 ^ K2 = 1385# / X2K2 ^ 2 + 2000000# / X2K2 ^ 3 46500# * A2 / B2 / X2K2 ^ A3 = 7.65# / X1 ^ 4 + 970# / X2K3 ^ 4 + 13.7# / X3 ^ B3 =.48# / X1 ^ 4 + 22.6# / X2K3 ^ 4 +.535# / X3 ^ K3 = 8200# * A3 / B3 / X3 ^ 3 17600# / X3 ^ 3 IF ABS(K1 1#) <= Eps AND ABS(K2 1#) <= Eps AND ABS(K3 1#) <= Eps THEN EXIT DO X2K1 = X2K1 + X2K1 * (K1 1#) / r X2K2 = X2K2 + X2K2 * (K2 1#) / r X2K3 = X2K3 + X2K3 * (K3 1#) / r Ip% = Ip% + IF Ip% > 49 THEN EXIT DO LOOP PRINT #1, USING "#########.## "; X1; X2K1; X2K2; X2K3; Ip% PRINT USING "#########.## "; X1; X2K1; X2K2; X2K3; Ip% NEXT m% END FLEXIPRESS ( ) ************************************************************* DECLARE SUB FEAS () DECLARE SUB STAR () DECLARE SUB WRIT () DECLARE SUB SUMR () DECLARE SUB PROB (INQ!) DIM SHARED X#(50), X1#(50, 50), X2#(50, 50), R#(100), R1#(100), R2#(100), R3#(100), SUM#(50), F#(50), SR#(50), ROLD#(100), H#(50), FLG#(10), A#(50, 50) COMMON SHARED NX, NC, NIC, STEP0#, ALFA#, BETA#, GAMA#, IN, INF, FDIFER#, SEQL#, K1, K2, K3, K4, K5, K6, K7, K8, K9, FOLD#, L5, L6, L7, L8, L9, R1A#, R2A#, R3A# OPEN "flexi press.res" FOR OUTPUT AS #PRINT #1, " " PRINT "-----------------------------------------------------------" PRINT #1, " ------------------------------------------------------------" FDIFER# = 1# NX = NC = NIC = SIZE# =.3# CONVER# =.00001# ALFA# = 1# BETA# =.5# GAMA# = 2# 10 STEP0# = SIZE# X#(1) = 1# X#(2) = 1# IF FDIFER# < CONVER# THEN GOTO PRINT " <<<<< *HAAO BCEH* >>>>>" PRINT #1, " <<<<< *HAAO BCEH* >>>>>" PRINT "-----------------------------------------------------------" PRINT #1, " ------------------------------------------------------------" PRINT " OEE CO EPEMEHHX: "; NX PRINT #1, " OEE CO EPEMEHHX: "; NX PRINT " OEE CO OPAHEH B BE: 1).PABEHCTB :

"; NC PRINT #1, " OEE CO OPAHEH B BE:

1).PABEHCTB : "; NC PRINT " 2).HEPABEHCTB: "; NIC PRINT #1, " 2).HEPABEHCTB: "; NIC PRINT " BE.OPE.PAMEP EOPM.MHOOPAHHKA: ";

SIZE# PRINT #1, " BE.OPE.PAMEP EOPM.MHOOPAHHKA:

"; SIZE# PRINT " CO OPE.OKOHAHE OCKA: "; CONVER# PRINT #1, " CO OPE.OKOHAHE OCKA: "; CONVER# K1 = NX + K2 = NX + K3 = NX + K4 = NX + K5 = NX + K6 = NC + NIC K7 = NC + K8 = NC + NIC K9 = K8 + N = NX NC N1 = N + IF N1 >= 3 THEN GOTO N1 = N = 50 N2 = N + N3 = N + N4 = N + N5 = N + N6 = N + N7 = N + N8 = N + XN = N XNX = NX XN1 = NR1A# =.5# * (SQR(5#) 1#) R2A# = R1A# * R1A# R3A# = R2A# * R1A# L5 = NX + L6 = NX + L7 = NX + L8 = NX + L9 = NX + ICONT = NCONT = PRINT " HAAO KECKX BCEH" PRINT #1, " HAAO KECKX BCEH" FOR J = 1 TO NX PRINT " X("; J; ") = "; X#(J) PRINT #1, " X("; J; ") = "; X#(J) NEXT J FDIFER# = 2# * (NC + 1) * STEP0# FOLD# = FDIFER# IN = NCALL SUMR SR#(N1) = SQR(SEQL#) PRINT " FDIFER ="; FDIFER#, " SR(N1) ="; SR#(N1) PRINT #1, " FDIFER ="; FDIFER#, " SR(N1) ="; SR#(N1) IF SR#(N1) < FDIFER# THEN GOTO CALL WRIT INF = NSTEP0# =.05# * FDIFER# CALL FEAS PRINT " SR(INF) ="; SR#(INF) PRINT #1, " SR(INF) ="; SR#(INF) IF FOLD# < 1E-09 THEN GOTO 341 PRINT "--------------------------------------------------------------------------" PRINT #1, "-----------------------------------------------------------------------------------------" PRINT " HOMEP CETA:"; ICONT, " FDIFER ="; FDIFER# PRINT #1, " HOMEP CETA:"; ICONT, "FDIFER ="; FDIFER# CALL WRIT FTER# = R#(K9) 237 STEP1# = STEP0# * (SQR(XNX + 1#) + XNX 1#) / (XNX * SQR(2#)) STEP2# = STEP0# * (SQR(XNX + 1#) 1#) / (XNX * SQR(2#)) ETA# = (STEP1# + (XNX 1#) * STEP2#) / (XNX + 1#) FOR J = 1 TO NX X#(J) = X#(J) ETA# NEXT J 4 CALL STAR FOR I = 1 TO NFOR J = 1 TO NX X2#(I, J) = X1#(I, J) NEXT J NEXT I 9 FOR I = 1 TO NIN = I FOR J = 1 TO NX X#(J) = X2#(I, J) NEXT J CALL SUMR SR#(I) = SQR(SEQL#) IF SR#(I) < FDIFER# THEN GOTO CALL FEAS IF FOLD# < 1E-09 THEN GOTO 8 CALL PROB(3) F#(I) = R#(K9) 5 NEXT I 1000 STEP0# =.05# * FDIFER# ICONT = ICONT + FH# = F#(1) LHIGH = FOR I = 2 TO NIF F#(I) < FH# THEN GOTO FH# = F#(I)LHIGH = I 166 NEXT I 41 FL# = F#(1) LOW = FOR I = 2 TO NIF FL# < F#(I) THEN GOTO FL# = F#(I) LOW = I 177 NEXT I 17 FOR J = 1 TO NX 86 X#(J) = X2#(LOW, J) NEXT J IN = LOW CALL SUMR SR#(LOW) = SQR(SEQL#) IF SR#(LOW) < FDIFER# THEN GOTO INF = LOW CALL FEAS IF FOLD# < 1E-09 THEN GOTO CALL PROB(3) F#(LOW) = R#(K9) GOTO 87 FOR J = 1 TO NX SUM2# = 0# FOR I = 1 TO N20 SUM2# = SUM2# + X2#(I, J) NEXT I 19 X2#(N2, J) = 1# / XN * (SUM2# X2#(LHIGH, J)) NEXT J SUM2# = 0# FOR I = 1 TO NFOR J = 1 TO NX SUM2# = SUM2# + (X2#(I, J) X2#(N2, J)) ^ NEXT J NEXT I 36 FDIFER# = (NC + 1) / XN1 * SQR(SUM2#) IF FDIFER# < FOLD# THEN GOTO FDIFER# = FOLD# GOTO 98 FOLD# = FDIFER# 198 FTER# = F#(LOW) PRINT "------------", FDIFER# ' 137 NCONT = NCONT + IF NCONT < 4 * N1 THEN GOTO IF ICONT < 1500 THEN GOTO FOLD# =.5# * FOLD# 337 NCONT = PRINT "-----------------------------------------------------------------------------------------" PRINT #1, "-----------------------------------------------------------------------------------------" PRINT " HOMEP CETA:"; ICONT, " FDIFER ="; FDIFER# PRINT #1, " HOMEP CETA:"; ICONT, "FDIFER ="; FDIFER# CALL WRIT 37 IF FDIFER# < CONVER# THEN GOTO IF LHIGH = 1 THEN GOTO FS# = F#(1) LSEC = GOTO 43 FS# = F#(2) LSEC = 44 FOR I = 1 TO NIF LHIGH = I THEN GOTO IF F#(I) < FS# THEN GOTO FS# = F#(I) LSEC = I 18 NEXT I FOR J = 1 TO NX X2#(N3, J) = X2#(N2, J) + ALFA# * (X2#(N2, J) X2#(LHIGH, J)) 61 X#(J) = X2#(N3, J) NEXT J IN = NCALL SUMR SR#(N3) = SQR(SEQL#) 89 IF SR#(N3) < FDIFER# THEN GOTO INF = NCALL FEAS IF FOLD# < 1E-09 THEN GOTO 82 CALL PROB(3) F#(N3) = R#(K9) IF F#(N3) < F#(LOW) THEN GOTO IF F#(N3) < F#(LSEC) THEN GOTO GOTO 92 FOR J = 1 TO NX 93 X2#(LHIGH, J) = X2#(N3, J) NEXT J SR#(LHIGH) = SR#(N3) F#(LHIGH) = F#(N3) GOTO 84 FOR J = 1 TO NX X2#(N4, J) = X2#(N2, J) + GAMA# * (X2#(N3, J) X2#(N2, J)) 23 X#(J) = X2#(N4, J) NEXT J IN = NCALL SUMR SR#(N4) = SQR(SEQL#) IF SR#(N4) < FDIFER# THEN GOTO INF = NCALL FEAS IF FOLD# < 1E-09 THEN GOTO 25 CALL PROB(3) F#(N4) = R#(K9) IF F#(LOW) < F#(N4) THEN GOTO FOR J = 1 TO NX X2#(LHIGH, J) = X2#(N4, J) NEXT J F#(LHIGH) = F#(N4) SR#(LHIGH) = SR#(N4) GOTO 60 IF F#(N3) > F#(LHIGH) THEN GOTO FOR J = 1 TO NX 65 X2#(LHIGH, J) = X2#(N3, J) NEXT J 64 FOR J = 1 TO NX X2#(N4, J) = BETA# * X2#(LHIGH, J) + (1# BETA#) * X2#(N2, J) 66 X#(J) = X2#(N4, J) NEXT J IN = NCALL SUMR SR#(N4) = SQR(SEQL#) IF SR#(N4) < FDIFER# THEN GOTO INF = NCALL FEAS IF FOLD# < 1E-09 THEN GOTO 67 CALL PROB(3) F#(N4) = R#(K9) IF F#(LHIGH) > F#(N4) THEN GOTO FOR J = 1 TO NX FOR I = 1 TO N69 X2#(I, J) =.5# * (X2#(I, J) + X2#(LOW, J)) NEXT I NEXT J FOR I = 1 TO NFOR J = 1 TO NX X#(J) = X2#(I, J) NEXT J IN = I CALL SUMR SR#(I) = SQR(SEQL#) IF SR#(I) < FDIFER# THEN GOTO INF = I CALL FEAS IF FOLD# < 1E-09 THEN GOTO 72 CALL PROB(3) 70 F#(I) = R#(K9) NEXT I GOTO 68 FOR J = 1 TO NX 73 X2#(LHIGH, J) = X2#(N4, J) NEXT J SR#(LHIGH) = SR#(N4) F#(LHIGH) = F#(N4) GOTO 81 PRINT "-----------------------------------------------------------------------------------------" PRINT #1, "-----------------------------------------------------------------------------------------" PRINT " HOMEP CETA:"; ICONT, " FDIFER ="; FDIFER# PRINT #1, " HOMEP CETA:"; ICONT, "FDIFER ="; FDIFER# CALL WRIT PRINT " HA" PRINT #1, " HA" GOTO 80 PRINT "-----------------------------------------------------------------------------------------" PRINT #1, "-----------------------------------------------------------------------------------------" PRINT " HOMEP CETA:"; ICONT, " FDIFER ="; FDIFER# PRINT #1, " HOMEP CETA:"; ICONT, "FDIFER ="; FDIFER# CALL WRIT PRINT " HET HAA" PRINT #1, " HET HAA" SOUND 1500, SLEEP GOTO 9999 PRINT "---------------------------STOP----------------------------" PRINT #1, " ----------------------------STOP----------------------------" SOUND 110, CLOSE END SUB FEAS ALFA# = 1#: BETA# =.5#: GAMA# = 2# XNX = NX ICONT = LCHEK = ICHEK = 250 CALL STAR FOR I = 1 TO KFOR J = 1 TO NX X#(J) = X1#(I, J) NEXT J IN = I CALL SUMR NEXT I 28 SUMH# = SUM#(1) INDEX = FOR I = 2 TO KIF SUM#(I) <= SUMH# THEN GOTO SUMH# = SUM#(I) INDEX = I 7 NEXT I SUML# = SUM#(1) KOUNT = FOR I = 2 TO KIF SUML# <= SUM#(I) THEN GOTO SUML# = SUM#(I) KOUNT = I 888 NEXT I FOR J = 1 TO NX SUM2# = 0# FOR I = 1 TO KSUM2# = SUM2# + X1#(I, J) NEXT I X1#(K2, J) = 1# / XNX * (SUM2# X1#(INDEX, J)) X1#(K3, J) = 2# * X1#(K2, J) X1#(INDEX, J) X#(J) = X1#(K3, J) NEXT J IN = KCALL SUMR IF SUM#(K3) < SUML# THEN GOTO IF INDEX = 1 THEN GOTO SUMS# = SUM#(1) GOTO 38 SUMS# = SUM#(2) 39 FOR I = 1 TO KIF (INDEX I) = 0 THEN GOTO IF SUM#(I) <= SUMS# THEN GOTO SUMS# = SUM#(I) 12 NEXT I IF SUM#(K3) > SUMS# THEN GOTO GOTO 11 FOR J = 1 TO NX X1#(K4, J) = X1#(K2, J) + 2# * (X1#(K3, J) X1#(K2, J)) 15 X#(J) = X1#(K4, J) NEXT J IN = KCALL SUMR IF SUM#(K4) < SUML# THEN GOTO GOTO 13 IF SUM#(K3) > SUMH# THEN GOTO FOR J = 1 TO NX X1#(INDEX, J) = X1#(K3, J) NEXT J 170 FOR J = 1 TO NX X1#(K4, J) =.5# * (X1#(INDEX, J) + X1#(K2, J)) X#(J) = X1#(K4, J) NEXT J IN = KCALL SUMR IF SUMH# > SUM#(K4) THEN GOTO FOR J = 1 TO NX FOR I = 1 TO KX1#(I, J) =.5# * (X1#(I, J) + X1#(KOUNT, J)) NEXT I NEXT J FOR I = 1 TO KFOR J = 1 TO NX 30 X#(J) = X1#(I, J) NEXT J IN = I CALL SUMR NEXT I 555 SUML# = SUM#(1) KOUNT = FOR I = 2 TO KIF SUML# < SUM#(I) THEN GOTO SUML# = SUM#(I) KOUNT = I 233 NEXT I SR#(INF) = SQR(SUM#(KOUNT)) FOR J = 1 TO NX 27 X#(J) = X1#(KOUNT, J) NEXT J GOTO 601 FOR J = 1 TO NX 31 X1#(INDEX, J) = X1#(K4, J) NEXT J SUM#(INDEX) = SUM#(K4) GOTO 16 FOR J = 1 TO NX X1#(INDEX, J) = X1#(K4, J) 21 X#(J) = X1#(INDEX, J) NEXT J SUM#(INDEX) = SUM#(K4) SR#(INF) = SQR(SUM#(K4)) GOTO 14 FOR J = 1 TO NX X1#(INDEX, J) = X1#(K3, J) 22 X#(J) = X1#(INDEX, J) NEXT J SUM#(INDEX) = SUM#(K3) SR#(INF) = SQR(SUM#(K3)) 26 ICONT = ICONT + FOR J = 1 TO NX X2#(INF, J) = X#(J) NEXT J IF ICONT < (2 * K1) THEN GOTO ICONT = FOR J = 1 TO NX 24 X#(J) = X1#(K2, J) NEXT J IN = KCALL SUMR DIFER# = 0# I = FOR I = 1 TO K57 DIFER# = DIFER# + (SUM#(I) SUM#(K2)) ^ NEXT I DIFER# = 1# / (K7 * XNX) * SQR(DIFER#) IF DIFER# > 1E-14 THEN GOTO 51 IN = KSTEP0# = 20# * FDIFER# CALL SUMR SR#(INF) = SQR(SEQL#) FOR J = 1 TO NX 52 X1#(K1, J) = X#(J) NEXT J FOR J = 1 TO NX FACTOR# = 1# X#(J) = X1#(K1, J) + FACTOR# * STEP0# X1#(L9, J) = X#(J) IN = LCALL SUMR X#(J) = X1#(K1, J) FACTOR# * STEP0# X1#(L5, J) = X#(J) IN = LCALL SUMR 56 IF SUM#(L9) < SUM#(K1) THEN GOTO IF SUM#(L5) < SUM#(K1) THEN GOTO GOTO 54 X1#(L5, J) = X1#(K1, J) SUM#(L5) = SUM#(K1) X1#(K1, J) = X1#(L9, J) SUM#(K1) = SUM#(L9) FACTOR# = FACTOR# + 1# X#(J) = X1#(K1, J) + FACTOR# * STEP0# IN = LCALL SUMR GOTO 55 X1#(L9, J) = X1#(K1, J) SUM#(L9) = SUM#(K1) X1#(K1, J) = X1#(L5, J) SUM#(K1) = SUM#(L5) FACTOR# = FACTOR# + 1# X#(J) = X1#(K1, J) FACTOR# * STEP0# IN = LCALL SUMR GOTO 97 H#(J) = X1#(L9, J) X1#(L5, J) X1#(L6, J) = X1#(L5, J) + H#(J) * R1A# X#(J) = X1#(L6, J) IN = LCALL SUMR X1#(L7, J) = X1#(L5, J) + H#(J) * R2A# X#(J) = X1#(L7, J) IN = LCALL SUMR IF SUM#(L6) > SUM#(L7) THEN GOTO X1#(L8, J) = X1#(L5, J) + (1# R3A#) * H#(J) X1#(L5, J) = X1#(L7, J) X#(J) = X1#(L8, J) IN = LCALL SUMR IF SUM#(L8) > SUM#(L6) THEN GOTO X1#(L5, J) = X1#(L6, J) SUM#(L5) = SUM#(L6) GOTO 76 X1#(L9, J) = X1#(L8, J) SUM#(L9) = SUM#(L8) GOTO 688 X1#(L9, J) = X1#(L6, J) X1#(L8, J) = X1#(L5, J) + R3A# * H#(J) X#(J) = X1#(L8, J) IN = LCALL SUMR STEP0# = SIZE# SUM#(L9) = SUM#(L6) IF SUM#(L7) > SUM#(L8) THEN GOTO X1#(L5, J) = X1#(L8, J) SUM#(L5) = SUM#(L8) GOTO 71 X1#(L9, J) = X1#(L7, J) SUM#(L9) = SUM#(L7) 75 IF ABS(X1#(L9, J) X1#(L5, J)) >.01# * FDIFER# THEN GOTO X1#(K1, J) = X1#(L7, J) X#(J) = X1#(L7, J) SUM#(K1) = SUM#(L5) SR#(INF) = SQR(SUM#(K1)) IF SR#(INF) < FDIFER# THEN GOTO 53 NEXT J ICHEK = ICHEK + STEP0# = FDIFER# IF ICHEK <= 2 THEN GOTO FOLD# = 1E-PRINT " OPOPAMMA FEAS" PRINT #1, " OPOPAMMA FEAS" FOR J = 1 TO NX PRINT X#(J) NEXT J PRINT " FDIFER ="; FDIFER#, " SR(INF) ="; SR#(INF) GOTO 760 J = FOR J = 1 TO NX X2#(INF, J) = X1#(K1, J) 761 X#(J) = X1#(K1, J) NEXT J 500 IF SR#(INF) > FDIFER# THEN GOTO IF SR#(INF) > 0# THEN GOTO CALL PROB(3) FINT# = R#(K9) FOR J = 1 TO NX 139 X#(J) = X2#(INF, J) NEXT J CALL PROB(2) FOR J = K7 TO K40 R1#(J) = R#(J) NEXT J FOR J = 1 TO NX X#(J) = X1#(KOUNT, J) NEXT J CALL PROB(2) FOR J = K7 TO K42 R3#(J) = R#(J) NEXT J FOR J = 1 TO NX H#(J) = X1#(KOUNT, J) X2#(INF, J) X#(J) = X2#(INF, J) +.5# * H#(J) NEXT J CALL PROB(2) FLG#(1) = 0# FLG#(2) = 0# FLG#(3) = 0# FOR J = K7 TO KIF R3#(J) >= 0 THEN GOTO FLG#(1) = FLG#(1) + R1#(J) * R1#(J) FLG#(2) = FLG#(2) + R#(J) * R#(J) FLG#(3) = FLG#(3) + R3#(J) * R3#(J) 404 NEXT J SR#(INF) = SQR(FLG#(1)) IF SR#(INF) < FDIFER# THEN GOTO ALFA1# = FLG#(1) 2# * FLG#(2) + FLG#(3) BETA1# = 3# * FLG#(1) 4# * FLG#(2) + FLG#(3) RATIO# = BETA1# / (4# * ALFA1#) FOR J = 1 TO NX 45 X#(J) = X2#(INF, J) + H#(J) * RATIO# NEXT J IN = INF CALL SUMR SR#(INF) = SQR(SEQL#) IF SR#(INF) < FDIFER# THEN GOTO FOR I = 1 TO FOR J = 1 TO NX 48 X#(J) = X#(J) .05# * H#(J) NEXT J CALL SUMR SR#(INF) = SQR(SEQL#) IF SR#(INF) < FDIFER# THEN GOTO 49 NEXT I 465 CALL PROB(3) IF FINT# > R#(K9) THEN GOTO SR#(INF) = 0# GOTO 46 FOR J = 1 TO NX 47 X2#(INF, J) = X#(J) NEXT J 35 FOR J = 1 TO NX 335 X#(J) = X2#(INF, J) NEXT J END SUB SUB PROB (INQ) IF INQ = 2 THEN GOTO IF INQ = 3 THEN GOTO R#(1) = 25# X#(1) ^ 2 X#(2) ^ GOTO 100 R#(2) = 10# * X#(1) X#(1) ^ 2 + 10# * X#(2) X#(2) ^ 2 34# R#(3) = X#(1) R#(4) = X#(2) GOTO 200 R#(5) = 4# * X#(1) X#(2) ^ 2 12# 300 END SUB END SUB SUB SUMR SUM#(IN) = 0# CALL PROB(2) SEQL# = 0# IF NIC = 0 THEN GOTO FOR J = K7 TO KIF R#(J) >= 0# THEN GOTO SEQL# = SEQL# + R#(J) * R#(J) 111 NEXT J 444 IF NC = 0 THEN GOTO CALL PROB(1) FOR J = 1 TO NC SEQL# = SEQL# + R#(J) * R#(J) NEXT J 313 SUM#(IN) = SEQL# END SUB SUB WRIT CALL PROB(3) PRINT " = "; R#(K9) FOR J = 1 TO NX PRINT " BEKTOP: X("; J; ") = "; X#(J) NEXT J IF NC = 0 THEN GOTO CALL PROB(1) FOR J = 1 TO NC PRINT " H("; J; "): "; R#(J) PRINT #1, " H("; J; "): "; R#(J) NEXT J 6 IF NIC = 0 THEN GOTO CALL PROB(2) FOR J = K7 TO KPRINT " G("; J; "): "; R#(J) PRINT #1, " G("; J; "): "; R#(J) NEXT J 503 END SUB .. 1. ר 1.1. , . 1.2. .. 1.3. .. 1.4. .. 2. . 2.1. ... 2.2. - 6300 . 1 .. 2.3. 2500 . 2 . 2.4. 1000 . 3 ... 3. ר - ... ... ...

Pages:     | 1 |   ...   | 5 | 6 ||






2011 www.dissers.ru -

, .
, , , , 1-2 .