Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Вопрос по QBASIC (http://forum.oszone.net/showthread.php?t=204440)

Demolution 10-04-2011 17:43 1655358

Вопрос по QBASIC
 
Здравствуйте.
Подскажите пожалуйста как разобраться с подгружаемым файлом в 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 это я методом сравнения понял, а остальные строчки так и не разобрал. Подскажите пожалуйста.

lxa85 11-04-2011 09:17 1655676

Demolution, первый кусок кода.
Построчно идет считывание данных из файла в массивы. Прям кусками 21 число, 101 число, 21 число, 101 число.
FOR I=0 TO N1-1 :
Сначала в переменную INPUT #1,HR:, а затем в массив HU(I)=HR :

Посмотреть ... возможно наверно в области быстрого выполнения кода, прервав программу т.к. qbasic - интерпретатор.
Второй кусок кода занимается преобразованием массивов, разбивки и работы с файлами там нет.


Время: 19:55.

Время: 19:55.
© OSzone.net 2001-