Реферат: Мова програмування Turbo-Basic

Курсова робота з інформатики

Мов а програмування Turbo-Basic

ЗМIСТ

Вступ......................................................................................................................... 3

СИСТЕМА TURBO-BASIC (версія 1.1)............................................................. 3

Склад системи................................................................................................... 3

Запуск системи.................................................................................................. 3

File (РОБОТА З ФАЙЛАМИ)............................................................................ 4

Edit (РЕДАГУВАHHЯ ПРОГРАМИ)............................................................... 6

КОМАHДИ РЕДАГУВАHHЯ............................................................................ 6

Run (ЗАПУСК ПРОГРАМИ)............................................................................ 8

Compile (КОМПIЛЯЦIЯ ПРОГРАМИ)............................................................ 8

Options (ОПЦІЇ СИСТЕМИ).............................................................................. 9

Setup (НАСТРОЙКА СИСТЕМИ)................................................................. 10

Window (ВIКНА СИСТЕМИ).......................................................................... 11

Debug (ВIДЛАДКА ПРОГРАМИ).................................................................. 12

ЗАГАЛЬHI ВIДОМОСТI ПРО БЕЙСIК............................................................. 12

Формат програмного рядка БЕЙСIКА........................................................ 12

Константи БЕЙСIКА........................................................................................ 13

Змінні БЕЙСIКА............................................................................................... 13

Масиви БЕЙСIКА............................................................................................ 13

Арифметичні операції.................................................................................... 14

Операцiї відношення...................................................................................... 14

Символьні вирази........................................................................................... 15

ОПЕРАТОРИ БЕЙСIКА...................................................................................... 15

ФУНКЦІЇ ТА СИСТЕМНI ЗМIHHI БЕЙСIКА.................................................... 30

HОВI КОМАНДИ СИСТЕМИ TURBO-BASIC................................................. 36

ПРИКЛАДИ ПРОГРАМ НА БЕЙСIКУ............................................................. 37

Основна таблиця ASCII..................................................................................... 46

Розширена таблиця ASCII (альтернативне кодування)............................ 46

ЗАВДАНHЯ ДЛЯ САМОСТIЙНОЇ РОБОТИ.................................................. 46

ЛІТЕРАТУРА......................................................................................................... 49

Вступ

Мова BASIC (Beginners All-purpose Symbolic Instruction Code багатоцільова мова символічних команд для починаючих) розроблена в Дартмутському коледжі (США) на початку 60-х років, як найпростіша мова для навчання програмуванню. З тих часів вона неперервно вдосконалювалася, а з появою та широким розповсюдженням персональних комп'ютерів стала основною, що найбільш часто використовується на ПЕОМ , мовою програмування високого рівня. Потрібно відмітити, що поява системи Тurbo-Basic значно наблизила мову BASIC , яка реалізована в ній, до таких потужних мов програмування, як PASCAL та C .

Turbo-Basic це незалежна система програмування для персональних комп'ютерів фірми IBM та сумісних з ними. В своєму складі Turbo-Basic має потужний текстовий редактор, швидкодіючий компілятор, бібліотеку робочих програм, внутрішній редактор зв'язків та підсистему оперативної допомоги (Help ).

Turbo-Basic працює під керуванням операційної системи MS DOS 2.0 і вище, на комп'ютері з оперативною пам'яттю не менш ніж 512 Кбайт , з використанням моніторів, які допускають графічні режими.

В цьому посібнику приводяться відомості про функціональні можливості системи Turbo-Basic , дається описання операторів, функцій та системних змінних мови BASIC , її розширення в системі Turbo-Basic . Наводяться також приклади простих програм, написаних на мові BASIC , пропонуються завдання для самостійної роботи.

СИСТЕМА TURBO-BASIC (версія 1.1)

Склад системи

До складу системи Turbo-Basic (версія 1.1) входять такі програми та допоміжні файли:

TB.EXE (212,844 bytes, 041187) головна програма системи Turbo-Basic ;

TBHELP.HLP (41,029 bytes, 041187) файл допомоги (підказки) системи Turbo-Basic ;

TBINST.COM (39,976 bytes, 041187) програма установки (настройки) системи Turbo-Basic ;

TBCONFIG.TB (886 bytes) файл конфігурації Turbo-Basic ;

Біля 50 .BAS -, .INC -, .ASM -, .BIN - файлів з прикладами.

Запуск системи

Запуск системи Turbo-Basic з середовища DOS здійснюється набором на клавіатурі директиви TB з наступним натисканням клавіші Enter , після чого з'являється основний екран системи:

Можливі й інші варіанти основного екрана. Їх модифікації залежать в кінцевому результаті від смаку користувача і можуть бути отримані в результаті настройки системи. Цю настройку можна здійснити або після запуску головного файла TB.EXE (в самій системі Turbo-Basic ), або ж після запуску програми установки (настройки) системи TBINST.COM .

У верхній частині основного екрана розташоване головне меню (меню верхнього рівня) системи Turbo-Basic , до розгляду команд якого (File , Edit , Run , Compile , Options , Setup , Window , Debug ) ми перейдемо.

Кожна з вказаних команд може бути визвана трьома різними способами:

З головного меню:

1. Натисканням виділеної літери (F , E , R , C , O , S , W , D ).

2. Вибором за допомогою курсора необхідної команди з наступним натисканням клавіші Enter .

З будь-якого місця:

3. Одночасним натисканням клавіші Alt та виділеної літери.

Після виконання команд File , Options , Setup , Window , Debug на екрані з'являється меню нижнього рівня, що спускається, із своїми командами, вибір яких відбувається першими двома способами. Зауважимо, що для деяких із команд існують меню трьох рівнів. Повернення на попередній рівень здійснюється натисканням клавіші Esc .

File (РОБОТА З ФАЙЛАМИ)

У результаті виконання команди File на екрані з'явиться таке файлове меню:

Розглянемо коротко всі команди файлового меню.

Load Ця команда дозволяє завантажити з диска робочий файл, який можна потім редагувати, компілювати, виконувати або зберігати. При виконанні команди з'являється запрошення для введення імені файлу (за умовчанням .BAS ). Якщо при цьому натиснути клавішу Enter , то на екрані з'явиться вікно з іменами BAS -файлів і піддиректоріїв поточного директорію. Вказавши курсором потрібний файл, натисніть клавішу Enter для його завантаження в оперативну пам'ять ЕОМ .

New Ця команда очищає в оперативній пам'яті ЕОМ робочий файл та дає можливість приступити до створення нової програми. За умовчанням новому файлу присвоюється ім'я NONAME.BAS .

Save Ця команда зберігає поточний робочий файл, записуючи його на диск. Стара версія файлу отримує розширення .BAK , якщо опція Backup source files (в підменю Misceleneous команди Setup основного меню) установлена в режим ON . При спробі зберегти робочий файл з іменем NONAME.BAS вам буде запропоновано спочатку переіменувати його.

Write to Ця команда використовується для запису поточного робочого файлу на диск під новим іменем (звичайно, після редагування або створення нового файлу).

Main file При розробці великих програм досить часто виникає необхідність їх розбиття на окремі незалежні частини. Ці частини зберігаються на диску і редагуються як окремі файли. Головний файл має розширення .BAS і містить метаоператори $INCLUDE , які підключають допоміжні файли (з розширенням .INC ) під час компіляції або при виконанні програми. За допомогою даної команди можна задати ім'я головного файлу.

Directory Ця команда виводить на екран вміст каталогу поточного директорію. Можливе використання шаблонів (масок) DOS , що задаються символами та ? .

Change dir Ця команда дозволяє перехід до будь-якого диска та/або директорію, які стають активними після її виконання.

OS shell Ця команда використовується для виходу із системи Turbo-Basic до середовища операційної системи DOS . При цьому Turbo-Basic залишається резидентним у пам'яті ЕОМ і повернення до нього здійснюється командою EXIT .

Quit Ця команда використовується для виходу із системи Turbo-Basic до середовища операційної системи DOS . Якщо ви модифікували робочий файл та не зберегли його, послідує пропозиція записати його на диск. Альтернативна можливість виходу натиснути Alt+X .

Edit (РЕДАГУВАHHЯ ПРОГРАМИ)

У результаті виконання команди Edit система перейде в режим редагування, а у верхній частині вікна редактора з'явиться такий рядок стану :

C:filename.ext Line 1 Col 1 Insert Indent Tab

C:filename.ext специфікація файлу, що редагується. За умовчанням Turbo-Basic присвоює програмі ім'я NONAME.BAS ;

Line (рядок) вказує номер рядка (відносно початку файлу), який містить курсор;

Col (колонка) вказує номер колонки, яка містить курсор;

Insert (вставка) режим вставки увімкнуто;

Indent (відступ) режим автоматичного вiдступу увімкнуто;

Tab (табуляцiя) режим табуляцiї увімкнуто.

КОМАHДИ РЕДАГУВАHHЯ

Команди переміщення курсора

Команди вставки та вилучення

Блочні команди

Різні команди

Опцiї пошуку

Зауваження. В кінці Пам'ятки наведені основна таблиця ASCII та її розширення (альтернативний варіант), де вказане кодування всіх 256 символів знакогенератора ПЕОМ . Символи з розширення таблиці ASCII (зокрема, символи псевдографіки) можуть вводитися за допомогою так званого Alt-уведення . Для його реалізації необхідно натиснути клавішу Alt та, утримуючи її натисненою, набрати на допоміжній цифровій клавіатурі десятковий код потрібного символу. Пiсля відпускання клавіші Alt відповідний символ відобразиться на екрані.

Run (ЗАПУСК ПРОГРАМИ)

Пiсля того як ви завантажили файл з BAS-програмою або створили (відредагували) нову програму, ви можете спочатку відкомпілювати її або відразу запустити на виконання, використовуючи команду Run . Ви можете перервати виконання програми натисканням клавіш Ctrl+Break , якщо опцiя Keyboard break (в меню команди Options ) встановлена в режим ON .

Якщо під час компіляції або при виконанні програми буде знайдена помилка, Turbo-Basic перейде до режиму редагування (Edit ), вкаже курсором місцеположення помилки в тексті програми, а в верхньому рядку стану редактора з'явиться повідомлення про тип помилки. Пiсля коректування ви можете знову запустити програму для виконання.

Якщо виведення результатів роботи програми відбувається у вікно Run , ви можете розширити його до розміру всього екрана натисканням клавіш Alt+F5 .

Compile (КОМПIЛЯЦIЯ ПРОГРАМИ)

Команда Compile компілює (переводить у машинні коди, "зрозумілі" для ЕОМ ) BAS-програму, яка завантажена в оперативну пам'ять. Компiляцiя може здійснюватися в оперативну пам'ять ЕОМ , в EXE-файл або TBC-файл в залежності від установки опцiї Compile to (в меню команди Options ). EXE-файл, створений системою Turbo-Basic , може виконуватись незалежно в середовищі операційної системи DOS . TBC-файл за своєю структурою схожий на EXE-файл, але може виконуватися тільки в середовищі системи Turbo-Basic.

Якщо ви не визначили головний файл опцiєю Main file (в меню команди File ), то буде компілюватися завантажений файл. Якщо головний файл визначено i ви коректували допоміжний робочий файл, вам буде запропоновано зберегти його.

При компілюванні у вікно повідомлень (Message ) виводиться число оброблених рядків, операторів i деяка інша інформація.

Якщо під час компіляції програми буде знайдена помилка, Turbo-Basic перейде в режим редагування (Edit ), вкаже курсором місце знаходження помилки в тексті, а в верхньому рядку стану редактора з'явиться повідомлення про тип помилки. Пiсля коректування ви можете знову запустити програму на компіляцію.

Рекомендується перед запуском програми (режим Run ) спочатку відкомпілювати її. В противному разі при виконанні програми ЕОМ може "зависнути" через значні помилки в програмі.

Options (ОПЦІЇ СИСТЕМИ)

Після виконання команди Options на екрані з'явиться таке меню опцiй:

Розглянемо стисло всі команди меню опцiй.

Compile to Як вказувалося вище, компіляція проводиться в оперативну пам'ять ЕОМ , EXE-файл або TBC-файл. Щоб вибрати необхідний режим, використовується розглядувана опцiя. Вона надає можливість вибору трьох режимів: Memory , EXE file , Chain , відповідно вказаним варіантам компіляції.

Hаступнi п'ять опцiй використовуються при вiдладцi програми. При створенні EXE-файлу їх можна вимкнути (режим OFF), щоб вони не займали зайвого місця.

8087 required Ця опцiя встановлюється в режим ON для ЕОМ , яка має арифметичний сопроцесор типу Intel 8087 . При цьому вiдкомпiльованi програми працюють значно ефективнiше. Пpоте, якщо ви створите EXE-програму з даною опцiєю в режимі ON , то вона не буде працювати на ЕОМ , яка не має сопроцесора.

Keyboard break В багатьох випадках надзвичайно бажано мати можливість перервати виконання запущеної програми. Звичайно це стосується ситуації, коли внаслідок допущених при створенні програми помилок, вона "зависає" в процесі виконання. Розглядувана опцiя в режимі ON дозволяє здійснити переривання під час виконання програми натисненням клавіш Ctrl+Break в багатьох (але далеко не у всіх) випадках. Викоpистовуйте опцiю Auto save edit (в меню команди Setup ), встановивши її в режимі ON , для автоматичного зберігання відредагованої програми перед її запуском.

Bounds Ця опцiя в режимі ON контролює правильність зміни індексів масивів, згідно їх границь, встановлених в операторах розмірності.

Overflow Ця опцiя в режимі ON контролює ситуацію переповнення при виконанні арифметичних операцій над цілими числами, які повинні лежати в межах від 32768 до +32767 .

Stack test При виконанні підпрограм, функцій, процедур, деякі дані заносяться в певну обмежену ділянку оперативної пам'яті, яка зветься стеком. Якщо програма містить досить багато вкладених операцій вказаного типу, може виникнути ситуація переповнення стеку, що приведе до непередбачених наслідків. Для контролю цієї ситуації встановіть розглядувану опцiю в режим ON . Для зміни розмірів стеку використовуйте метаоператор $STACK .

Parameter line Ця опцiя дозволяє моделювати інформацію командного рядка, щоб допомогти Вам при вiдладцi програм.

Metastatements Ця опцiя контролює три метаоператори при компіляції програми: Stack size (ви можете встановити розмір стеку), Music buffer (ви можете визначити розмір музичного буферу, який використовується при виконанні фонової музики), Communications (ви можете змінити розподіл прийомного буферу кожного порту зв'язку).

Setup (НАСТРОЙКА СИСТЕМИ)

У результаті виконання команди Setup на екрані з'явиться таке меню настройки (установки):

Розглянемо стисло всі команди меню настройки (установки).

Colors Ця команда дозволяє змінити кольори кожного атрибуту будь-якого вікна та меню всіх рівнів системи. Настройка буде втрачена при виході з системи, якщо ви не зберегли її командою Save Options/Window/Setup .

Directories Ця команда дозволяє задати диски та шляхи пошуку трьох директорiїв, які використовуються системою Turbo-Basic : Include для файлів, які містять директиви компіляції Include ; Executable для EXE- i TBC-файлiв; Turbo для файлів системи Turbo-Basic (TBHELP.TBH та TBCONFIG.TB ).

Miscellaneous Ця команда дозволяє встановити в режим ON/OFF вище згадані опцiї Auto save edit та Backup source file .

Load Options/Window/Setup Ця команда дозволяє завантажити файл конфігурації з Turbo-директорiю (за умовчанням TBCONFIG.TB ) та встановити всі записані там режими опцiй.

Save Options/Window/Setup Ця команда дозволяє зберегти на диску в Turbo-директорiю файл конфігурації, записуючи в нього установку всіх опцiй системи. Якщо скористатися іменем за умовчанням TBCONFIG.TB , то ця установка буде проведена автоматично при запуску системи.

Window (ВIКНА СИСТЕМИ)

У результаті виконання команди Window на екрані з'явиться таке меню вiкон:

Розглянемо стисло всі команди меню вiкон.

В режимі основного меню ви можете змінити місце знаходження та розміри будь-якого активного вікна (виділяється подвійною рамкою, якщо задано спосіб показу Tile (черепиця), або виводиться на передній план, якщо задано спосіб показу Stack (стек)). Для цього натисніть клавішу Scroll Lock , а потім, утримуючи натисненою клавішу Shift , використовуйте клавіші переміщення курсора.

Open Ця команда дозволяє вибрати (відкрити) будь-яке з чотирьох вiкон: Edit , Run , Message , Trace . Вибране (відкрите) вікно стає активним. Всі інші команди меню вiкон впливають на активне вікно.

Close Ця команда закриває вікна (робить їх невидимими).

Next Ця команда дозволяє вибирати наступне вікно активним, не використовуючи команду Open . Команду можна виконати з головного меню, натискаючи клавішу F6 .

Goto Пiсля того як ви відкрили вікно, ви можете увійти до нього, використовуючи вказану команду, без звертання до головного меню.

Tile Команда задає спосіб показу вiкон, при якому всі вони видимі та займають майже однакові площі.

Stack Команда задає спосіб показу вiкон, при якому всі вони мають найбільші розміри та накладаються один на одне.

Zoom Команда дозволяє збільшити вікна Edit i Run до розмірів всього екрана. Розглядувану команду можна виконати з головного меню, натискуючи клавішу F5 .

Debug (ВIДЛАДКА ПРОГРАМИ)

У результаті виконання команди Debug на екрані з'явиться таке меню вiдладки:

Розглянемо стисло всі команди меню вiдладки.

Trace При увімкненні цієї команди (режим ON ) Turbo-Basic під час виконання програми виводить у вікно Trace номери рядків, мiтки операторів, імена процедур або функцій, які виконуються в даний час. Викоpистовуйте клавіші Alt+F9 для перемикання режимів трасування та звичайного виконання програми. Клавіші Alt+F10 дозволяють перемикати трасування на покpоковий режим.

Run-time error Ця команда при виявленні помилки в EXE- або в TBC-файлах дозволяє знайти її місцеположення в тексті програми.

ЗАГАЛЬHI ВIДОМОСТI ПРО БЕЙСIК

Формат програмного рядка БЕЙСIКА

Програма, яка написана на мові Бейсік , являє собою сукупність програмних рядків. В Turbo-Basic нумерація рядків необов'язкова.

Рядок програми може містити декілька операторів Бейсіка , які відокремлюються один від одного символом ": ". Загальна довжина програмного рядка не повинна перевищувати 255 знаків.

Константи БЕЙСIКА

В Бейсік -програмi можуть використовуватися константи числа або ланцюжки знаків , написані безпосередньо в тексті програми.

Константи поділяються на числові та символьні (рядкові ).

Символьна константа це послідовність знаків, довжиною не більше ніж 255 , яка береться в лапки (").

Числові константи поділяються на цілі та дійсні .

Цілі константи можуть бути представлені в десятковій , восьмирічній та шістнадцятирічній формах; дійсні константи в десятковій та експоненціальній формах.

Цілі константи в десятковій формі лежать в межах від 32768 до +32767 .

Цiла константа в восьмирічній формі це послідовність восьмирічних цифр (0,1,...,7 ), перед якою стоїть префікс &O або просто & .

Цiла константа в шістнадцятирічній формі це послідовність шістнадцятирічних цифр (0,1,...,9,A,B,C,D,E,F ), якій передує префікс &H .

Дійсні константи можуть бути представлені в двох форматах: із звичайною та подвійною точністю.

Змінні БЕЙСIКА

Змінні , як i константи, поділяються на числові та символьні (рядкові ). Числовiй змінній можна присвоїти значення будь-якого числа, символьній значення рядка знаків довжиною від 0 до 255 символів.

Iмена змінних можуть бути будь-якої довжини, але Бейсік відрізняє імена за першими 40 символами. В іменах змінних можуть використовуватися літери, цифри та крапка. Резервовані слова Бейсіка не можуть використовуватися як імена змінних.

Iмена змінних визначають їх тип (числові або символьні), а також точність числової змінної.

Iм'я символьної змінної повинно закінчуватися знаком $ .

В імені числової змінної останній символ визначає:

Масиви БЕЙСIКА

Поpяд з константами та змінними в програмах можуть використовуватися масиви . Перед використанням масиву в програмі оголошується ім'я , тип та кількість елементів масиву. Для цього використовується оператор розмірності масиву DIM .

Якщо в програмі звертатися до елементу одновимірного масиву раніше, ніж цей масив буде визначено, то розуміється, що такий масив створений в пам'яті i включає 11 елементів (від нульового до десятого). Звеpнення до елементів двовимірного масиву перед його визначенням неможливо!

Арифметичні операції

Для виконання арифметичних операцій в Бейсік -програмi використовуються наступні оператори:

Операцiї відношення

В операціях відношення порівнюються два значення, які можуть бути обидва числовими або обидва символьними. В результаті отримуємо одне із значень: "так " (1 ) або "ні " (0 ), які можуть використовуватися для управління ходом виконання програми (дивись оператор IF ).

Викоpистовуються наступні операції відношення:

Логічні операції

В логічних операціях виконуються побiтовi дії над операндами, попередньо перетворені в цілі (якщо це необхідно). Значення операндiв завжди знаходяться в межах від 32678 до +32767 . Кожний операнд розглядається як послідовність шістнадцяти біт, над якими виконуються дії з допомогою наступних операторів:

Символьні вирази

Поняття "символьний вираз " означає окремі символьні константи та змінні, а також їх комбінації з використанням оператора зчеплення . Для оператора зчеплення використовується символ + . В результаті операції зчеплення виконується об'єднання (зчеплення) символьних значень двох змінних або змінної та символьної константи.

ОПЕРАТОРИ БЕЙСIКА

BEEP

Увiмкнення звукового сигналу.

BLOAD спф [, x]

Зчитування з диска в ОЗП (оперативний запам'ятовуючий пристрій ) файлу в двiйковому форматі.

спф специфікатор файлу;

x числовий вираз із значенням від 0 до 65535 адрес завантаження, який вказує зміщення в сегменті пам'яті, що визначений останнім оператором DEF SEG .

BSAVE спф, x, y

Запис з ОЗП на диск у двійковому форматі.

спф специфікатор файлу;

x числовий вираз із значенням від 0 до 65535 адрес, починаючи з якого зчитується файл, і який вказує на зміщення в сегменті пам'яті, визначеному останнім оператором DEF SEG ;

y числовий вираз із значенням від 1 до 65535 довжина ділянки пам'яті (в байтах), що записується.

CALL ім'я [(d [, d] ...)]

Виклик підпрограми на мові машини.

ім'я ім'я числової змінної, значення якої вказує адресу точки входу до підпрограми (зміщення в поточному сегменті пам'яті, визначеного останнім оператором DEF SEG );

d ім'я змінної, яка передається в підпрограму в якості аргументу.

CHDIR шлях

Змiна активного каталогу.

шлях символьний вираз, який вказує каталог, який повинен стати активним.

CIRCLE (x, y), рад [, кл [, поч, кін [, вiдн] ] ]

Виведення на екран еліпса. Викоpистовується тільки в графічному режимі екрана.

(x,y) координати центру еліпса;

рад радіус більшої вісі еліпсу (в точках екрана);

кл число, яке вказує колір еліпса;

поч , кін позначають кути (від 2 до 2 ) дуги еліпса;

вiдн відношення X - до Y -радiусу.

CLEAR [, [ n ] [, m ] ]

Очищення пам'яті. Всі числові змінні встановлюються в нуль, всі символьні отримують пусте значення.

n лічильник байтiв, встановлює максимальний об'єм робочої області Бейсiка (в байтах);

m розмір стеку Бейсiка (в байтах).

CLOSE [ нфл [ [, нфл ] ...]

Завершення виводу інформації в файл. Файл закривається.

нфл номер файлу (який вказаний в операторі OPEN ).

CLS

Очищення екрана.

COLOR [nn] [, [фон] [, бордюр] ]

Встановлення кольору екрана в текстовому режимі.

nn числовий вираз із значенням від 0 до 31 , який являє собою колір переднього плану (колір символу). Колір вибирається з інтервалу чисел 0 15 ; додавання 16 до кольору переднього плану означає мигання символу;

фон числовий вираз із значенням від 0 до 7 колір фону;

бордюр числовий вираз із значенням від 0 до 15 ; являє собою колір бордюру (незаповненої текстом області на межах екрана).

COLOR [фон] [, палітра]

Встановлення кольору екрана в графічному режимі.

фон числовий вираз із значенням від 0 до 15 , являє собою колір фону;

палітра числовий вираз, який визначає колір графічної інформації, що виводиться на екран. Цей колір можна вказувати цифрами 1, 2, 3 , які означають різні кольори, в залежності від вказаного параметру палітра .

COMMON d [, d] ...

Передача змінних викликаючiй програмі.

d ім'я змінної або масиву, які повинні бути передані викликаючiй програмі. Масив вказують з парою круглих дужок "()" за його іменем.

DATA c [, c] ...

Ствоpення в пам'яті таблиці констант, які потім зчитуються оператором READ .

c будь-яка числова або символьна константа. Символьну константу необов'язково заключати в лапки, якщо тільки вона не містить ком, двокрапок та проміжків на початку або в кінці.

DATE$ = x$

Установлення системної дати.

x$ символьний вираз, який використовується для установки дати.

DEF FNiм'я [(a[, a] ...)] = b

Визначення функції користувача.

FNiм'я ім'я, яке присвоюється функції (включає дві обов'язкові перші літери, які вказані в форматі);

a ім'я змінної, що являє собою аргумент, якому при виклику функції присвоюється значення відповідного (за порядком в списку) параметру;

b вираз, тип якого відповідає типу функції, визначеному її іменем.

DEF SEG [ = адреса]

Визначення поточного сегменту пам'яті (використовується операторами BLOAD , BSAVE , CALL , POKE ). Оператор встановлює адресу, яку потім можна використовувати для завантаження в пам'ять даних або зчитування даних з ОЗП.

адреса числовий вираз із значенням від 0 до 65535 .

DEFt a [ a] [, a [ a] ] ...

Оголошення типів змінних за першою літерою імені.

t тип змінної; може приймати значення:

INT цілий,

SNG звичайної точності,

DBL подвійної точності,

STR символьна (рядкова);

a літера латинського алфавіту ( A Z );

a a означає відрізок алфавіту.

DEF USR [n] = m

Указання точки входу до підпрограми на машинній мові (використовується функцією USR ).

n цифра від 0 до 9 (за умовчанням 0 ), яка визначає номер підпрограми користувача на машинній мові, адреса якої вказується;

m цілий вираз із значенням від 0 до 65535 , що задає зміщення точки входу в визначену користувачем підпрограму в поточному сегменті.

DIM ім'я (a) [, ім'я (a) ] ...

Об'явлення масиву та резервування пам'яті для його розміщення.

ім'я ім'я масиву;

a список числових виразів, що визначають розмірність масиву; елементи списку відділяються комами.

При виконанні оператора DIM всі елементи числових масивів встановлюються в 0 , а символьних в порожній рядок.

Мiнiмальне значення кожного індексу рівне 0 , якщо тільки цей мінімум не пеpевизначений оператором OPTION BASE .

DRAW x$

Виведення на екран малюнка, що описаний в x$. Викоpистовується тільки в графічному режимі екрана.

x$ символьний вираз, значення якого інтерпретується як набір команд роботи з екраном. При виконанні цього оператора Бейсiк переглядає значення x$ i окремі літери інтерпретує як команди, які описані нижче. Кожна команда переміщення починає рух із точки останнього посилання, яка є останньою точкою попереднього переміщення.

Un переміщення уверх,

Dn переміщення униз,

Ln переміщення уліво,

Rn переміщення управо,

En переміщення по діагоналі уверх та управо,

Fn переміщення по діагоналі униз та управо,

Gn переміщення по діагоналі униз та уліво,

Hn переміщення по діагоналі уверх та уліво,

Mx,y абсолютне або відносне переміщення.

n вказує відстань переміщення; кількість точок отримується множенням n на коефіцієнт шкали (дивись команду S нижче).

x,y координати точки, до якої проводиться переміщення; якщо x не передує знак (+ або ), то x,y абсолютні координати точки переміщення, iнакше це координати відносно точки останнього посилання.

Hаступнi дві літери використовуються як префікси команд переміщення:

B перемістити, але не малювати;

N перемістити, потім повернутися в попередню позицію.

Також допустимі такі команди:

Sn встановлення коефіцієнта шкали (1 < n < 255 ). Коефiцiєнт шкали дорівнює n/4 ; він діє на всі команди переміщення, крім команди M абсолютного переміщення. За умовчанням n = 4 .

Xa$ ; виконати значення a$ , де a$ рядкова змінна.

END

Завершення виконання програми, повернення до рівня команд.

Оператор закриває файли.

ERASE ім'я [, ім'я] ...

Вилучення масивів із програми.

ім'я ім'я масиву, який потрібно вилучити.

Оператор вивільняє пам'ять, яку займали вказані масиви, вилучає їх імена, які можуть бути потім використані повторно.

ERROR n

Моделювання ситуації помилки в Бейсiку. Визначення особистих кодів помилок.

n цілий вираз із значенням від 0 до 255 .

FIELD [#]нфл, об'єм AS v$ [, об'єм AS v$] ...

Видiлення пам'яті для змінних у буфері файлу довільного доступу.

нфл номер відкритого файлу;

об'єм числовий вираз, що вказує кількість виділених байтiв (об'єм буфера);

v$ символьна змінна, яка використовується для обміну даними.

FILES [спф]

Виведення на екран імен файлів, які розміщені на диску.

спф специфікатор файлу, ім'я якого виводиться на екран.

За умовчанням виводяться імена всіх файлів, що розміщені на диску.

FOR a = x TO y [STEP z]

[оператори]

NEXT [a] [, a] ...

Виконання циклу повторення послідовності операторів вказану кількість разів.

a ціла або змінна звичайної точності, яка використовується як лічильник повторень;

x, y, z числові вирази, які визначають початкове, кінцеве значення та приріст лічильника, відповідно.

Допускаються вкладені цикли.

GET[#] нфл [, n]

Читання в буфер запису файлу з довільним доступом.

нфл номер відкритого файлу;

n номер запису (1 16777215 ), який треба прочитати; за умовчанням наступний запис (після останнього GET ).

Оператор читає з диска в буфер дані, які потім можуть бути використані операторами INPUT i LINE INPUT# . Значення з буфера можуть присвоюватися змінним, які визначені в операторі FIELD .

GET (x1, y1) (x2, y2), масив

Читання області екрана у вказаний масив. Оператор застосовується тільки в графічному режимі.

(x1, y1) i (x2, y2) координати області екрана в абсолютній або відносній формі;

масив ім'я масиву, який призначається для зберігання зчитаної інформації. Масив повинен бути числовим, але будь-якої точності. Необхідний розмір масиву (в байтах):

4+INT((x b+7)/8) y ,

де

x число точок по горизонталі,

y число точок по вертикалі,

b = 2 для режиму екрана 320 200 точок та

b = 1 для режиму екрана 640 200 точок.

GOSUB нпp

[оператори] ...

RETURN

Перехiд до підпрограми та повернення з підпрограми.

нпp номер початкового рядка підпрограми.

Можна застосовувати вкладені підпрограми.

GOTO нпp

Перехiд до програмного рядка.

нпp номер програмного рядка, до якого виконується перехід.

IF x [,] THEN оператори [ELSE оператори]

IF x [,] GOTO нпp [[,] ELSE оператори]

Умовний перехід.

x будь-який числовий вираз;

оператори оператор або послідовність розділених двокрапками операторів або номер рядка (еквівалентне оператору GOTO );

нпp номер програмного рядка.

Якщо значення x істина, то виконуються оператори, які записані після THEN (або перехід до рядка нпp ). Інакше оператори за THEN пропускаються i виконуються оператори після ELSE , якщо вони є.

INPUT [;] ["підказка";] a [, a] ...

Очiкування введення з клавіатури під час виконання програми.

"підказка" рядок знаків, що використовується як підказка користувачу;

a ім'я числової або символьної змінної або елементу масиву, які при введенні отримають значення.

INPUT #нфл, a [, a] ...

Введення даних з послідовного пристрою або з файлу та присвоєння значень змінним в програмі.

нфл номер відкритого файлу;

a ім'я числової або символьної змінної або елемент масиву.

KEY (n) режим

Установлення або відміна режиму обробки переривань від функціональних клавіш та клавіш керування курсором.

n числовий вираз із значенням від 1 до 20 , яке відповідає клавіші:

1 10 F1F10;

11,12,13,14 курсор уверх, уліво, управо, униз, відповідно.

KILL спф

Вилучення вказаного файлу на диску.

спф специфікатор файлу (пристрій, ім'я файлу, розширення), який вилучається. Для пристрою за умовчанням активний диск.

[LET] a = b

Оператор присвоєння.

a ім'я змінної або елемент масиву;

b вираз, значення якого присвоюється a ; тип виразу повинен співпадати з типом a .

LINE [(x1, y1)] (x2, y2) [, [кл] [, B[F] ] ] [, маска]

Виведення на екран лінії або прямокутника. Викоpистовується тільки в графічному режимі екрана.

(x1, y1), (x2, y2) координати в абсолютній або відносній формі;

кл колір (дивись оператор COLOR ); за умовчанням колір переднього плану;

B виведення прямокутника, координати діагоналі якого (x1, y1) та (x2, y2) ; за умовчанням виводиться лінія, яка сполучає точки (x1, y1) та (x2, y2) ;

BF заповнення виведеного прямокутника вказаним кольором;

маска цілий вираз, який використовується як 16 -бітовий зразок для проведення пунктирної лінії.

LINE INPUT [;] ["коментар";] v$

Чекання введення з клавіатури рядка знаків.

"коментар" рядок знаків, які виводяться на екран при виконанні оператора (на відмінність від INPUT знак "? " не виводиться);

v$ ім'я символьної змінної (або елемент символьного масиву), якій присвоюються всі знаки введеного рядка до натискання клавіші Enter .

LINE INPUT #нфл, v$

Зчитування рядка з послідовного файлу або з пристрою.

нфл номер відкритого файлу (із знаком #);

v$ ім'я символьної змінної (елемент символьного масиву), яка отримує значення прочитаного рядка.

LOCATE [a] [, [b] [, c] [, [d] [,e] ] ]

Встановлення курсору.

a числовий вираз із значенням від 1 до 25 , який вказує номер рядка екрана;

b числовий вираз із значенням від 1 до 40 або до 80 (в залежності від ширини екрана), який вказує номер позиції в рядку екрана;

c індикатор видимості курсора: 0 невидимий, 1 видимий;

d,e числові вирази із значеннями від 0 до 31 ; дозволяють вказати розмір курсора.

Параметри c , d , e не застосовують в графічному режимі.

Пiсля LOCATE оператори виводу будуть розміщувати дані на екрані, починаючи з вказаного місця.

LPRINT [список] [;]

LPRINT USING v$; список [;]

Дpукування даних на дpукуючому пристрої (LPT1:).

список список числових та/або рядкових виразів, значення яких друкуються; вирази розділяються комою або крапкою з комою;

v$ рядкова константа або змінна, яка вказує формат друку (дивись оператор PRINT USING ).

LSET v$ = x$ або RSET v$ = x$

Розмiщення даних у буфері файлу з довільним доступом.

v$ ім'я змінної, визначеної в операторі FIELD ;

x$ символьний вираз, який розміщується в полі змінної v$ .

Перед використанням LSET та RSET числові значення повинні бути перетворені в символьні (дивись функції MKI$ , MKS$ та MKD$ ).

MID$ (v$, n [, m]) = y$

Замiна частини символьної змінної новим значенням.

v$ символьна змінна або елемент символьного масиву;

n цілий вираз із значенням від 1 до 255 позиція в змінній v$ ;

m цілий вираз із значенням від 0 до 255 довжина замiнюючої частини;

y$ символьний вираз.

Пpи виконанні оператора перші m символів y$ (за умовчанням всі значення y$ ) заміщуються символами v$ , починаючи з n -го.

Незалежно від m , довжина v$ не змінюється.

MKDIR шлях

Ствоpення нового каталогу.

шлях символьний вираз, який визначає ім'я створюваного каталогу та шлях до нього від кореневого або від поточного каталогу.

Довжина рядка не повинна перевищувати 63 знаки.

NAME спф AS iмф

Перейменування файлу на диску.

спф специфікатор файлу, ім'я якого змінюється;

iмф нове ім'я файлу.

ON COM (n) GOSUB нпp

Установлення номера рядка підпрограми обробки переривань увідного буфера зв'язку.

n (1 або 2 ), 1 канал с2 , 2 перший канал IРПС ;

нпp номер програмного рядка, з якого починається підпрограма обробки переривань; значення 0 маскує переривання від даного адаптера.

ON ERROR GOTO нпp

Дозвiл переривань за помилками та установка точки входу в підпрограму обробки переривання.

нпp номер першого рядка пiдпрограми-обробки переривань.

Пiсля виконання ON ERROR кожна помилка буде причиною переходу до вказаного ряду.

ON n GOTO нпp [, нпp] ...

ON n GOSUB нпp [, нпp] ...

Перехiд до одного з вказаних програмних рядків в залежності від значення виразу.

n числовий вираз (при необхідності заокруглюється до цілого) із значенням від 0 до 255 ;

нпp номер програмного рядка.

При виконанні оператора обчислюється значення виразу n i, в залежності від цього значення, виконується перехід до вказаного рядка (GOTO ) або до підпрограми, яка починається з вказаного рядка (GOSUB ). Значення n визначає порядковий номер у списку номерів програмних рядків. Якщо n = 0 або n більше довжини списку, виконується наступний оператор програми.

ON KEY (n) GOSUB нпp

Установка номера рядка підпрограми обробки переривань від функціональних клавіш.

n числовий вираз від 1 до 20 , який вказує функціональну клавішу;

нпp номер рядка обробника переривань для вказаної клавіші; значення 0 забороняє переривання від клавіші.

ON PLAY (n) GOSUB нпp

Установка номера рядка підпрограми обробки переривання від фонової музики.

n числовий вираз із значенням від 1 до 32 , що визначає умову переривання від фонової музики;

нпp номер рядка обробника переривання від фонової музики; указання нульового номера рядка відміняє обробку переривань від фонової музики.

Для запуску фонової музики використовується оператор PLAY ON .

ON TIMER (n) GOSUB нпp

Установка номера рядка підпрограми обробки переривань від таймера.

n числовий вираз із значенням від 1 до 86400 , який визначає умови переривання від таймера;

нпp номер рядка обробника переривань від таймера; указання нульового номера рядка відміняє обробку переривань від таймера.

Умова переривання від таймера це закінчення вказаного в операторі ON TIMER проміжку часу. Параметр n вказує проміжок часу в секундах. Для запуску таймера використовується оператор TIMER ON .

OPEN спф [FOR режим] AS [#]нлф [LEN = n]

OPEN v$, [#]нлф, спф[, n]

Вiдкpиття файлу.

режим режим відкриття:

OUTPUT послідовне виведення;

INPUT послідовне введення;

APPEND дозапис послідовне введення, але при відкритті файлу встановлюється на його кінець; пропущений прямий доступ;

v$ інша форма представлення режиму символьний вираз, тільки перший знак якого істотний:

O послідовне виведення (OUTPUT );

I послідовне введення (INPUT );

R прямий доступ (введення i виведення);

нфл номер файлу; цілий вираз із значенням від 1 до максимально допустимого числа відкритих файлів;

n цілий вираз, що визначає довжину запису файлу з довільним доступом (від 1 до 32767 , за умовчанням 128 ).

Пiсля відкриття файлу його номер (нфл ) можна вказати в таких операторах та функціях: PRINT# [USING] , [LINE] INPUT# , GET[#] , PUT[#] , WRITE# , INPUT# .

OPTION BASE n

Об'явлення мінімального значення індексів масивів.

n = 0 або n = 1 (за умовчанням 0 ).

Оператор встановлює мінімальне значення, яке можуть приймати в програмі індекси числових та символьних масивів.

Оператор повинен передувати всім визначенням або використанням масивів у програмі.

OUT n, m

Посилання байта в порт виводу.

n числовий вираз, що визначає номер порту, із значенням від 0 до 65535 ;

m числовий вираз із значенням від 0 до 255 , що визначає байт, який передається.

PAINT (x, y) [[, кл] [, край] [, фон]]

Заповнення області екрана вибраним кольором. Викоpистовується тільки в графічних режимах.

(x, y) координати якої-небудь точки всередині області; їх можна задавати в прямій або у відносній формах;

кл числовий вираз, що визначає атрибут кольору для заповнення області (допустимі значення залежать від режиму екрана дивись оператор COLOR ) або символьний вираз, значення якого використовується як зразок для виведення на екран.

край числовий вираз, що визначає атрибут кольору границі області;

фон символьний вираз, значенням якого є один знак; використовується тільки тоді, коли параметр кл заданий символьним виразом.

PLAY x$

Виведення послідовності звуків (мелодії), визначеної символьним виразом.

x$ символьний вираз, знаки якого інтерпретуються як наступні команди:

A або B або C або D або E або F або G [# або + або ] вказує ноту поточної октави, знаки "# " або "+ " означають дiєз, знак "" бемоль. Ці знаки недопустимі, якщо ноти не відповідають чорним клавішам фортепіано.

On встановлює поточну октаву, n = 0,...,6 . Кожна октава починається C i закінчується B . За умовчанням діє октава 4 ;

Nn вказує абсолютний номер ноти, n = 0,...,84 ;

Ln вказує тривалість звучання наступних нот, n = 1,...,64 . Тpивалiсть звучання ноти рівна 1/ n . Число n можна вказати після ноти воно діє тільки на цю ноту;

Pn вказує тривалість паузи, n = 1,...,64 ; символ ". " після ноти або паузи збільшує тривалість в 3/2 рази;

Tn темп. Встановлює кількість четвертин нот у хвилину. За умовчанням n = 120 ;

MF музика переднього плану;

MB фонова музика;

MN нонлегато;

ML легато;

MS стаккато;

Xx$ виконати рядок, вказаний в символьній константі x$ . Промiжки всередині символьної константи при виконанні оператора PLAY ігноруються.

POKE n, m

Запис байта в пам'ять за вказаною адресою.

n числовий вираз із значенням від 0 до 65535 зміщення в поточному сегменті пам'яті (дивись DEF SEG ), адреса для розміщення байта;

m числовий вираз із значенням від 0 до 255 байт даних.

PRINT [список] [;] або ? [список] [;]

Виведення даних на екран.

список список числових та/або символьних виразів, що розділені комою, проміжком або крапкою з комою.

Символьні константи повинні бути в лапках.

PRINT USING v$; список[;]

Виведення даних на екран у вказаному форматі.

v$ символьна константа або змінна, що визначає формат виведення (дивись нижче);

список розділений комами або крапками з комами список числових або символьних виразів, значення яких виводяться.

Для виводу символьних виразів використовується один із наступних трьох символів формату:

! вказує, що виводиться тільки перший знак значення;

\проміжки\ n проміжків вказують, що друкується рядок з n+2 знаків;

& вказує на виведення поля довжиною, рівної довжині значення.

Для виводу чисел можна використовувати наступні символи формату:

# представляє позицію десяткової цифри;

. представляє десяткову крапку;

+ вказує, що знак числа виводиться в цю позицію;

вказує, що знак від'ємного числа виводиться в цю позицію.

PRINT # нфл, [USING v$;] список

Послiдовне виведення даних у файл.

нфл номер відкритого файлу, в який виводяться дані;

v$ символьний вираз, який містить знаки формату (дивись PRINT USING );

список список числових або символьних виразів, які підлягають виведенню.

Оператор дозволяє виводити дані у файл з послідовним доступом.

PSET (x, y) [, кл]

PRESET (x, y) [, кл]

Виведення точки у вказану позицію екрана. Викоpистовується тільки в графічних режимах.

(x,y) координати точки; можуть задаватися в абсолютній або відносній формах;

кл колір вказаної точки; за умовчанням колір палітри.

PRESET відрізняється від PSET тільки умовчанням для параметру кл . Якщо PSET за умовчанням використовує колір палітри, то RESET використовує колір фону.

PUT [#] нфл [, n]

Виведення запису з буферу в файл з довільним доступом.

нфл номер відкритого файлу;

n номер запису (1 16777215 ); за умовчанням виводиться наступний (відносно попереднього PUT # ) запис.

Оператор PUT# протилежний за дією оператору GET# .

PUT (x, y) масив [, режим]

Виведення на екран графічної інформації з вказаного масиву. Застосовується тільки в графічному режимі.

(x,y) координати лівого верхнього кута зображення "прямокутника виведення" (дивись оператор GET );

масив числовий масив, який містить інформацію для виведення;

режим один із вказаних:

PSET , PRESET , XOR , OR або AND (за умовчанням XOR );

Оператор PUT за дією протилежний оператору GET .

RANDOMIZE [n]

Генератор псевдовипадкових чисел.

n цілий вираз із значенням від 32768 до 32767 , використовується для установки початкового стану генератора.

Оператор RANDOMIZE запускає генератор псевдовипадкових чисел. Якщо параметр n відсутній, то програма зупиняється i запитує початковий стан.

READ a [, a] ...

Зчитування значень з оператора DATA та присвоєння їх змінним.

a числова або символьна змінна або елемент масиву, які отримують значення з таблиці оператора DATA .

REM коментар

Введення в програму коментаря.

коментар будь-яка послідовність знаків.

REM може бути замінений символом ' (апостроф).

RESET

Закриття всіх файлів на диску.

RESTORE [нпp]

Установка покажчика на початок даних в операторі DATA .

нпp номер рядка, в якому знаходиться оператор (або один з операторів) DATA ; за умовчанням перший з операторів DATA в програмі.

RESUME [адреса]

Продовження виконання програми після процедури виправлення помилки (вихід з обробника помилок).

адреса точка повернення в програму після виходу з обробника переривань.

RETURN [нпp]

Повеpнення з підпрограми.

нпp номер рядка, до якого відбувається повернення; за умовчанням повернення в точку виходу по оператору GOSUB .

RMDIR шлях

Видалення пiдкаталога.

шлях символьний вираз, що вказує на каталог, який видаляється.

SCREEN [режим] [, t [, [a] [, b ] ] ]

Установка атрибутів екрана.

режим числовий вираз із значенням 0, 1, 2 :

0 текстовий режим шириною 40 або 80 знаків (визначається оператором WIDTH );

1 графічний режим середньої розрiзняючої здатності (320 200 );

2 графічний режим високої розрiзняючої здатності (640 200 );

t числовий вираз, значення якого (0 або не 0 ) означає:

для режиму 0 : не 0 дозволяє колір,

0 забороняє колір (зображення чоpно-бiле);

для режиму 1 : не 0 забороняє колір,

0 дозволяє колір;

для режиму 2 : значення несуттєве; дозволено тільки чорно-бiле;

a (активна сторінка) i b (видима сторінка) вибір сторінок екрана. Допустимо тільки в режимі 0 . За умовчанням a = b .

SOUND част, тpив

Генерацiя звукового сигналу.

част частота звука (Гц ) числовий вираз із значенням від 37 до 32767 ;

тpив тривалість звука в імпульсах таймеру числовий вираз із значенням від 0 до 65535 .

SWAP b1, b2

Обмiн значень двох змінних.

b1, b2 імена змінних або елементів масиву, які обмінюються значеннями; повинні бути одного типу.

TIME$ = x$

Установка поточного часу.

x$ символьний вираз, що вказує поточний час в належному форматі.

TIMER режим

Дозвiл/заборона переривання від таймера.

режим : ON дозволяє переривання по оператору ON TIMER ;

OFF відключає таймер;

STOP забороняє переривання.

VIEW [ [SCREEN] [ (x1, y1) - (x2, y2) [, [кл] [границя] ] ] ]

Визначення прямокутної пiдмножини точок екрана, так званого "вікна". Викоpистовується тільки в графічних режимах екрана.

(x1,y1) i (x2,y2) координати лівого верхнього та правого нижнього кутів вікна; координати задаються в абсолютній формі;

кл цілий вираз, що визначає атрибут кольору, який заповнює вікно. Допустимі значення від 0 до 3 для режиму середньої розрiзняючої здатності та 0 або 1 для режиму високої розрiзняючої здатності.

Якщо параметр відсутній, вікно не заповнюється;

границя цілий вираз, що визначає атрибут кольору границі вікна;

SCREEN режим доступу до вікна. Якщо параметр відсутній, то координати точок, які виводяться у вікно, розглядаються відносно вікна; якщо параметр вказаний, то координати точок, що відображаються, вважаються абсолютними, а точки, які не потрапили до вікна, не виводяться.

Команда RUN i оператор SCREEN , що змінює атрибути екрана, відміняють дію VIEW . Коли діє оператор VIEW , то все виведення на екран іде у вікно, що визначене у VIEW . Крiм того, VIEW у поєднанні з оператором WINDOW дозволяє визначити локальні системи координат у вікнах екрана.

WAIT порт, n [, m]

Чекання вказаного стану машинного порту.

порт номер порту введення-виведення (0 65535 );

n , m цілі вирази із значеннями від 0 до 255 .

Оператор WAIT затримує виконання програми до тих пір, поки у вказаному порту не з'явиться визначений байт.

WHILE x

оператори

WEND

Цикл з виходом за умовою.

x числовий вираз.

Якщо вираз x не дорівнює нулю, виконуються оператори до WEND i знову обчислюється вираз x . Якщо x знову не дорівнює нулю, цикл повторюється i т. д.

WIDTH [нфл,] ширина

Установка ширини рядка виведення.

нфл числовий вираз із значенням від 1 до 15 номер відкритого файлу на одному з вказаних нижче пристроїв або символьний вираз, що визначає пристрій;

ширина числовий вираз із значенням від 0 до 255 , значення 0 еквівалентне 1 .

Допустимі імена пристроїв: SCRN: , LPT1: , за умовчанням SCRN: . Для SCRN: (екрана) допустима тільки ширина 40 або 80 .

WINDOW [ [SCREEN] (x1, y1) (x2, y2) ] ]

Перевизначення системи координат у "вікні" екрана. Викоpистовується тільки в графічних режимах.

(x1,y1) i (x2,y2) програмно-визначена система координат, так звана локальна система. Числа звичайної точності x1 , y1 , x2 , y2 визначають вершини прямокутного вікна в цій локальній системі. Фізичні координати вершин вікна визначені в останньому операторі VIEW ;

SCREEN визначає направлення осей координат у локальній системі; якщо параметр SCREEN відсутній, то в локальній системі використовуються звичні для математики направлення осей, тобто вісь Y направлена уверх; якщо SCREEN вказаний, то в локальній системі координат осі направлені так само, як i в фізичній системі координат екрана (вісь Y униз).

WRITE [список]

Виведення даних на екран.

список список числових та/або символьних виразів, розділених комами i крапками з комами; за умовчанням виведення порожнього рядка.

Оператор WRITE відрізняється від оператора PRINT тим, що розділяє елементи виводу комами, окрім того додатнім числам не передує пропуск.

WRITE # нфл [, список]

Виведення даних у послідовний файл.

нфл номер відкритого для виводу файлу;

список список числових та/або символьних виразів, що розділені комами або крапками з комами.

Вiдмiннiсть між операторами WRITE# i RRINT# така ж, як і між операторами WRITE i PRINT .

ФУНКЦІЇ ТА СИСТЕМНI ЗМIHHI БЕЙСIКА

У всіх наведених нижче функціях, якщо не обумовлено протилежне, величина x являє собою будь-який допустимий числовий вираз, x$ будь-який символьний (рядковий) вираз, який має непорожнє значення, n ціле число із значенням від 0 до 255 .

ABS (x) абсолютне значення x .

ASC (x$) код першого знаку ланцюжка символів.

Значення функції ціле число від 0 до 255 , яке являє собою код першого символу ланцюжка.

ATN (x) арктангенс x .

CDBL (x) перетворення x в число з подвійною точністю .

CHR$ (n) перетворення цілого в символьне .

Значення функції рядок, який складається з єдиного символу, код якого рівний n . Функцiя CHR$ є оберненою до функції ASC .

CINT (x) заокруглення до цілого .

x числовий вираз із значенням від 32768 до 32767 . Значення функції найближче до x ціле число.

COS (x) косинус x .

x представляє собою кут, що вимірюється в радіанах.

CSNG (x) перетворення x в число звичайної точності .

CSRLIN номер рядка поточного положення курсора .

Значення системної змінної CSRLIN ціле число від 1 до 25 , яке дорівнює номеру рядка поточної позиції курсора активної сторінки екрана.

CVD (x$) перетворення ланцюжка символів в число подвійної точності .

CVI (x$) перетворення ланцюжка символів в ціле число .

CVS (x$) перетворення ланцюжка символів в число звичайної точності .

x$ символьний вираз, довжина якого рівна:

2 для функції CVI ,

4 для функції CVS ,

8 для функції CVD .

Значення функції CVI (CVS , CVD ) рівне значенню цілого числа (числа звичайної точності, числа подвійної точності), представленням якого в кодовій формі править аргумент функції. Функцiї необхідні при обробці файлів з довільним доступом, які містять числову інформацію. Оберненими до вказаних функцій є функції MKD$ , MKI$ , MKS$ .

DATE$ системна дата .

Значення системної змінної DATE$ представляє собою поточну дату у відповідному форматі, встановлену при завантаженні системи або змінену в Бейсiку оператором DATE$ .

EOF (нмф) індикатор умови "кінець файлу" .

нмф номер відкритого файлу.

Функцiя має логічне значення "істина" (1 ), якщо прочитано запис кінця файлу з вказаним номером, i "хибність" (0 ) в противному випадку.

ERL номер рядка програми, який містить помилку .

Системна змінна ERL містить номер програмного рядка, в якому виявлена помилка. Якщо при виконанні програми помилка не була виявлена, то ERL = 0 . Змiнна ERL звичайно використовується в тому випадку, коли користувач пише особисту підпрограму обробки помилок.

ERR код останньої виявленої помилки .

Значення системної змінної ERR ціле число від 0 до 255 , яке вказує код помилки. Якщо ERR = 0 , то помилка не була виявлена.

EXP (x) експонента x .

FIX (x) зрізання числа до цілого .

x будь-який числовий вираз із значенням від 32768 до 32767 . Значення функції отримується відкиданням всіх цифр дробової частини значення аргументу.

FRE (x) або FRE (x$) об'єм вільної пам'яті в робочій області .

Значення аргументу не використовується. Значення функції ціле число, що вказує об'єм (в байтах) вільної частини робочої області Бейсiка . Важливим побічним ефектом обчислення функції FRE є "збирання сміття" (якщо аргумент символьний вираз).

HEX$ (n) перетворення в ланцюжок 16-річних цифр .

n числовий вираз із значенням від 32768 до 65535 .

INKEY$ введення символу з клавіатури .

Значення системної змінної INKEY$ ланцюжок символів довжини 0 , 1 або 2 : порожній ланцюжок вказує, що в буфері клавіатури немає символів; односимвольний ланцюжок містить поточний знак, зчитаний з клавіатури; двосимвольний ланцюжок містить символ розширеного коду (її перший символ завжди є 0 -й символ CHR$(0) ). Змiнна INKEY$ може застосовуватися тільки як права частина оператора присвоєння.

INP (n) зчитування байту з порту введення .

n числовий вираз із значенням від 0 до 65535 , повинно бути конкретним номером порту введення ПЕОМ . Значення функції ціле число від 0 до 255 байт, прочитаний з вказаного порту.

INPUT$ (n[, [#] нмф]) зчитування ланцюжка символів з файлу .

n числовий вираз, який задає кількість зчитуваних з файлу символів; значення n не повинно перевищувати 255 ;

нмф номер відкритого файлу; за умовчанням символи зчитуються з буферу клавіатури.

INSTR ([n,] x$, y$) номер позиції першого входження ланцюжка y$ в ланцюжок x$ .

n числовий вираз із значенням від 1 до 255 ; за умовчанням передбачається значення 1 ;

x$ та y$ будь-які символьні вирази.

INT (x) ціла частина x .

Значення функції ціла частина значення аргументу, тобто найбільше ціле число, яке не перевищує x .

LEFT$ (x$,n) виділення перших символів ланцюжка .

x$ будь-який символьний вираз;

n числовий вираз із значенням від 0 до 255 .

Значенням функції є ланцюжок з перших n символів x$ . Функцiя LEFT$ є частинним випадком функції MID$ .

LEN (x$) довжина ланцюжка символів .

LOC (нмф) поточна позиція файлу .

нмф номер відкритого файлу (числовий вираз).

LOF (нмф) розмір файлу .

нмф номер відкритого файлу (числовий вираз).

LOG (x) натуральний логарифм x .

LPOS (n) поточна позиція друку .

n числовий вираз, що вказує пристрій друку:

n = 0 або 1 для пристрою LPT1: ,

n = 2 для LPT2: , n = 3 для LPT3: .

Значення функції є номером поточної позиції в буфері відповідного пристрою друку.

MID$(x$,n[,m]) виділення частини ланцюжка символів .

x$ будь-який символьний вираз;

n числовий вираз із значенням від 1 до 255 , що визначає номер першого символу, який виділяється з виразу x$ ;

m числовий вираз із значенням від 0 до 255 , що визначає кількість виділених символів; за умовчанням виділяються всі символи x$ , починаючи з n -го.

Значенням функції є ланцюжок символів, виділених з x$ . При m = 0 або при n > LEN(x$) функція буде мати порожнє значення. Частинним випадком MID$ є функції LEFT$ і RIGHT$ .

MKD$ (x) перетворення числа подвійної точності в ланцюжок з восьми символів .

MKI$ (n) перетворення цілого числа в ланцюжок з двох символів .

MKS$ (x) перетворення числа звичайної точності в ланцюжок з чотирьох символів .

Вказані функції є оберненими до розглянутих вище функцій CVD , CVI , CVS .

OCT$ (n) перетворення в ланцюжок вісімкових цифр .

n числовий вираз із значенням від 32768 до 65535 .

PEEK (n) вміст байту пам'яті .

n числовий вираз із значенням від 0 до 65535 , що визначає зміщення байту в поточному кодовому сегменті (дивись оператор DEF SEG ). Результат вміст байту пам'яті з вказаною адресою у форматі цілого із значенням від 0 до 255 .

PLAY (n) кількість нот в буфері фонової музики .

n фіктивний аргумент, який може приймати будь-яке значення. Значенням функції є кількість нот у буфері фонової музики (режим MB оператора PLAY ). Максимальне значення функції 32 .

PMAP (x,n) перетворення локальних координат екрана в фізичні i навпаки. Застосовується тільки для графічних режимів екрана .

x координата точки екрана, яка підлягає перетворенню;

n визначає вид перетворення (n = 0,1,2,3 ).

Функцiя PMAP виконує перетворення між фізичною системою координат на екрані та локальною системою координат, визначеною в останньому виконаному операторі WINDOW .

POINT (n) координата точки екрана. Тiльки для графічних режимів екрана .

n = 0 фізична координата x (рядок);

n = 1 фізична координата y (стовпець);

n = 2 локальна координата x (рядок);

n = 3 локальна координата y (стовпець).

Значенням функції є вказана аргументом координата поточної точки екрана. Повеpтається фізична або локальна координата в системі, встановленій останнім оператором WINDOW .

POINT (x,y) атрибут точки екрана. Тiльки для графічних режимів екрана .

x,y числові вирази, які задають в абсолютній формі координати точки екрана. Значенням функції є атрибут (колір) вказаної точки екрана.

POS (x) стовпець поточного положення курсора .

x фіктивний аргумент. Значення функції ціле число від 1 до 40 або до 80 в залежності від ширини екрана (дивись оператор WIDTH ), визначаючий горизонтальну позицію курсора.

RIGHT$ (x$,n) виділення останніх символів ланцюжка .

x$ будь-який символьний вираз;

n числовий вираз із значенням від 0 до 255 , що визначає довжину значення функції.

Значення функції складається з n останніх символів значення x$ . Якщо n > LEN (x$) , то значенням функції буде x$ , а при n = 0 порожній ланцюжок символів.

RND [(x)] псевдовипадкове число .

x будь-який числовий вираз. За умовчанням x = 1 , у цьому випадку функція формально перетворюється в системну змінну. Функцiя виконується таким чином:

якщо x < 0 , то значення x перетворюється в ціле i використовується для встановлення початкового значення вбудованого в Бейсiк давача рiвномiрно-розподiлених на інтервалі [0,1 ) псевдовипадкових чисел; при x > 0 таких дій не проводиться; якщо x 0 , то обчислюється нове псевдовипадкове число; якщо x = 0 , то давач зберігає старе значення; обчислюється значення функції множенням на x (якщо x 0 ) значення з давача. Результат множення рiвномiрно-розподiлене на [0 ,x ) псевдовипадкове число.

SCREEN (n, m [, k]) атрибут (колір) символу на екрані .

n числовий вираз із значенням від 1 до 25 ;

m числовий вираз із значенням від 1 до 40 або 80 в залежності від раніш встановленої ширини екрана;

k числовий вираз, що розглядається як логічне значення; допустимо тільки в текстовому режимі роботи екрана; за умовчанням k = 0 .

Для графічного режиму завжди, а для текстового при k = 0 значенням функції буде ціле число, рівне коду знака, розташованого в позиції (n ,m ) екрана. Якщо для текстового режиму задано k = 0 , то ціле число, яке є значенням функції, визначає атрибут кольору позиції (n ,m ) на екрані.

SGN (x) знак x .

SIN (x) синус x .

SPACE$ (n) ланцюжок пропусків .

n числовий вираз із значенням від 0 до 255 . Значення функції ланцюжок символів, який складається з n символів "пропуск".

SPC (n) виведення ланцюжка пропусків .

n числовий вираз із значенням від 0 до 255 ; якщо n більше ніж ширина пристрою, для якого застосовується функція, то замість n використовується n MOD w , де w ширина пристрою.

Функцiя застосовується тільки в операторах PRINT , LPRINT та PRINT# для виведення пропусків.

SQR (x) корінь квадратний з x .

STR$ (x) зображення числа.

Значення функції рядок знаків, що зображує значення виразу x при виведенні на екран або друк. Оберненою до функції STR$ є функція VAL .

STRING$ (n,m) ланцюжок з n символів CHR$(m) .

STRING$ (n,x$) n -кратне повторення першого символу послідовності .

TAB (n) табуляцiя до позиції n при виведенні .

TAN (x) тангенс x .

TIME$ системний час .

Значенням системної змінної TIME$ є поточний системний час у відповідному форматі, встановлений при завантаженні системи або оператором TIME$ Бейсiка .

TIMER лічильник часу .

Системна змінна TIMER має своїм значенням час дня. Видається число звичайної точності, значення якого кількість секунд, що пройшли від опівночі.

USR [n] (арг) виклик підпрограми на машинній мові .

n десяткова цифра (за умовчанням 0 ), що відповідає цифрі, яка використовується у визначенні підпрограми на машинній мові оператором DEF USR ;

арг числовий вираз або символьна змінна; арг передається підпрограмі як аргумент.

VAL (x$) числове значення ланцюжка символів .

VARPTR (v) адреса змінної ;

VARPTR (#нмф) адреса блоку управління файлом .

v ім'я числової або символьної змінної або елемент масиву; змінна повинна мати значення в момент обчислення функції VARPTR ;

нмф номер відкритого файлу.

В обох випадках значенням функції буде ціле число із значенням від 0 до 65535 , яке представляє собою зміщення в робочій області Бейсiка .

VARPTR$ (v) покажчик змінної .

v ім'я змінної, що має значення. Значення функції ланцюжок з трьох символів, перший з яких визначає тип змінної, а два наступні адресу змінної в робочій області Бейсiка .

HОВI КОМАНДИ СИСТЕМИ TURBO-BASIC

Turbo-Basic (у порівнянні з Бейсіком ) має численні нові команди, а також нові опцiї для старих команд. Нижче наводяться деякі з нових операторів, функцій та системних змінних, які розширюють можливості Бейсіка .

DO/LOOP оператор циклу з тестуванням TRUE або FALSE зверху і/або знизу циклу. Повторення циклу здійснюється кеpуючими словами WHILE (для повторення за TRUE ) або UNTIL (для повторення за FALSE ), за якими слідує деякий вираз. Цей вираз являє собою цiлочисельну змінну, ненульове значення якої відповідає TRUE (істина), а нульове FALSE (хибність).

SUB/END SUB оператор, що визначає процедуру. В заголовку процедури вказується її унікальне ім'я, а потім в круглих дужках перераховуються (необов'язкові) формальні параметри, які відокремлюються один від одного комами. Виклик процедури здійснюється оператором CALL , який пересилає фактичні параметри за посиланням або значенням.

SELECT CASE/END SELECT оператор, який дозволяє здійснювати ефективне розгалуження програми за числовим або рядковим виразами. При його застосуванні отримується більш чітка програма, ніж при використанні операторів IF , ON n GOTO або ON n GOSUB .

DEF FN/END DEF вдосконалений оператор, який визначає функцію користувача.

IF/ELSE IF/ELSE/END IF вдосконалений оператор умовного переходу.

EXIT оператор виходу із структурного блоку (SELECT/END SELECT , DEF FN/END DEF , FOR/NEXT , IF/END IF , DO/LOOP , SUB/END SUB , WHILE/WEND ).

LOCAL , SHARED , STATIC оператори, які визначають змінні процедур та функцій.

DECR , INCR оператори, які задають спосіб зменшення або збільшення змінної.

DELAY оператор, який задає паузу в секундах при виконанні програми.

INSTAT функція, яка повертає стан клавіатури. Якщо клавіша була натиснена, INSTAT повертає 1 , в іншому випадку 0 .

REG оператор i функція; яка дозволяє читати або записувати значення в буфер регістра.

CALL ABSOLUTE оператор, який дозволяє звертатися до програми на Асемблерi .

CALL INTERRUPT оператор, який дозволяє визвати будь-яке переривання операційної системи.

SHELL оператор, який завантажує та виконує зовнішню програму (з розширеннями .COM , .EXE , .BAT ).

MTIMER функція i оператор, які зчитують i скидають мікротаймер.

EXP2 , EXP10 , LOG2 , LOG10 експоненціальна та логарифмічна функції з основами 2 та 10 .

ENVIRON оператор, ENVIRON$ функція; які використовуються для зміни конфігурації середовища (оточення процесора).

LCASE$ (UCASE$ ) функція, яка повертає рядок, написаний малими (великими) літерами.

Приклади використання деяких з розглянутих конструкцій будуть наведені в наступному розділі.

ПРИКЛАДИ ПРОГРАМ НА БЕЙСIКУ

'КВАДРАТИЧНЕ РIВHЯHHЯ

'------------------------------------------

SCREEN 0 : WIDTH 40

10 CLS

LOCATE 3, 5: PRINT "РОЗВ'ЯЗУЄМО КВАДРАТИЧНЕ РIВНЯНHЯ:"

LOCATE 4, 5: PRINT " A X^2 + B X + C = 0"

LOCATE 7, 5: INPUT; " ВВЕДIТЬ A: A = ", A

LOCATE 9, 5: INPUT; " ВВЕДIТЬ B: B = ", B

LOCATE 11, 5: INPUT; " ВВЕДIТЬ C: C = ", C

D = B^2 - 4 A C

IF D >= 0 THEN GOSUB 100 ELSE GOSUB 200

LOCATE 20, 5: PRINT "БУДЕТЕ ЩЕ РОЗВ'ЯЗУВАТИ ЗАДАЧУ? (Т/Н)";

50 W$ = INKEY$: IF W$ = "" THEN GOTO 50

IF W$ = "Т" OR W$ = "т" THEN GOTO 10

IF W$ = "Н" OR W$ = "н" THEN CLS: END

BEEP: GOTO 50

100 X1 = (-B + SQR(D)) / (2 A)

X2 = (-B - SQR(D)) / (2 A)

LOCATE 15, 10: PRINT " X1 = " ; X1;

LOCATE 16, 10: PRINT " X2 = " ; X2;

RETURN

200 LOCATE 15, 10: PRINT "КОРЕНIВ НЕМАЄ!";

RETURN

'ПОШУК МIНIМУМУ ТА МАКСИМУМУ ВЕЛИЧИН, ЯКI ВВОДЯТЬСЯ З 'КЛАВIАТУРИ

'--------------------------------------------------------------------------------------------------------

DIM X(100)

Min = 999999 : Max = -999999

FOR I = 1 TO 25

10 INPUT "Введiть дані ", X(I)

IF X(I) < 0 OR X(I) > 100 THEN BEEP: GOTO 10

NEXT I

FOR I = 1 TO 10

IF X(I) < Min THEN Min = X(I)

IF X(I) > Max THEN Max = X(I)

NEXT I

PRINT "Мiнiмальне значення = "; Min

PRINT "Максимальне значення = "; Max

END

'ТАбЛИЦЯ МНОЖЕНHЯ

'------------------------------------

SCREEN 0

LOCATE 3, 5: INPUT "ЯК ВАС ЗВАТИ"; Nam$

10 CLS

LOCATE 5, 5: INPUT "ВВЕДIТЬ ПЕРШИЙ СПIВМНОЖHИК ",A

LOCATE 7, 5: INPUT "ВВЕДIТЬ ДРУГИЙ СПIВМHОЖHИК ",B

LOCATE 9, 5: INPUT "ЧОМУ РIВНИЙ ДОБУТОК ДВОХ СПIВМHОЖHИКIВ ";C

PR = A B

IF C = PR THEN LOCATE 12, 10: PRINT "МОЛОДЕЦЬ, "; Nam$;"!"

IF C <> PR THEN LOCATE 12, 10: PRINT "ВЧИСЬ, " ; Nam$;"!"

LOCATE 15, 5: PRINT "Q - ВИХIД"

LOCATE 17, 5: PRINT "IHША КЛАВIША - ПРОДОВЖЕHНЯ"

100 W$ = INKEY$: IF W$ = "" THEN GOTO 100

IF W$ = "Q" OR W$ = "q" THEN END ELSE GOTO 10

'ПРЯМОКУТHИКИ

'---------------------------

SCREEN 2 : CLS

VIEW

WINDOW (0, 0) - (100, 100)

FOR I = 1 TO 20

LINE (10 + I, 10 + I) - (70 + I, 70 + I),, B

NEXT I

END

'ЧОРНА ДIРКА

'--------------------

SCREEN 1, 0 : CLS : COLOR 14, 1

FOR I=50 TO 1 STEP -.5

Y = 90 / I: R = 3 I

CIRCLE (160, 30 + 10 Y), R, 1,,, .3

NEXT

END

'САТУРН

'-------------

SCREEN 1, 0 : CLS

CIRCLE (160, 100), 79, 3

CIRCLE (160, 100), 80, 3

ST = .77: SP = .77

FOR I= 1 TO 30 STEP 5

ST = (ST - .015): SR = ST PI

SP = SP + .04

CIRCLE (160, 93), 100 + I, 3, SR ,SP , .3

NEXT

END

'ЦИКЛОЇДА, ЕПIЦИКЛОЇДА, ГIПОЦИКЛОЇДА (монітор EGA)

'---------------------------------------------------------------------------------------

PLAY "MB o2 l4 af af b- a g2 c c c d8 e8 f4 f4 f2"

SCREEN 9 : CLS

A1 = 1 : B1 = 2

A2 = 1 : B2 = 1

A3 = 1 : B3 = .5

VIEW (1, 1) - (638, 315), 3, 3

WINDOW (-2, -3) - (20, 5)

LINE (-2, 0) - (20, 0), 11

LINE (0, -3) - (0, 5), 11

FOR T = 0 TO 20 STEP .007

X1 = A1 T - B1 SIN(T) : Y1 = A1 - B1 COS(T)

PSET (X1, Y1), 1

X2 = A2 T - B2 SIN(T) : Y2 = A2 - B2 COS(T)

PSET (X2, Y2), 14

X3 = A3 T - B3 SIN(T) : Y3 = A3 - B3 COS(T)

PSET (X3, Y3), 5

NEXT T

END

'4 ВIКНА З ГРАФIКАМИ ФУНКЦIЙ

'------------------------------------------------

SCREEN 2 : CLS

VIEW (1, 1) - (315, 96),, 1

WINDOW (-10, -1.1) - (10, 1.1)

FOR X = -10 TO 10 STEP .02

Y = SIN(X) : PSET (X, Y)

NEXT X

VIEW (325, 1) - (638, 96),, 1

WINDOW (-10, 0) - (10, 1.1)

FOR X = -10 TO 10 STEP .02

Y = 1 / (1 + X^2) : PSET (X, Y)

NEXT X

VIEW (1, 102) - (315, 198),, 1

WINDOW (-10, -.1) - (10, 100)

FOR X = -10 TO 10 STEP .02

Y = X^2 : PSET (X, Y)

NEXT X

VIEW (325, 102) - (638, 198),, 1

WINDOW (-40, -40) - (40, 40)

FOR X = -40 TO 40 STEP .02

Y = X SIN(X) : PSET (X, Y)

NEXT X

END

'ВИПАДКОВI КОЛА

'----------------------------

SCREEN 2 : CLS

VIEW

WINDOW (-10, -10) - (110, 110)

FOR I = 1 TO 100

X = 100 RND(1) : Y = 100 RND(1) : R = 5 RND(1)

CIRCLE (X, Y), R

NEXT I

END

'НОТИ

'----------

5 CLS

LOCATE 1, 1: PRINT "--------- СI (B)"

LOCATE 2, 1: PRINT "--------- ЛЯ (A)"

LOCATE 3, 1: PRINT "--------- СОЛЬ (G)"

LOCATE 4, 1: PRINT "--------- ФА (F)"

LOCATE 5, 1: PRINT "--------- МI (E)"

LOCATE 6, 1: PRINT "--------- РЕ (D)"

LOCATE 7, 1: PRINT "--------- ДО (C)"

LOCATE 9, 1: PRINT " Вихiд (Q)"

PLAY "O2"

10 W$ = INKEY$: IF W$ = "" THEN GOTO 10

IF W$="B" OR W$="b" THEN LOCATE 1,5: PRINT "O": PLAY "B2": GOTO 5

IF W$="A" OR W$="a" THEN LOCATE 2,5: PRINT "O": PLAY "A2": GOTO 5

IF W$="G" OR W$="g" THEN LOCATE 3,5: PRINT "O": PLAY "G2": GOTO 5

IF W$="F" OR W$="f" THEN LOCATE 4,5: PRINT "O": PLAY "F2": GOTO 5

IF W$="E" OR W$="e" THEN LOCATE 5,5: PRINT "O": PLAY "E2": GOTO 5

IF W$="D" OR W$="d" THEN LOCATE 6,5: PRINT "O": PLAY "D2": GOTO 5

IF W$="C" OR W$="c" THEN LOCATE 7,5: PRINT "O": PLAY "C2": GOTO 5

IF W$="Q" OR W$="q" THEN END

BEEP: GOTO 10

'МУЗИКАЛЬНI МЕЛОДIЇ

'----------------------------------

CLS : WIDTH 40

PRINT "---Варшав'янка---"

PLAY "t100 l8 o3 mn a4 ml a. mn g16 f4 ml f. mn c+16 d4 ml d."

PLAY "mn c16 d4 f4 e4 a. a16 ml a g f mn e ml d e f mn g a2 p2"

PRINT "---Окрасился месяц багрянцем---"

PLAY "t100 l8 mn o3 g c4 c e- g4 f e- ml g4. f16 mn e-16 d4."

PLAY "c o2 b-4 o3 d f b-4 o4 c o3 a- ml g2 mn g p p o4"

PLAY "d c4 o3 g g o4 ml e- mn d c o3 g ml b-4. a-16 mn g16"

PLAY "ml f e- mn d c g4 f g ml b- mn a- d e- c2 p2"

PRINT "---Засвистали козаченьки---"

PLAY "t100 l4 mn o3 g o4 g ml g f8 mn e-8 d g c c f f f g4 ml"

PLAY "d2 f8 e-8 d8 mn c8 d d d e- ml d8 c8 o3 b-8 mn a8 g o4 g"

PLAY "ml f8 e-8 d8 mn c8 o3 b- a g2 ml g8 p2"

PRINT "---заспіваймо пісню веселеньку---"

PLAY "t140 l4 mn o3 e a o4 c. o3 a8 b8 o4 d8 c8 o3 b8 a e"

PLAY "o4 c o3a ml o4 d8 c8 o3 mn b8 a8 ml g+8 mn g+8 ml b8"

PLAY "mn a8 e e4o4 e e g. e8 d ml g8 mn f8 e d c. o3 a8"

PLAY "o4 d8 c8 o3 b8 a8 o4 e2 d2"

END

'HAPPY BIRTHDAY

'----------------------------

RESTORE Happy

READ Frequensy, Duration

WHILE Frequensy <> -1

SOUND Frequensy, Duration 1.33

READ Frequensy, Duration

WEND

END

Happy:

DATA 784, 3, 659, 2, 523, 6, 659, 6, 784, 6, 1047, 15, 1329, 3

DATA 1175, 2, 1047, 6, 659, 6, 740, 6, 784, 15, -1, -1

'ЗВУКОВI ЕФЕКТИ

'---------------------------

WHILE Q$ <> "Q"

CLS

PRINT "Sound effects": PRINT

COLOR 15, 0: PRINT " B"; : COLOR 7, 0: PRINT "ouncing"

COLOR 15, 0: PRINT " F"; : COLOR 7, 0: PRINT "alling"

COLOR 15, 0: PRINT " K"; : COLOR 7, 0: PRINT "laxon"

COLOR 15, 0: PRINT " S"; : COLOR 7, 0: PRINT "iren"

COLOR 15, 0: PRINT " Q"; : COLOR 7, 0: PRINT "uit"

PRINT : PRINT "Select: ";

Q$ = " "

WHILE INSTR("BFKSQbfksq", Q$) = 0

Q$ = INPUT$(1)

WEND

CLS

IF Q$ = "B" OR Q$ = "b" THEN

PRINT "Bouncing . . . "

CALL Bounce(32767, 246)

ELSEIF Q$ = "F" OR Q$ = "f" THEN

PRINT "Falling . . . "

CALL Fall(2000, 550, 500)

ELSEIF Q$ = "S" OR Q$ = "s" THEN

PRINT "Wailing . . ."

PRINT " . . . press any key to end."

CALL Siren(780, 650)

ELSEIF Q$ = "K" OR Q$ = "k" THEN

PRINT "Oscillating . . ."

PRINT " . . . press any key to end."

CALL Klaxon(987, 329)

ELSEIF Q$ = "q" THEN

Q$ = "Q"

END IF

WEND

END

SUB Bounce (Hi, Low) STATIC

FOR Count = 60 TO 1 STEP -2

SOUND Low - Count / 2, Count / 20

SOUND Hi, Count / 15

NEXT

END SUB

SUB Fall (Hi, Low, Del) STATIC

FOR Count = Hi TO Low STEP -10

SOUND Count, Del / Count

NEXT

END SUB

SUB Klaxon (Hi, Low) STATIC

WHILE INKEY$ = ""

SOUND Hi, 5

SOUND Low, 5

WEND

END SUB

SUB Siren (Hi, Rng) STATIC

WHILE INKEY$ = ""

FOR Count = Rng TO -Rng STEP -4

SOUND Hi - ABS(Count), .3

Count = Count - 2 / Rng

NEXT

WEND

END SUB

'ГРАФIЧHИЙ РЕДАКТОР

'-------------------------------------

ON KEY (1) SUB 500

KEY (1) ON

SCREEN 2

200 x$=input$(1)

IF X$="S" OR x$="s" THEN END

IF X$="A" OR X$="a" THEN DRAW "L5"

IF X$="D" OR X$="d" THEN DRAW "R5"

IF X$="W" OR X$="w" THEN DRAW "U5"

IF X$="X" OR x$="x" THEN DRAW "D5"

IF X$="E" OR x$="e" THEN DRAW "E5"

IF X$="C" OR x$="c" THEN DRAW "F5"

IF X$="Z" OR x$="z" THEN DRAW "G5"

IF X$="Q" OR x$="q" THEN DRAW "H5"

IF X$="F" OR x$="f" THEN DRAW "C0 U0 C1 BL5 U0"

IF X$="H" OR x$="h" THEN DRAW "C0 U0 C1 BR5 U0"

IF X$="B" OR x$="b" THEN DRAW "C0 U0 C1 BD5 U0"

IF X$="T" OR x$="t" THEN DRAW "C0 U0 C1 BU5 U0"

GOTO 200

500 END

'СОРТУВАHHЯ СЛIВ

'-------------------------------

CLS

LOCATE 10,25

INPUT "Кiлькiсть слів, що сортуються: ";N

DIM X$(N)

FOR I = 1 TO N

CLS

LOCATE 10, 20 : PRINT "Введiть ";i;" слово";

INPUT X$(I)

NEXT I

CLS

FOR I = 1 TO N - 1

FOR J = I + 1 TO N

IF X$(I) > X$(J) THEN SWAP X$(I), X$(J)

NEXT J, I

FOR I=1 TO N

LOCATE I+3,30

PRINT X$(I)

NEXT I

END

' IМIТАЦIЯ ОБЕРТАHHЯ РИСОЧКИ

'----------------------------------------------------

ON KEY (1) GOSUB 500

KEY (1) ON

CLS

50 LOCATE 12,40: PRINT "( ¦ )" : DELAY .1

LOCATE 12,40: PRINT "( / )" : DELAY .1

LOCATE 12,40: PRINT "( - )" : DELAY .1

LOCATE 12,40: PRINT "( \ )" : DELAY .1

GOTO 50

500 END

'ПОБУДОВА ДIАГРАМИ

'-----------------------------------

SUB GRAF(NX1,NY1,NX2,NY2,N,Y(1))

SCREEN 2

YMAX=Y(1): YMIN=Y(1)

FOR I = 1 TO N

IF Y(I) < YMIN THEN YMIN = Y(I)

IF Y(I) > YMAX THEN YMAX = Y(I)

NEXT I

DX1 = 8 : DX = FIX((NX2 - NX1 - (N - 1) DX1) / N)

X1 = NX1

Y1 = NY2 - FIX(((-YMIN) (NY2 - NY1)) / (YMAX - YMIN))

FOR I = 1 TO N

X2 = X1 + DX

Y2 = NY2 - FIX(((Y(I) - YMIN) (NY2 - NY1)) / (YMAX - YMIN))

LINE (X1,Y1) - (X2,Y2),,BF

X1 = X2 + DX1

NEXT I

LINE (nx1,Y1) - (nx2,Y1)

END SUB

CLS

INPUT "ЗАДАЙТЕ КІЛЬКІСТЬ ВУЗЛІВ ГРАФІКА"; M

DIM Z(M)

FOR I = 1 TO M

INPUT Z(I)

NEXT I :

CLS

X1 = 80: X2 = 500

Y1 = 50: Y2 = 150

CALL GRAF(X1,Y1,X2,Y2,M,Z())

END

Основна таблиця ASCII

Розширена таблиця ASCII (альтернативне кодування)

ЗАВДАНHЯ ДЛЯ САМОСТIЙНОЇ РОБОТИ

1. Скласти програму обчислення функції

y = x 2 2 x + 3 , 0 x 2 ,

3 + 3 x , 2 < x 10.

Значення x вводиться з клавіатури.

2. Скласти програму побудови кривої, заданої параметрично

x = r sin(t ), y = r cos(t ), 0 t 6.28 .

Значення r вводити з клавіатури.

3. Скласти програму, яка визначає найбільше значення з трьох величин

sin(x ), cos(x ), sin(x ) + cos(x ).

Значення x вводити з клавіатури.

4. Скласти програму побудови кривої, заданої параметрично

x = b (sin(t ))3 , y = b (cos(t ))3 , 0 t 6.28 .

Значення b вводити з клавіатури.

5. Скласти програму табуляцiї функції

y = x 2 sin(x ).

Початкове значення x = 0 , крок 0.01 , число значень 20 .

6. Скласти програму побудови кривої, заданої параметрично

x = b cos(t ) (1 + cos(t )), y = b sin(t ) (1 + cos(t )), 0 t 6.28 .

Значення b > 0 вводити з клавіатури.

7. Скласти програму обчислення суми квадратів двозначних парних чисел.

8. Скласти програму побудови кубу.

9. Скласти програму обчислення суми квадратів двозначних чисел, які діляться на 3 .

10. Скласти програму побудови "пилки" з шести зубців.

11. Скласти програму знаходження найменшого з додатних елементів масиву a 1 ,...,a 19 , що задається оператором DATA .

12. Скласти програму побудови п'ятикутної зірки.

13. Скласти програму обчислення суми додатних та суми від'ємних елементів масиву a 1 ,...,a 17 , що задається оператором DATA .

14. Скласти програму побудови прямокутника за координатами протилежних вершин, які задаються з клавіатури.

15. Скласти програму знаходження числа додатних елементів масиву a 1 ,...,a 19 , що задається оператором DATA .

16. Скласти програму побудови трикутника за координатами вершин, які задаються з клавіатури.

17. Скласти програму знаходження середнього значення елементів масиву a 1 ,...,a 20 , що задаються оператором DATA , за формулою

m = ( a 1 + ... + a 20 ) / 20 .

18. Скласти програму побудови графіка функції

y = x 2 + 5 x 3 , 2 x 10 .

19. Скласти програму, яка визначає чи зростають елементи масиву a 1 ,...,a 29 , що задається оператором DATA .

20. Скласти програму побудови графіка функції

y = x 2 sin(x ) 1 , 2 x 10 .

21. Скласти програму для визначення чверті (квадранту), до якої належить точка M (x,y ). Координати x, y вводити з клавіатури.

22. Скласти програму побудови трьох витків прямокутної спіралі.

23. Скласти програму, яка записує елементи масиву a 1 ,...,a 29 , що задається оператором DATA , в оберненому порядку.

24. Скласти програму побудови кругової діаграми для даних u 1 ,...,u 7 , які вводяться з клавіатури.

25. Скласти програму обчислення віддалі між точками A (x,y ) i B (u,v ), координати яких вводяться з клавіатури.

26. Скласти програму побудови стовпчикової діаграми для даних u 1 ,...,u 4 , що вводяться з клавіатури.

27. Скласти програму табулювання функції

y = x 3 cos(x + 3 ).

Початкове значення x = 0 , кінцеве x = 10 , крок 0.5 .

28. Скласти програму побудови 10 кіл із зростаючими радіусами та загальною точкою дотику.

29. Скласти програму знаходження величини d для елементів масиву a 1 ,...,a 20 , який задається оператором DATA , згідно формули

d = ( a 1 2 + ... + a 20 2 ) / 20 .

30. Скласти програму побудови прямокутника, із сторонами паралельними границям екрана, і які проходять через точки A , B , C , координати яких вводяться з клавіатури.

31. Скласти програму, що визначає меншу з трьох величин

sin(x ), cos(x ), sin(x ) cos(x ).

Значення x вводиться з клавіатури.

32. Скласти програму побудови кривої, заданої параметрично

x = a (sin(t ))2 , y = b (cos(t ))2 , 0 t 6.28 .

Значення a i b вводяться з клавіатури.

33. Скласти програму, яка визначає чи спадають елементи масиву a 1 ,...,a 29 , що задається з клавіатури.

34. Скласти програму побудови графіка функції

y = x / ( x 2 + 1 ), 3 x 3 .

35. Скласти програму, що визначає число елементів масиву a 1 ,...,a 19 , які перевищують величину M . Масив i число M вводяться з клавіатури.

36. Скласти програму побудови графіка функції

y = x / ( x 2 1 ), 0.7 x 0.7 .

37. Скласти програму, що визначає число елементів масиву a 1 ,...,a 17 , які не перевищують величину M . Масив i число M вводяться з клавіатури.

38. Скласти програму побудови 3 кіл, які торкаються один до одного.

39. Скласти програму, що визначає можливість побудови трикутника за сторонами, довжини яких a , b , c вводяться з клавіатури.

40. Скласти програму побудови стовпчикової діаграми (гістограми) для масиву u 1 ,...,u 9 , що задається оператором DATA .

41. Скласти програму знаходження числа від'ємних елементів масиву a 1 ,...,a 17 , що задається з клавіатури.

42. Скласти програму побудови квадрату за координатами однієї з вершин та діагоналі, які задаються з клавіатури.

43. Скласти програму знаходження кількості непарних двозначних чисел, які діляться на 3 .

44. Скласти програму побудови кривої, заданої параметрично

x = t cos(t ), y = t sin(t ), 0 t 20 .

45. Скласти програму знаходження кількості парних тризначних чисел, які діляться на 7 .

46. Скласти програму побудови прямокутної сітки.

47. Скласти програму впорядкування в зростаючому порядку трьох чисел, які вводяться з клавіатури.

48. Скласти програму побудови системи прямих, паралельних діагоналі екрана.

49. Скласти програму, яка визначає, чи є парними всі цифри чотиризначного числа. Число вводиться з клавіатури.

50. Скласти програму, яка підраховує кількість слів у списку, що починаються з літери "А " (великої чи малої). Слова вводяться з клавіатури.

ЛІТЕРАТУРА

1. В.П.Дьяконов. Справочник по алгоритмам и программам на языке бейсик для персональных ВМ. Москва, "Наука", 1987.

2. Ю.Л.Кетков. GW, Turbo и Quick BASIC для IBM PC. Москва, "Финансы и статистика", 1992.

3. Л.Пул. Работа на персональном компьютере. Москва, "Мир", 1986.

4. В.М.Трояновский, В.Ф.Шаньгин. Бейсик для начинающих и будущих профессионалов. Москва, "Высшая школа", 1992.

5. В. .Фигурнов. IBM PC для пользователя. Москва, "Финансы и статистика", 1992.

6. Б.И.Чернов. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль. Москва, "Просвещение", 1991.