Головна Головна -> Реферати українською -> Інформатика, комп'ютери, програмування -> Hовi команди системи Turbo-Basic

Hовi команди системи Turbo-Basic

Назва:
Hовi команди системи Turbo-Basic
Тип:
Реферат
Мова:
Українська
Розмiр:
22,69 KB
Завантажень:
27
Оцінка:
 
поточна оцінка 5.0


Скачати цю роботу безкоштовно
Пролистати роботу: 1  2  3  4 
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

Завантажити цю роботу безкоштовно
Пролистати роботу: 1  2  3  4 



Реферат на тему: Hовi команди системи Turbo-Basic

BR.com.ua © 1999-2017 | Реклама на сайті | Умови використання | Зворотній зв'язок