Практика программирования (Бейсик, Си, Паскаль)



         

Основные типы файлов в системе QBasic - часть 5


Программа 7_04.bas формирует в цикле и последовательно записывает в двоичный файл текст "строка", целочисленное значение счетчика цикла j%

и вещественное значение квадратного корня из j%, а затем в цикле считывает эти данные в обратном порядке.

Программа 7_04.bas

CLS : А$="Строка"

OPEN "bas_bin" FOR BINARY AS #1

FOR J%=1 TO 10

B=SQR(J%)

PUT #1,,A$: PUT #1,,J% : PUT #1,,B

PRINT A$, J%, В NEXT J% CLOSE #1 PRINT

OPEN "bas_bin" FOR BINARY AS #1

FOR J%=10 TO 1 STEP -1

GET #1,(J%-1)*12+1,A$

GET #1,(J%-1)*12+7,K%

GET #1,(J%-1)*12+9,B

PRINT A$,K%,B

NEXT J%

CLOSE #1

END




Содержание  Назад  Вперед