Qbasic команды – Представление не найдено [name, type, prefix]: category, pdf, contentView

Рекомендуемые страницы:

lektsia.com

Операторы, массивы, функции qbasic | Basic113

basic113.narod.ru

Решение: Нужны команды QBasic — QBasic

Формулировка задачи:

ребята скопируйте мне все команды по программе basic за ранее спасибо!!!

  Узнать стоимость выполнения Вашей работы

Код к задаче: «Нужны команды QBasic — QBasic»

A
 
  ABS Функция                       APPEND Ключевое слово
  ABSOLUTE Ключевое слово           AS Ключевое слово
  ACCESS Ключевое слово             ASC Функция
  AND Оператор                      ATN Функция
  ANY Ключевое слово
B
 
  BASE Ключевое слово               BLOAD Оператор
  BEEP Оператор                     BSAVE Оператор
  BINARY Ключевое слово
 
C
 
  CALL Оператор                     COLOR Оператор
  CALL ABSOLUTE Оператор            COM Оператор
  CASE Ключевое слово               COMMON Оператор
  CDBL Функция                      CONST Оператор
  CHAIN Оператор                    COS Функция
  CHDIR Оператор                    CSNG Функция
  CHR$ Функция                      CSRLIN Функция
  CINT Функция                      CVD Функция
  CIRCLE Оператор                   CVDMBF Функция
  CLEAR Оператор                    CVI Функция
  CLNG Функция                      CVL Функция
  CLOSE Оператор                    CVS Функция
  CLS Оператор                      CVSMBF Функция
 
D
 
  DATA Оператор                     DEFLNG Оператор
  DATE$ Функция                     DEFSNG Оператор
  DATE$ Оператор                    DEFSTR Оператор
  DECLARE Оператор                  DIM Оператор
  DEF FN Оператор                   DO...LOOP Оператор
  DEF SEG Оператор                  DOUBLE Ключевое слово
  DEFDBL Оператор                   DRAW Оператор
  DEFINT Оператор                   $DYNAMIC Метакоманда
 
E
 
  ELSE Ключевое слово               ERDEV Функция
  ELSEIF Ключевое слово             ERDEV$ Функция
  END Оператор                      ERL Функция
  ENVIRON Оператор                  ERR Функция
  ENVIRON$ Функция                  ERROR Оператор
  EOF Функция                       EXIT Оператор
  EQV Оператор                      EXP Функция
  ERASE Оператор
 
F
 
  FIELD Оператор                    FOR...NEXT Оператор
  FILEATTR Функция                  FRE Функция
  FILES Оператор                    FREEFILE Функция
  FIX Функция                       FUNCTION Оператор
 
G
 
  GET (В/ВВ файлов) Оператор        GOSUB Оператор
  GET (Графика) Оператор            GOTO Оператор
 
H
 
  HEX$ Функция
 
I
 
  IF...THEN...ELSE Оператор         INSTR Функция
  IMP Оператор                      INT Функция
  INKEY$ Функция                    INTEGER Ключевое слово
  INP Функция                       IOCTL Оператор
  INPUT Оператор                    IOCTL$ Функция
  INPUT$ Функция                    IS Ключевое слово
 
K
 
  KEY (Присваивание) Оператор       KILL Оператор
  KEY (Отслеживание событий) Оператор
 
L
 
  LBOUND Функция                    LOCK...UNLOCK Операторы
  LCASE$ Функция                    LOF Функция
  LEFT$ Функция                     LOG Функция
  LEN Функция                       LONG Ключевое слово
  LET Оператор                      LOOP Ключевое слово
  LINE (Графика) Оператор           LPOS Функция
  LINE INPUT Оператор               LPRINT Оператор
  LIST Ключевое слово               LPRINT USING Оператор
  LOC Функция                       LSET Оператор
  LOCATE Оператор                   LTRIM$ Функция
 
M
 
  MID$ Функция                      MKI$ Функция
  MID$ Оператор                     MKL$ Функция
  MKD$ Функция                      MKS$ Функция
  MKDIR Оператор                    MKSMBF$ Функция
  MKDMBF$ Функция                   MOD Оператор
 
N
 
  NAME Оператор                     NOT Оператор
  NEXT Ключевое слово
 
O
 
  OCT$ Функция                      ON TIMER Оператор
  OFF Ключевое слово                ON...GOSUB Оператор
  ON COM Оператор                   ON...GOTO Оператор
  ON ERROR Оператор                 OPEN Оператор
  ON Ключевое слово                 OPEN COM Оператор
  ON KEY Оператор                   OPTION BASE Оператор
  ON PEN Оператор                   OR Оператор
  ON PLAY Оператор                  OUT Оператор
  ON STRIG Оператор                 OUTPUT Ключевое слово
 
P
 
  PAINT Оператор                    POINT Функция
  PALETTE Операторы                 POKE Оператор
  PCOPY Оператор                    POS Функция
  PEEK Функция                      PRESET Оператор
  PEN Функция                       PRINT Оператор
  PEN Оператор                      PRINT USING Оператор
  PLAY Функция                      PSET Оператор
  PLAY (Музыка) Оператор            PUT (В/ВВ файлов) Оператор
  PMAP Функция                      PUT (Графика) Оператор
  PLAY (Отслеживание событий) Операторы
 
R
 
  RANDOM Ключевое слово             RETURN Оператор
  RANDOMIZE Оператор                RIGHT$ Функция
  READ Оператор                     RMDIR Оператор
  REDIM Оператор                    RND Функция
  REM Оператор                      RSET Оператор
  RESET Оператор                    RTRIM$ Функция
  RESTORE Оператор                  RUN Оператор
  RESUME Оператор
 
S
 
  SCREEN Функция                    SQR Функция
  SCREEN Оператор                   STATIC Оператор
  SEEK Функция                      $STATIC Метакоманда
  SEEK Оператор                     STEP Ключевое слово
  SELECT CASE Оператор              STICK Функция
  SGN Функция                       STOP Оператор
  SHARED Оператор                   STR$ Функция
  SHELL Оператор                    STRIG Функция
  SIN Функция                       STRIG Операторы
  SINGLE Ключевое слово             STRING Ключевое слово
  SLEEP Оператор                    STRING$ Функция
  SOUND Оператор                    SUB Оператор
  SPACE$ Функция                    SWAP Оператор
  SPC Функция                       SYSTEM Оператор
 
T
 
  TAB Функция                       TIMER Операторы
  TAN Функция                       TO Ключевое слово
  THEN Ключевое слово               TROFF Оператор
  TIME$ Функция                     TRON Оператор
  TIME$ Оператор                    TYPE Оператор
  TIMER Функция
 
U
 
  UBOUND Функция                    UNTIL Ключевое слово
  UCASE$ Функция                    USING Ключевое слово
  UNLOCK Оператор
 
V
 
  VAL Функция                       VARSEG Функция
  VARPTR Функция                    VIEW Оператор
  VARPTR$ Функция                   VIEW PRINT Оператор
 
W
 
  WAIT Оператор                     WIDTH Операторы
  WEND Ключевое слово               WINDOW Оператор
  WHILE...WEND Оператор             WRITE Оператор
 
X
 
  XOR Оператор

СОХРАНИТЬ ССЫЛКУ

studassistent.ru

qbasic

7.10.2007

Введение.

MicrosoftQBasic– самый простой из современных языков программирования. Собственно, он настолько устарел, что единственное его назначение – учить детей составлять программы. Его продолжение – VisualBasic– используется как базовый язык программирования в Microsoft, так что хотя сам Qbasic нигде не используется, владение им крайне желательно любому программисту. Собственно, этот самоучитель кратко расскажет о особенностях программирования текстовых и графических приложений на Qbasic. Автор заранее извиняется за все орфографические ошибки, которые будут в этом документе, строго не судите. В общем, удачи в освоении!

До начала…

Итак, Вы сидите за компьютером в Windows и хотите научиться программировать на Qbasic. Что Вам нужно? Сама среда программирования, без неё нет смысла даже пытаться. Скачать её можно на моем сайте http://sysadmin.3dn.ru/. Если Вы хотите изучить составление текстовых приложений, этого достаточно. Я рекомендую работать в оконном режиме, это удобнее. У кого плохо со зрением – переходите в полноэкранный (Alt+Enter).

Теперь договоримся о разметке документа. Я буду печатать авторский текст обычным шрифтом, где нужно обратить внимание – полужирным, а тексты программ –другим шрифтом. В общем, по ходу все поймете. В общем, в одну руку мышь, в другую чипсы – и вперед!

Самая простая программа.

В языке Qbasic нет ничего обязательного. Т.е. нет таких строчек, которые обязательно нужно писать. Например, самая простая программа, которая будет как-то себя проявлять, имеет вид:

Print “Превед! Кагдила?”

В языке Qbasic есть понятие «команда» — это слово, которое Qbasic понимает. В данном случае – это команда print. Можно писать с большой буквы, можно с маленькой – без разницы, но если Qbasic заспознает команду, он переведет все слово в большие буквы. После слова print идет в кавычках через запятую то, что нужно вывести на экран (смысл команды print – вывод на экран или текстовой строки, или значения переменной). Можно сделать так:

Print “Превед! “, “Кагдила?”

Значения не имеет. Обратите внимание, что если Вы напечатали что-нибудь, то курсор автоматически переходит на следующую строку, так что если Вам нужно что-то напечатать в одной строке – делайте это сразу.

Необязательные коды…

Есть ряд правил, которыми должен руководствоваться программист. Это не является обязательным, но улучшает визуальное оформление кода программы. Ниже приведена программа из примера выше, но с обязательными кодами:

10 Rem zadaca 1 20 cls 30 print “Превед! Кагдила?” 40 end

Рассмотрим код построчно. Вы обратили внимание, что строки пронумерованы с шагом 10. Это обязательно только тогда, когда Вы используете оператор безусловного перехода (познакомимся потом), а пока Вам нужно знать две вещи – (1) строчки в простых программах нумеровать не обязательно и (2) нумерация может быть как угодно, но желательно по возрастающей и только целыми положительными числами (например, 2, 4, 6, 14, 15, 18, 100, 500, 501, 537). Классический способ нумерации – с шагом 10.

Но мы отвлеклись. Первая строка содержит команду rem. Эта команда ничего не делает. Все, что написано после rem в этой строке – не учитывается при выполнении. Я обычно там пишу название программы и комментарии по ходу программы, Вы можете писать там все, что угодно. Вторая строка содержит командуcls. Эта команда очищает экран. Третья строка содержит хорошо знакомую нам командуprint, а четвертая – командуend, которая указывает на конец программы, но при этом тоже ничего не делает и не обязательна. Больше необязательных кодов нет.

Переменные.

Если бы Qbasic мог только выводить текст и очищать экран – в нем бы не было необходимости. Первое, что обязан делать любой язык программирования – хранить информацию. Информация хранится в ячейках памяти – переменных. Можно хранить числовую и текстовую информацию. Числовая информация может быть целой и дробной (но представлена не дробью, а обычным числом с цифрами после запятой). В общем, рассмотрим для начала числовые переменные. Чтобы использовать переменную, нужно придумать ей имя. Имя может быть буквой, может быть целым словом. Ограничение – нельзя, чтобы имя переменной начиналась с цифры, и нельзя использовать в качестве имени переменной имя команды (например cls или print), и нельзя использовать rnd.Например, вот кусок программы:

A = 10 print A

В данном примере на экран будет выведено «10» потому, что во второй строке «А» не заключена в кавычки. Обратите внимание – любая строка в программе должна содержать или присвоение значения, или команду Qbasic. Если строка начинается не с команды и в ней нет присвоения (<имя переменной> = <значение>), то это будет считаться ошибкой. Рассмотрим другой пример:

A = 2.5 b = 5.3547852 Print A, b

Здесь я присваиваю переменным дробные значения. Сейчас сосредоточтесь, т.к. я скажу две критически важные вещи: (1) если Вы в начале использовали переменную с большой буквы, то Вы всегда обязаны писать её с большой буквы(здесь — А) и (2) –дробные числа пишутся через точку (2.5), а не через запятую. Всегда.

Другой тип переменных – текстовые. Они обозначаются точно так же, как и числовые, но отличаются типом хранимой информации. Однако, обычно они обозначаются со знаком “$” на конце. Вот программа:

A$ = “Превед!” print A$, “Чуваг!”

На таком простом примере можно показать, как использовать переменные. Для чего нужны текстовые переменные? Честно говоря, их используют только если хотят использовать введенные пользователем данные. Вам не часто придется использовать текстовые переменные, а если и придется, то писать “$” на конце не обязательно.

Ввод с клавиатуры.

Ну и самое интересное и нужное – введение пользователем информации. Информацию можно ввести двух типов – текстовую и числовую. Зависит от того, в ячейку какого типа информация вводится. Пример программы:

Input “Введи свое имя ”, a$ print “Превед, ”, a$, “!”

Подробнее разберем этот пример. Новая команда – input– вводит с клавиатуры информацию и помещает её в определенную переменную, в данном случае в переменную текстового типа a$. Сразу после input пишется подсказка, после подсказки очень желательно ставить пробел, чтобы текст не сливался. Потом кавычка закрывается, запятая и имя переменной. Во второй строчке я вывел слово «Превед, », после этого запятая и имя переменной, а после этого снова запятая и опять в кавычках текст. Можно чередовать переменные и текст, текст и текст, переменные и переменные до бесконечности. Можно делать так:

Input “Введи число: ”, q% print q%, q%, q%

Обратите внимание, что я после имени переменной поставил “%”. Если нам нужно получить число, а в случае ввода текста повторить ввод, то переменную нужно писать со знаком “%”. Если только текст, то со знаком “$”. Если нам не важно, что введено, то можно писать просто имя переменной.

Здесь я получаю числовое значение и трижды его вывожу. Обратите внимание – если Вы попытаетесь ввести текст вместо цифр, то Qbasic снова попросит ввести число. И так, пока Вы его не введете. Я рекомендую потренироваться сinputиprint, т.к. это – основа языка. Её полное понимание – половина успеха. А сейчас я покажу фишку (даже две!):

Input “Введи два числа через запятую: ”, a, b print a, b, a/2, b/2

Первая фишка – можно за раз затребовать ввода через запятую нескольких переменных. Вторая фишка –при выводе числе с ними сразу можно делать математические операции. Это не желательно, но возможно.

Простейшая математика.

На данном этапе полученных знаний достаточно, чтобы начать писать полезные программы. Рассмотрим задачу: «Дана формула Y = X*2/3. Ввести с клавиатуры Х и посчитать Y. В конце вывести и Х, и Y.». Давайте разработаем стратегию: сначала введем с клавиатуры значение Х, после этого посчитаем по формуле и выведем результат. Сказано – сделано:

Cls input “Введите значение X: ”, x y = x*2/3 print “Значение Х: ”, x, “, а значение Y: ”, y

Первая команда — очистка экрана. Начиная отсюда, я всегда буду очищать экран перед выполнением, рекомендую и Вам так делать. Во второй строчке ввожу Х. В третьей – вычисляю. Обратите внимание – использую вторую переменную y, которую нигде раньше не вводил и не использовал – просто сразу использую её и все. Ну и в 4-й строчке я печатаю результат. Все просто. Почти . Есть одна вещь – отбрасывание дробной части, которая Вам может пригодиться. Вот, сравните код:

Cls input “Введите значение X: ”, x y = int(x*2/3) print “Значение Х: ”, x, “а значение Y: ”, y

Вы видите int(<выражение>). Он отбрасывает дробную часть числа. Именно отбрасывает, а не округляет. Например, int(2.9) вернет «2», а не «3».

В общем, полученных знаний достаточно, чтобы писать программы класса «вычислить по формуле и вывести на экран».

Теперь математические действия:

В первую очередь выполняется то, что в скобках согласно приоритетам. После этого выполняется возведение в степень, после этого умножение и деление (по порядку слева направо) и после этого сложение и вычитание (тоже по порядку). Все как в математике.

Массивы и матрицы.

Модное слово – матрица . Означает оно – многомерный массив. Собственно, массивы – это когда внутри одной переменной можно хранить несколько значений. Иногда это очень удобно, так что советую привыкнуть к массивам, как к необходимости. Массив нужноинициализировать– т.е. сообщить, что собираемся его использовать инициализация должна идти до первого использования, обычно в начале программы. Сразу покажу пример:

Cls dim a(3) a(1) = 3 a(2) = 5 a(3) = 1 print a(1), a(3), a(2)

Вторая строка – инициализация массива. Я сообщил, что буду использовать массив из трех ячеек.

З

А

Е

А

А

(0)

(1)

(2)

(3)

(4)

В общем, массив – это куча переменных, имеющих общее имя и различающихся числом в скобках. Это очень удобно для группирования схожих по значению данных или для составления циклических алгоритмов. Потренеруйтесь работе с массивами, чтобы потом не было вопросов. Вот ещё пример программы:

Dim massiv(2) massiv(1) = 23.4 massiv(2) = 1 print int(massiv(1)), massiv(2)

Одно из важных умений программиста – уметь читать кучу вложенных друг в друга скобок. Разберем программу: первая строка – я объявляю массив с именем massiv и двумя (тремя, если с нулем, но мы его не используем!) ячейками. В первую заношу 23.4, а во вторую – просто 1. После этого я печатаю значение первой ячейки без дробной части (помните int(<число или переменная>)?), а вторую – как есть.

Теперь на счет матрицы. Матрица – это тоже массив, только он многомерный. Обозначается двухмерный массив как dim (a, b), трехмерный как dim (a, b, c) и работа ведется с ним как с обычным, только в скобках пишется сразу два (или три) числа через запятую.Вот пример использования матрицы:

Dim x(3, 3) x(1, 1) = 2 x(3, 1) = 5 x(1, 2) = 15.2 print x(1, 2)

Это простейший примитивнейший пример и его назначение – лишь показать, как использовать матрицу. Приемы работы те же самые, как и с одномерным массивом. Многомерный массив можно сравнить с домом, когда у нас есть номер этажа (столбца) и номер квартиры (строки). Трехмерные массивы имеют ещё одну координату.

Подведение итогов.

Итак, первая часть самоучителя закончена. В ней мы узнали, как писать простейшие программы, как получать данные с клавиатуры и выводить их, как использовать массивы и отбрасывать дробную часть, как очищать экран и т.п. Во второй части я познакомлю Вас с командами условия и циклов, а так же безусловного перехода.

Логические выражения.

Вторую главу нужно начать именно с них. Вот сводная таблица:

Это кажется простым и понятным (хотя не всем), но это очень важно для верного написания программ с операторами циклов и условий. Рекомендую хорошо эту табличку знать.

Оператор условия.

Иногда нужно проверить некоторые данные. Например, больше ли 12 введенное число или делится ли на 5 без остатка результат уравнения и т.п. Для этого нужна фантазия и оператор IF. В лучших традициях, я сразу приведу пример его использования:

Input “Сколько Вам лет? ”, l if l > 15 then print “Тебе больше 15!” else print “Тебе меньше 15!”

Сразу можно придраться и сказать, что если введешь 15, то он все равно скажет второе, но это учебный пример, а не «боевой». В общем, сначала мы получаем число, а потом проверяем его. Синтаксис оператора IFтакой:

If <условие> then <если верно> else <если не верно>, где <условие> может быть любым логическим выражением, <если верно> — команда, которая выполняется, если условие имеет статус истина, а <если не верно> — команда, выполняемая при статусе – ложь. Можно использовать просто:

If <условие> then <если верно>, так его в основом и используют. Приведу боевой пример, он немного сложноват, но если Вы его понимаете, это очень хорошо:

Cls input “Введите число от 1 до 5”, a if (a >= 1) and (a <= 5) then print “Введено верно!” cls input “Теперь введите число от 1 до 10”, b if (b >= 1) and (b <= 10) then print “Верно!” print “Сумма введенных чисел: ”, a+b

Я использовал clsдважды – так тоже можно, если есть необходимость. В строчке 3 я проверяю, если число больше или равно 1 и меньше или равно 5, то я пишу «введено верно!», аналогично и в строчке 6. В общем, ничего сложного.

Двоеточие…

Настало время рассказать про двоеточие. Оно служит, чтобы в одной строке написать несколько операторов, например:

A = 2 : b = 3

В нем нет особой необходимости, но если встретите его, просто знайте, что имеется в виду.

Оператор повторений.

Это одна из самых важных тем. Понимание оператора повторений дает ключ к автоматизации процесса. Например, если Вам нужно 10 раз подряд спросить у пользователя число, а потом посчитать сумму? Будете 10 раз печатать запрос? А если 20 раз? 100? В общем, без лишних слов – оператор повторений:

For <переменная>=1 to <сколько раз повторять> step X <операторы> … <операторы> next <переменная>

Сразу обратите внимание на «step X». Я больше об этом никогда говорить не буду, потому как я это не использую. Если это не писать (можно не писать), то программа после каждого прохода увеличивает переменную на 1. Если написать step X, то программа будет увеличивать переменную на Х.

Обратите внимание, что в операторе for нужно использовать переменную как счетчик. Используйте незанятую переменную, которую Вы нигде больше не используете, я называю её всегда cnt, вы называйте хоть «m». Пример:

Cls a = 0 Input “Сумму скольки первых чисел нужно находить? ”, n for cnt = 1 to n a = a + cnt next cnt print a

Вот и все. Теперь смысл. Первая строчка очищает экран. Во второй строчке я делаю очень важную вещь – я собираюсь в переменную «а» складывать сумму всех чисел и перед этим присваиваю этой переменной значение 0. Если Вы собираетесь искать произведение чисел, то следует переменой присвоить 1, т.к. если бы там был 0, то произведение всех чисел было бы 0. Короче, это просто нужно думать по ходу написания программ. Для суммы нужно присваивать 0, для произведения – 1. В общем, в 4 строчке написано «n раз повторять все что после 4 строчки и перед next n». В самой программе я могу использовать и cnt, но присваивать счетчику значения нужно только если знаешь, что делаешь. В общем,next cntговорит, что это конец куска кода, который надо повторять. А после этого я вывожуa, в которой содержится сумма чисел от 1 до n.

Теперь разберем алгоритм программы, важно понять его:

1. Мы получили n. Это сколько раз надо повторять. Для наглядности пусть будет 3.

2. a=a+cnt. Сначала в «a» было ноль, после первого разаn+cnt.Cntсначала 1.

3. теперь увеличиваем cnt и возвращаемся на второй шаг. Если cntуже достигn, то прекратить выполнение цикла.

После первого захода в n было 1, после второго 1+2, а после третьего – 1+2+3. А теперь догадайтесь, что в конце в n будет? Правильно – 6!

Смысл оператора for такой, что он несколько раз (nраз) прогоняет операторы, что перед next cnt, притом номер число cnt – номер повтора. Не обязательно его использовать в самой программе, можно делать, что хотите, просто это что-то будет выполнено n раз.

Оператор for очень удобно группировать с массивами. Пример:

Cls dim a(5) for cnt = 1 to 5 input “Введите число”, a(cnt) next cnt print a(1), a(2), a(3), a(4), a(5)

В данном примере я вместо числа в скобках в обозначении массива в 4 строчке использую счетчик, которые после каждого повторения увеличивается на 1, в качестве номера элемента массива. Всего будет 5 заходов, как Вы видите из третьей строчки. В общем, это называется «заполнение массива с клавиатуры». Потренеруйтесь ещё! Измените пример выше таким образом, чтобы он принималтри текстовыхстрочки. Затрудняетесь? Ничего сложного!

Cls dim a$(3) for cnt = 1 to 3 input “Введите текст”, a$(cnt) next cnt print a$(1), a$(2), a$(3)

Вот ещё пример того, как можно использовать массив в связке с оператором повторений. Если Вы затруднились с написанием своего варианта, то рекомендую остановиться на этом этапе изучения языка, пойти попить кофе, в общем – пока приостановить изучение и отдохнуть. С новыми силами попробуйте написать программу, которая сначала будет ждать ввода трех чисел, а затем пяти строк. Хранить числа в массиве a(3), а строки в массиве b(5). Это довольно сложно, но вполне решаемо. Если Вы сможете написать это – есть повод гордиться.

Случайное число.

В мире случайностей не бывает. Ничего не может возникать ниоткуда и исчезать в никуда. Это распространяется и на компьютер – в нем ничего само по себе не происходит. И все же есть одно понятие, которое этому противоречит – случайное число.

Если интересно: на самом деле термин «случайное число» не верный. Полученное этим способом число не является случайным – это текущая дата и время, с которыми произвели математические операции. Это очень сложный процесс и для простоты принято говорить, что это число случайно. Но мы – то знаем, что такого не бывает …

Итак, использование случайного числа – довольно легкий процесс, если понять суть его. Случайное число, как и массив, нужно в начале программы инициализировать строчкой randomize timer. Это делается один раз в начале программы (обычно после имени программы и объявления массивов, если такие есть). В самой программе наше случайное число хранится в переменнойrnd, которую мы должны использовать только для чтения и никак больше. Например, вот неполная программа:

Randomize timer print rnd

Если Вы её запустите, она выдаст Вам что-то типа «.3587412». Это происходит потому, что в начале ноль программа не пишет. Т.е. «как есть» число rnd не доходит до целого. Но ведь нам нужны целые числа, причем в заданных пределах? Именно поэтому переменную rnd «как есть» не используют. Делают так:

Randomize timer print int(rnd*10)

Если Вы вникли во все предыдущие главы самоучителя, то должны понять, что тут делается. А делается вот что: первая строка говорит программе, что мы вообще будем использовать случайное число. Во второй строке мы берем rnd, умножаем его на 10 (получилось что-то типа 3.587412) и отбрасываем дробную часть (ответ — 3) и печатаем результат вычислений. Помните, что сначала математические действия вычисляются и только в последнюю очередь печатается их результат. И что мы получили? По идее rnd может принимать значения от 0.0000001 до 0.9999999, т.е.указанная выше программа будет выдавать результат от нуль до девяти. Ещё пример:

Randomize timer print int(rnd*10-5)

Вот теперь она будет выдавать значения от 0-5 до 9-5, т.е. от -5 до 4. Помните, Вы никогда не сможете заставить выдавать значения от -5 до 5, можно лишь от -5 до 4, чтобы между минимумом и максимумом было 9 цифр.

Ещё очень важная вещь: rnd каждую секунду меняется, так что если дважды подряд обратитесь к ней, даже например так:

Randomize timer print rnd, rnd

То будут выведены два разных числа. Хотя лично у меня никогда не было необходимости дважды подряд генерировать случайное число. Так что особенно не задумывайтесь над этим.

Оператор цикла.

Это очень сложная и требующая напряжения внимания глава. Чтобы понять принцип действия оператора цикла, нужно внимание и силы. В общем, вот пример:

While a <> 5 input “Введите число 5 для выхода: ”, a wend

Что будет делать эта программа? Она будет выдавать запрос на ввод числа до тех пор, пока Вы не введете число 5. Синтаксис оператора цикла:

While <истинное условие> <ваши операторы, которые нужно повторять> wend

Итак, рассказываю: как только Qbasic находит слово while, он начинает проверять условие после этого слова на истинность. Если оно истинно (как в данном случае, т.к. а сначала — ноль), то будет проделано то, что после этой строчки и перед wend (это просто служебное слово, обозначающее конец цикла). Он один раз прогнал <ваши операторы, которые нужно повторять> и снова оценивает выражение, и если оно снова истинно, он снова повторяет цикл до тех пор, пока он не станет ложным. Если выражение ложно, он приступает к следующей после wend строчке.Обратите внимание, что сам Qbasic ничего не делает для того, чтобы сделать выражение ложным, так что обязательно продумывайте ситуацию, когда цикл будет окончен, иначе придется нажать Ctrl+Break и программа остановится с ошибкой. (когда нажимаете эти кнопки, программа сама останавливается. После этого надо нажать Выполнить — Перезапустить). Вот ещё пример использования цикла:

While x <= 5 print “Сейчас Х равен ”, x x = x + 1 wend

Вот, сдесь программа напечатает цифры от нуля до 5. Постоянное увеличение числа х обеспечивается третьей строчкой. В общем, все просто.

Подпрограммы.

Это самая сложная тема во всем Qbasic. Она не является критически важной, но она сложная. В общем, программу не обязательно писать одним куском. Если Вы в программе часто делаете одно и то же действие, например делите на два и возводите в третью степень (просто для примера), то можно сделать деление и возведение в степень в отдельном как бы куске текста, вот пример:

10 cls 20 input “Введите число: ”, a 30 gosub 100 40 print a 50 gosub 100 60 print a 70 end 100 rem подпрограмма деления и возведения в степень 110 a = (a / 2)^3 120 return

Вот. Обратите внимание, что если Вы используете подпрограммы, Вы обязаны вести нумерацию строк (а как – это не важно. У меня вот после 70 сразу 100 ). Итак рассказываю. В строчке (буду называть по номерам) 10 я очищаю экран. В 20-й строчке я жду ввода числа а. После этого идет новая команда –gosub – она говорит, чтобы Qbasic перешел на строчку с заданным номером, здесь – 100. После этого Qbasic находится на строчке 100, которая соержит только комментарий. Хорошим стилем считается начинать подпрограмму с комментария, который рассказывает, как подпрограмма называется. В общем, дальше идет 110 строчка. Что она делает – понятно. А вот 120 строчка содержит командуreturn, которая говорит, чтобы Qbasic вернулся туда, откуда перескочил на подпрограмму, т.е. на 30 строчку. Т.к. она уже выполнена, то он переходит на 40 строчку. Печатает переделанное число «а» и переходит на 50. Здесь он снова перескакивает на 100 и делает, как я рассказал выше. После этого он на 60 строчке снова печатает число а и заканчивает программу словомendна 70 строчке.

Теперь смысл: подпрограммы нужны тогда, когда нужно что-то сделать много раз. Но их использование доставляет проблемы: начиная от того, что нужно нумеровать строчки, и заканчивая тем, что нужно отслеживать порядок выполнения программы. Я очень редко использую подпрограммы… Синтаксис использования под программ такой:

Q <ваши операторы> w gosub X e <ваши операторы> Х rem <название подпрограммы> z <операторы> n return

Вот так. Буквы в начале строк обозначают то, что строчки надо нумеровать.

Оператор перехода.

Эту тему подробно в школах не изучают, поэтому я просто коротко и ней расскажу. GOTO– оператор безусловного перехода. Все, что он делает, это передает управление на заданную строчку в программе. И все – ничего больше он не может.Он тоже требует нумерации строк в программе. Вот пример:

10 Cls 20 input “Сколько Вам лет? ”, a 30 print “Превед!” 40 if a < 18 then goto 200 50 print “Пиво будешь?” 200 print “Ну ладно, удачи!” 210 end

В строчке 40 идет проверка на возраст. Если возраст меньше 18, то переход на строчку с номером 200. Все просто и понятно.

Подведение итогов.

Итак, закончена глава автоматизации операций. Если Вы внимательно её читали, то теперь умеете заставить программу выполнить требуемое количество раз одно и то же действие, получать случайное число, разбираетесь с оператором условия и цикла. Это самое важное, что есть в Qbasic, так что хорошенько разберитесь с каждым из приведенных выше операторов, чтобы потом не было вопросов.

studfiles.net

учебник по qbasic 1 — глава 5

 WHILE…WEND, Random Access Files, APPEND, GET (file I/O), SUB…END,  SUB, PUT(file I/O),
FUNCTION…END FUNCTION, LEN, GOSUB…RETURN, TYPE…END, TYPE,
DIM SHARED, COMMON SHARED, RTRIM$

 Чтож, приступим! Мы изучим другой метод выполнения цикла, путь прибавления к концу последовательного файла, структурного программирования.
Сначала вспомним прошлые способы выполнения цикла.
Как вы помните DO…LOOP и FOR…NEXT, а сейчас мы изучим операторы WHILE…WEND.
Этот оператор очень похож на цикл DO…UNTIL. Вот как выглядит синтаксис этого цикла:

 WHILE<условие>
 …
WEND

 Скажем, Вы хотите сделать простую игру в предположения.
Всё, что требуется — простой цикл, как в этом примере:

 RANDOMIZE TIMER
 PRINT «Игра — угадай!»
 number = INT(RND * 10) + 1’случайное число от 1 до 10
 PRINT «Секретный номер находится в промежутке от 1 до 10»
 WHILE guess <> 10′ цикл до предположения = 10
 INPUT «Попыток «; guess
 tries = tries + 1’счётчик попыток
 WEND
 PRINT «Хорошая работа! Вы угадали секретный номер с «; tries; »  попыт(ок),(ки)»
 END

 Эта программа составлена только в 10 строк!
Вот задание — объясните,
что делает каждая строча(как вы видите на некоторых строчках есть комментарии).
Теперь вы поняли, как действует цикл WHILE…WEND, он простой, и все же полезный!
 Мы говорили относительно файлов в Главе 4.
Вы помните команды INPUT и OUTPUT для последовательного входа в файл.
Есть еще один способ добавления к файлу информации, используя команду APPEND.
Команда используется точно так же как и OUTPUT и INPUT:

 OPEN «file.txt» FOR APPEND AS #1

 APPEND действует точно также как и OUTPUT и кроме этого не стирает то,
что уже записано в файле, прежде чем добавлять к этому другой текст.
Это полезно для продолжающихся высоких списков счета и связки других вещей.
 Сейчас мы должны изучить структурное программирование.
Очень не удобно в большой программе с тысячами строк и множеством операторов найти проблему! Поэтому, умные люди в 1960-ых разработали кое-что
называемое «структурным программированием — Ming. »
При использовании этой методики, мы можем использовать «подпрограммы» и «функции»
в создании наших программ, чтобы упорядочить программный текст.

 Чтобы создавать и редактировать подпрограмму в QBASIC,
нажимают кнопку на инструментальной панели меню
[E]dit(редактировать) > New [S]UB…(Новая подпрограмма…).
QBASIC спросит у вас относительно имени подпрограммы. Можно давать любое имя.
QBASIC тогда позволит вам редактировать текст подпрограммы.
В тексте подпрограммы используются те же операторы что и в обычной программе,
после того как вы написали подпрограмму, вы можете её посмотреть,
идите к [V]iew на инструментальной панели, выберите [S]UBS.
И затем выберите имя файла вашей подпрограммы в меню.
Если Вы хотите вернуться к главному тексту программу, то,
выберете в этом же меню название вашей программы. Знайте, что переменные,
которые Вы создаете в подпрограмме доступный только в этой же подпрограмме,
а переменные в теле программы доступны только в нём, сделать их общедоступными можно с использование следующая команда в начале подпрограммы:

 COMMON SHARED variable$, variable2, variable3!

 Команда «DECLARE SUB…», объявляет имя подпрограммы и её существование.
(QBASIC размещает эти инструкции в начале вашей программы, как только вы сохраняете её).
Сделать переменную доступной везде можно так (используя в задании переменной оператора SHARED):

 DIM SHARED array$(100)

 Удостоверитесь, что любые переменные(называемые «глобальной переменной»)
находятся в вашей команде COMMON SHARED, иначе ваша программа будет работать с ошибками.
Передают переменные к подпрограмме подобно этому:

 SUB DoBox (x1, y1, x2, y2)

 Чтобы вызвать подпрограмму нужно написать имя подпрограммы и задать численное значение переменных(если они есть) подобно этому:

 DoBox 30, 20, 50, 20

 Если же нет переменных вы просто можете только напечатать название подпрограммы
в основном тексте программы(теле), подобно этому(здесь вызывается сразу 5 попрограмм):

 Mainloop: CLS
 DoGraphics
 DoLevel
 WaitForKey

 Как дополнение к подпрограммам есть ещё и функции. Они подобны подпрограммам,
о в основном они используются для вычисления. Создаёте их можно тем же самым путём,
каким вы создали бы подпрограмму, [E]dit > [F]UNCTION(но не SUB).
Редактировать функции можно так же как и подпрограммы. Вот простой пример:

 FUNCTION Cube(num)
 Cube = num * num * num
 END FUNCTION

 ‘[главная программа:]

 CLS
 INPUT «Номер «; number
 num3 = Cube(number)
 PRINT number; «в кубе = «; num3
 END

 Последний раздел, который мы будем изучать в этой главе — файл прямого доступа.
Они очень полезны для прикладных программ базы данных.
Чтобы сделать программу вы должны определить название вашей TYPE(название) программы и конец TYPE…END. Имеется короткий пример этого:

 TYPE people
 nm AS STRING * 40 ‘ название программы — 40 символов
 age AS INTEGER ‘ устанавливает возраст как целое число
 address AS STRING * 60 ‘ устанавливает адрес в 60 символов
 END TYPE

 Следующая вещь, которую мы должны изучить прежде,
перед тем как вы откроете файл — использование команды DIM,
для установления типа прямого доступа к файлу. Это делается так:

 DIM person AS people

 Теперь, мы должны научится открывать файл.
Снова используется команда OPEN(как вы помните из предыдущей главы), но теперь мы должны добавиться использования двух команд LEN и DIM. Вот пример:

 OPEN «address.dat» FOR RANDOM AS #1 LEN = LEN(person)

 Это открывает файл прямого доступа «address.dat» с книгой записей для присоединения информации. Теперь вы должны научится использовать свои переменные для ввода в файл информации.
Пример описан ниже:

 INPUT «Дайте название записи «; record
 INPUT «Имя»; person.nm
 INPUT «Возраст»; person.age
 INPUT «Адрес»; person.address
 PUT 1, record, person

 Как вы видите, вы должны задавать переменной имя массива, a точка, в вашей пременной ТИП.
Тогда, Командой PUT, вы помещаете переменные в файл.
Синтаксис для команды PUT:
PUT [имя файла], [номер записи], [имя переменной]
Это очень просто. Получать массив из файла, используется в основном тот же самый метод, за исключением команды GET .
Команда GET точно имеет тот же самый синтаксис, как команда PUT,
за исключением, того, что из файла читается в массив, который вы определяете.
Есть пример:

 INPUT » Представление, которые записи «; record
 GET 1, record, person
 PRINT «Название»; person.nm
 PRINT «Возраст»; person.age
 PRINT «Адрес»; person.address

 Так используют файл прямого доступа. Назовём, для примера файл RANDOM.BAS.
Файлы прямого доступа являются очень полезным для большого количества прикладных программ,
но они очень комплексны.

 Personname$ = RTRIM$ (person.nm)

 Такая команда бы подстроила к концу переменной несколько пробелов.

 Задание:

 1. Создать простую программу базы данных для адресов и названий(имен)
Использование структурного программирования.

 Сохраняйте ваши программы !!!!! Они могут стать шедевром!!!) Желаю  удачи!! :)))

basic113.narod.ru

учебник по qbasic 1 — глава 1

 Вы можете спросить, каков он, QBASIC. QBASIC — язык программирования, написанный на компьютерах
в 1975, Биллом Гейтсом и Паулем Алленом, и с тех пор был приятен всем. Почему?
Из-за легкости в использовании, команды — чистый английский язык, и мощность. QBASIC заменяет Универсальную Символическую систему команд. Несколько команд — чистый Английский язык — PRINT, LET…, и многие другие. Язык имеет простую структуру программ: строки пронумерованы (10, 20, 30,
и т.д.). Но почему вы решили использовать QBASIC? Когда вы изучаете QBASIC,
вы также изучаете многие из основных принципов других языков программирования.
Изучив учебник, вы сами сможете создавать программы, и, я думаю, найдёте в этом забаву:))).
К концу этих уроков, вы должны знать много вещей относительно QBASIC, и будете способны писать превосходные программы, которые будут являться полезными для вас и ваших друзей:))

 QBASIC очень лёгок в использовании. Почти на каждом компьютере записан QBASIC.
Если Вы ещё не знаете, где QBASIC записан на вашем компьютере, проверьте каталог «C:\DOS»,
или используя программу поиска, найдите QBASIC.EXE.

 Я знаю, что вы хотите сразу же, научится программированию и написать первую программу.
Есть программа для вас. Напишите в окне Бейсика:

 CLS:PRINT «Привет»! : PRINT : PRINT » Это моя первая программа! «

 Это только список команд, которые компьютер будет выполнять.
Нажмите  на меню «RUN»,> «START». На экране появится что-то вроде:

 Привет!
 Это — моя первая программа!

 Обратите внимание, что QBASIC не выводит CLS, или PRINT, или что-нибудь другое.
Нажмите любую клавишу, чтобы вернуться к программе.  Объяснение операторов:

 CLS — Очищает экран

 Оператор PRINT — печатает написанный вами в кавычках текст.

 Чтобы сохранить программу нажмите на меню «FILE»>Save as…, наберите имя файла
укажите директорию и сохраните файл. Чтобы начать новую программу,
нажмите на меню «FILE»>»NEW» ОСТЕРЕГАЙТЕСЬ — любая программа в памяти будет потеряна НАВСЕГДА, если она не сохранена. Если Вы хотите загрузить свою программу снова, нажмите на меню «FILE»,
нажмите «LOAD», зайдите в ту директорию где лежит ваша программа выберете её и загрузите.

 Итак в этой главе мы изучили 2 оператора «PRINT» и «CLS».

basic113.narod.ru