Разное - Вопрос по QBASIC

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Разное - Вопрос по QBASIC

Demolution

Новый участник

Сообщения: 49
Благодарности: 0

Конфигурация

Профиль | Сайт | Отправить PM | Цитировать

Изменения

Автор: Demolution
Дата: 10-04-2011

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

Отправлено: 17:43, 10-04-2011

lxa85

Необычный

Сообщения: 4466
Благодарности: 995

Профиль | Сайт | Отправить PM | Цитировать

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

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

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Demolution

Отправлено: 09:17, 11-04-2011 | #2