Как заполнить оператор DATA данными - QBasic

echs · Регистрация: 23.10.2013

На форуме дается немало советов о том как заполнить
например матрицу. А вот об операторе DATA речь молчит.
Однако в этом деле вполне может помочь QBasic.
Задача
Написать программу, которая заносит данные в оператор
DATA (включая и сам оператор). В качестве данных пусть
будут значения функции sin(x) - sin1°, sin2°, sin3°, sin4°, ...., sin90°
Все данные должны быть в файле 1.txt в следующем виде
DATA (здесь 5 чисел начиная с sin1°, разделённые запятыми)
DATA (здесь 5 чисел начиная с sin6°, ...)
и так далее ...
(результат смотрите в конце программы). А что дальше?, спросит
потрясенный программист. Дальше из файла эти данные просто
копируются и вносятся в программу. При вашем желании это тоже
может сделать QBasic...

QBasic/QuickBASIC

CLS
CONST pi = 3.141593
CONST g = pi / 180
DIM S AS STRING
OPEN "1.txt" FOR OUTPUT AS #1
 
S = "DATA"
 
FOR i = 1 TO 90
   IF i MOD 5 THEN
      S = S + STR$(SIN(g * i)) + ","
   ELSE
      S = S + STR$(SIN(g * i))
      PRINT #1, S
      S = "DATA"
   END IF
NEXT
END
 
REM 
REM Результат выполнения программы
REM
 
DATA 1.745241E-02, .0348995, 5.233596E-02, 6.975648E-02, 8.715575E-02
DATA .1045285, .1218694, .1391731, .1564345, .1736482
DATA .190809, .2079117, .2249511, .2419219, .2588191
DATA .2756374, .2923717, .309017, .3255682, .3420202
DATA .358368, .3746066, .3907312, .4067367, .4226183
DATA .4383712, .4539905, .4694716, .4848097, .5000001
DATA .5150381, .5299193, .5446391, .559193, .5735765
DATA .5877853, .601815, .6156615, .6293204, .6427876
DATA .6560591, .6691307, .6819984, .6946584, .7071068
DATA .7193398, .7313538, .7431449, .7547097, .7660445
DATA .777146, .7880108, .7986355, .8090171, .8191521
DATA .8290376, .8386706, .8480482, .8571674, .8660254
DATA .8746198, .8829476, .8910066, .8987941, .9063078
DATA .9135455, .9205049, .9271839, .9335805, .9396927
DATA .9455186, .9510565, .9563048, .9612617, .9659259
DATA .9702958, .9743701, .9781476, .9816272, .9848078
DATA .9876884, .9902681, .9925461, .9945219, .9961947
DATA .9975641, .9986296, .9993908, .9998477, 1

Опции темы