Бауыржан » 20 фев 2009, 04:49
Код: Выделить всё
10 CLS : FILES: LINE INPUT "VVEDITE IMYA"; A1$: IF A1$ = "" GOTO 10
20 OPEN "I", #1, A1$
30 INPUT #1, J1, I1
40 DIM A$(I1), B$(J1), A(I1, J1), F(I1, 15), CO(I1), AO(I1), X(15, 16)
50 FOR I = 1 TO I1: LINE INPUT #1, A$(I): NEXT I
60 FOR J = 1 TO J1: LINE INPUT #1, B$(J): NEXT J
70 FOR J = 1 TO J1: FOR I = 1 TO I1: INPUT #1, A(I, J): NEXT I, J: CLOSE
80 CLS : LOCATE 2: PRINT "NAIBOLSHIINOMER STOLBCA="; J1
90 LOCATE 3: PRINT "NAIBOLSHII NOMER STROKI="; I1
100 INPUT "VVEDITE NAIBOLSHII NOMER LIKVIDIRUEMOI STROKI", G
110 IF G < 1 OR G > I1 - 1 THEN 180
120 PRINT "LIKVIDIRUEMAYA STROKA"; A$(G)
130 FOR J = 0 TO J1
140 FOR I = G TO I1 - 1
150 A(I, J) = A(I + 1, J)
160 NEXT I, J
170 GOTO 100
180 INPUT "VVEDITE CHISLO STROK", Q
190 CLS : INPUT "VVEDITE CHISLO KOEFFICIENTOV URAVNENIYA REGRESSII (NE BOLEE 15)", N
200 IF N > 2 THEN 310
210 PRINT "N1="; N1
220 INPUT "VVEDITE NOMER STOLBCA VHODNOI VELICHINI", A2$
230 IF A2$ = "" THEN 250
240 N1 = VAL(A2$)
250 PRINT "N2="; N2
260 INPUT "VVEDITE NOMER STOLBCA VIHODNOI VELICHINI", A3$
270 IF A3$ = "" THEN 310
280 N2 = VAL(A3$)
290 PRINT "VHODNAYA VELICHINA"; B$(N1)
300 PRINT "VIHODNAYA VELICHINA"; B$(N2)
310 INPUT "VVEDITE Z", Z
320 FOR I = 1 TO N
330 FOR J = 1 TO N + 1
340 X(I, J) = 0
350 NEXT J, I
360 FOR I = 1 TO Q
370 F(I, 15) = A(I, 2)
380 F(I, 1) = A(I, 1)
390 F(I, 2) = A(I, 1) ^ 2
400 F(I, 3) = A(I, 1) ^ Z
ошибка приходится на 370 строку: индекс вне диапазона
[code]
10 CLS : FILES: LINE INPUT "VVEDITE IMYA"; A1$: IF A1$ = "" GOTO 10
20 OPEN "I", #1, A1$
30 INPUT #1, J1, I1
40 DIM A$(I1), B$(J1), A(I1, J1), F(I1, 15), CO(I1), AO(I1), X(15, 16)
50 FOR I = 1 TO I1: LINE INPUT #1, A$(I): NEXT I
60 FOR J = 1 TO J1: LINE INPUT #1, B$(J): NEXT J
70 FOR J = 1 TO J1: FOR I = 1 TO I1: INPUT #1, A(I, J): NEXT I, J: CLOSE
80 CLS : LOCATE 2: PRINT "NAIBOLSHIINOMER STOLBCA="; J1
90 LOCATE 3: PRINT "NAIBOLSHII NOMER STROKI="; I1
100 INPUT "VVEDITE NAIBOLSHII NOMER LIKVIDIRUEMOI STROKI", G
110 IF G < 1 OR G > I1 - 1 THEN 180
120 PRINT "LIKVIDIRUEMAYA STROKA"; A$(G)
130 FOR J = 0 TO J1
140 FOR I = G TO I1 - 1
150 A(I, J) = A(I + 1, J)
160 NEXT I, J
170 GOTO 100
180 INPUT "VVEDITE CHISLO STROK", Q
190 CLS : INPUT "VVEDITE CHISLO KOEFFICIENTOV URAVNENIYA REGRESSII (NE BOLEE 15)", N
200 IF N > 2 THEN 310
210 PRINT "N1="; N1
220 INPUT "VVEDITE NOMER STOLBCA VHODNOI VELICHINI", A2$
230 IF A2$ = "" THEN 250
240 N1 = VAL(A2$)
250 PRINT "N2="; N2
260 INPUT "VVEDITE NOMER STOLBCA VIHODNOI VELICHINI", A3$
270 IF A3$ = "" THEN 310
280 N2 = VAL(A3$)
290 PRINT "VHODNAYA VELICHINA"; B$(N1)
300 PRINT "VIHODNAYA VELICHINA"; B$(N2)
310 INPUT "VVEDITE Z", Z
320 FOR I = 1 TO N
330 FOR J = 1 TO N + 1
340 X(I, J) = 0
350 NEXT J, I
360 FOR I = 1 TO Q
370 F(I, 15) = A(I, 2)
380 F(I, 1) = A(I, 1)
390 F(I, 2) = A(I, 1) ^ 2
400 F(I, 3) = A(I, 1) ^ Z
[/code]
ошибка приходится на 370 строку: индекс вне диапазона