Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
771 / 966 / 347
Регистрация: 23.10.2013
Сообщений: 4,534
Записей в блоге: 5
#1

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

02.01.2017, 10:53. Просмотров 82. Ответов 0
Метки нет (Все метки)

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2017, 10:53     Как заполнить оператор DATA данными
Посмотрите здесь:

Оператор INKEY$ QBasic
QBasic Как заполнить массив и вывести его на экран
QBasic Оператор if...then
QBasic Как заполнить массив определенными числами
QBasic Как заполнить случайными числами одномерный массив
Сформировать одномерный массив из чисел, используя операторы DATA и READ QBasic
оператор PLAY QBasic
Посчитать среднее арифметическое содержащихся в операторе DATA чисел QBasic
QBasic Выполнить сложение чисел, содержащихся в операторе DATA
Вывести на экран символы из DATA QBasic
QBasic Как сделать оператор LETT универсальным, пригодным для любых матриц?
QBasic Оператор STATIC

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 11:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru