С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
895 / 1091 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

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

02.01.2017, 10:53. Просмотров 124. Ответов 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
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2017, 10:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как заполнить оператор DATA данными (QBasic):

Как заполнить список ComboBox'a Значениями из Data Base ??? - Visual Basic
Как заполнить список ComboBox'a Значениями из определенного поля Data Base ??? ответьте, please, на уровне чаиника Spasibo Olia

Oracle Как заполнить 4 DBEdit данными? - Delphi БД
Здравствуйте! Нужна помощь. Есть 4 DBEdit. Они соединены с Oracle таблицей. В которой по одному первичному ключу хранятся 4 записи. Их...

.NET 3.x Как заполнить CheckBoxList данными из БД? - C# ASP.NET
Подскажите как заполнить CheckBoxList данными из БД?

Как заполнить ArrayList данными столбца БД? - Visual Basic .NET
Подскажите как заполнить ArrayList столбцом из БД? Dim i As Integer Dim rab As New ArrayList SqlCom = New...

Как заполнить новую таблицу данными... - SQL Server
Как заполнить новую таблицу данными, которые есть запрос к другой таблице средствами SQL? Т.е., другими словами, как скопировать данные...

.NET 4.x Как заполнить данными шаблон Excel - C#
Здравствуйте! Как заполнить Excel таблицу? И если поможете, то можно еще узнать как нажать Enter в ячейку? С помощью \r\n?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2017, 10:53
Привет! Вот еще темы с ответами:

Как заполнить массив данными из файла - C (СИ)
#include <stdio.h> #include <conio.h> #include <iostream.h> int main() { clrscr(); FILE *file; int k; char...

Как заполнить StringGrid данными из файла - Delphi
Как заполнить StringGrid данными из файла, если запись в файл была такой: procedure TForm1.btn1Click(Sender: TObject); Var f:...

Как заполнить массив данными листбокса? - Visual Basic
Как заполнить массив данными листбокса, а затем сделать выборку из базы данных где элементы массива являются условиями отбора. Я уже 5...

Как заполнить ListView данными из Класса - Xamarin
Здравствуйте. Срочно нужна помощь. Имею программу, которую берет объекты класса из WebApi. После чего они сохраняются в переменную типа...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.