QBasiс, масивы, NAS

[Бауыржан]

Здраствуйте, у меня такая проблема: массив формирутеся по данным, которые заранее должны набираться в файле данных NAS, в массиве получается 24 строки и 4 столбца. Прошу подскажите что за файл данных NAS, самостоятельно я ничего не нашел, набирал данные в txt файле, но из txt массив определяется неправильно, и программа до конца не считатет.

[Naeel Maqsudov]

Перенес в отдельную тему.

Глубоко убежден, что про NAS Вы что-то напутали... Уточните задание у преподавателя.
С txt-файлом можно разобраться.
Приведите тут исходный код программы, и давайте сделаем чтобы все читало как надо.

[Бауыржан]

http://www.rapidshare.ru ID файла: 933527, здесь есть сама прога набранная, txt файл с данными, и сканированные листы из книги, на 25 странице после таблицы написано: создадим файл данных NAS, в котором будет 24 строки и 4 столбца, вот.
Буду благодарен если поможете разобраться с txt файлом.
привожу ссылку, так как прога большая, займет много места. программа регресионного анализа.

[atavin-ta]

Давай часть, относящуюся непосредственно к загрузке данных из файла. NAS - это наверное такой формат. Ищи спецификацию, по ней можно будет разобраться.

[Бауыржан]

Код: Выделить всё

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 строку: индекс вне диапазона