Demolution
10-04-2011, 17:43
Здравствуйте.
Подскажите пожалуйста как разобраться с подгружаемым файлом в qbasic. Есть программка, выполнение лабораторной работы, она загружает файл с числами (одна строчка - одно число) но как файл разбивается (904 строки) никак не могу понять. Есть такой кусок кода:
120 N1=21 : N2=100
.......
825 OPEN Q$ FOR INPUT AS #1
845 COLOR 14,1
855 FOR I=0 TO N1-1 : INPUT #1,HR: HU(I)=HR : NEXT I
860 FOR I=0 TO N2 : INPUT #1,M2:Y1(I)=M2 : NEXT I
865 FOR I=0 TO N1-1 : INPUT #1,HR:HL(I)=HR : NEXT I
870 FOR I=0 TO N2 : INPUT #1,M2:Y2(I)=M2 : NEXT I
Здесь я так понимаю файл загоняется в память. Можно как то просмотреть что он загружает? Может есть какие то программы показывающие ресурсы?
Потом еще идет разбивка:
1021 GOSUB 500 :FOR I=0 TO N2 : V1(I)=Y1(I) : NEXT I
1022 FOR I=0 TO N2 : V2(I)=Y2(I) : NEXT I
1025 FOR I=0 TO N1-1 : HU(I)=HU(I) : NEXT I:M=(N1-1)/2
1027 FOR I=0 TO N1-1 : HL(I)=HL(I) : NEXT I
1030 GOSUB 1040 : INPUT A$ : IF A$="R" GOTO 1008
То что с 1 по 21 строчку отдается HU это я методом сравнения понял, а остальные строчки так и не разобрал. Подскажите пожалуйста.
Подскажите пожалуйста как разобраться с подгружаемым файлом в qbasic. Есть программка, выполнение лабораторной работы, она загружает файл с числами (одна строчка - одно число) но как файл разбивается (904 строки) никак не могу понять. Есть такой кусок кода:
120 N1=21 : N2=100
.......
825 OPEN Q$ FOR INPUT AS #1
845 COLOR 14,1
855 FOR I=0 TO N1-1 : INPUT #1,HR: HU(I)=HR : NEXT I
860 FOR I=0 TO N2 : INPUT #1,M2:Y1(I)=M2 : NEXT I
865 FOR I=0 TO N1-1 : INPUT #1,HR:HL(I)=HR : NEXT I
870 FOR I=0 TO N2 : INPUT #1,M2:Y2(I)=M2 : NEXT I
Здесь я так понимаю файл загоняется в память. Можно как то просмотреть что он загружает? Может есть какие то программы показывающие ресурсы?
Потом еще идет разбивка:
1021 GOSUB 500 :FOR I=0 TO N2 : V1(I)=Y1(I) : NEXT I
1022 FOR I=0 TO N2 : V2(I)=Y2(I) : NEXT I
1025 FOR I=0 TO N1-1 : HU(I)=HU(I) : NEXT I:M=(N1-1)/2
1027 FOR I=0 TO N1-1 : HL(I)=HL(I) : NEXT I
1030 GOSUB 1040 : INPUT A$ : IF A$="R" GOTO 1008
То что с 1 по 21 строчку отдается HU это я методом сравнения понял, а остальные строчки так и не разобрал. Подскажите пожалуйста.