Составьте программу, которая создает файл, состоящий из неопределенного количества значений типа integer. После записи выведите файл на экран и уничтожьте файл — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DEFINT A-Z
RANDOMIZE TIMER
  CLS
  Fr = FREEFILE
OPEN "B", Fr, "File.dat"
  Dl = RND * 100   'Длина файла
  FOR i = 1 TO Dl
    a = (RND * 65535) - 32768
    PUT #Fr, , a
  NEXT
CLOSE #Fr
OPEN "B", #Fr, "File.dat"
  DO
    GET #Fr, , a
    IF EOF(Fr) THEN EXIT DO
    PRINT a;
  LOOP
CLOSE #Fr
KILL "File.dat"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment