Эти функции предусмотрены исклбчительно для
open "r",#1,"cvsld.dta",18
field #1,2 as Целое$,4 as ДлинноеЦелое$,4 as ЕдиничнаяТочность$,8 as
ДвойнаяТочность$
МаксЦелое%=32767
'записать данные в файл,преобразовать их и назначить в буфер перед
'записью в файл данных
for i%=1 to 5
- 99 -
lset Целое$=mki$(i%)
lset ДлинноеЦелое$=mkl$(i%+clng(МаксЦелое%))
lset ЕдиничнаяТочность$=mks$(csng(i%*csng(МаксЦелое%)))
lset ДвойнаяТочность$=mkd$(МаксЦелое%^i%)
put #1,i%
next i%
for i%=1 to 5 'считать данные из файла
get #1,i% 'отобразить их на экране
print cvi(Целое$),cvl(ДлинноеЦелое$),cvs(ЕдиничнаяТоч-
ность$),cvd(ДвойнаяТочность$)
next i%
clise#1
end
Функции CVMD,CVMS
-----------------
Функция CVMD и CVMS преобразует строчные переменные,считываемые из произвол
------- ьных файлов в формате Микрософт,в числовую форму.
Синтаксис y!=CVMS(4-байтовая строка)
--------- y#=CVMD(8-байтовая строка)
Замечания CVMS (Convert Microsoft Singl-precision string) преобразует 4-бай-
--------- товую строку,представляющую значение единичной точности в формате
Микрософт,в значение единичной точности в формате IEEE Турбо-Бейси-
ка.CVMD(Convert Microsoft Double -precision string) преобразует 4-байтовую
строку,представляющую значение двойной точности в формате IEE Турбо-Бейси-
ка. Эти функции предусмотрены исклбчительно для совместимости с существующими
файлами Интерпретаторного Бейсика.
Пример 'открыть файл произвольного доступа
open "cvmd.dta" as#1 len=12
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий