Введение

QBasic — это интегрированная среда разработки (IDE) для реализации языка программирования BASIC, основанная на QuickBasic. Исходный код, введенный в IDE, компилировался в промежуточную форму, которую интерпретировала IDE по мере необходимости. В течение долгого времени QBasic обеспечивал современную интегрированную среду разработки, включающую отладчик с рядом особенностей (оперативная оценка выражений, модификация кода и т.д.). QBasic может выполняться почти под всеми версиями DOS и Windows, а при использовании эмулятора DOSBox может выполняться в ОС Linux, FreeBSD.[3]

Решение математических уравнений в среде QBasic

Вычислить выражение: a(a³b²)+(a/b)^{d^3}

Алгоритм решения (Схема 1).

Начало

END

X=a(a³b²)+(a/b)^{d^3}

A,B,D

Схема 1

REM

INPUT "vvedite a"; a

INPUT "vvedite b"; b

INPUT "vvedite d"; d

LET x = a(a ^ 3 * b ^ 2) + (a / b) * d ^ 3

PRINT "x="; x

END

Таблица 1

Таблица возможных вариантов

№ п/п	Число (a)	Число (b)	Число (d)	Ответ
1	2	4	1	0.5
2	3	6	3	13.5
3	4	4	4	64

Решение массивов

Найти сумму всех элементов массива.

│188│

│457│

│367│

Алгоритм решения (Схема 2)

Начало

I(3, 3)

I=1, 3

I(B,U)

I=1, 3

I(M, J)

O=O+I(M, J)

Конец

Схема 2

Решение:

10 REM 20 DIM I(3, 3) 30 LET I(1, 1) = 1 40 LET I(1, 2) = 8 50 LET I(1, 3) = 8 60 LET I(2, 1) = 4 70 LET I(2, 2) = 5 80 LET I(2, 3) = 7 90 LET I(3, 1) = 3 100 LET I(3, 2) = 6 110 LET I(3, 3) = 7 120 FOR B = 1 TO 3 130 FOR U = 1 TO 3 140 PRINT I(B, U); 150 NEXT 160 PRINT 170 NEXT 180 FOR M = 1 TO 3 190 FOR J = 1 TO 3 200 LET O = O + I(M, J) 210 NEXT 220 NEXT 230 PRINT "summa="; O 240 END

Сложение массивов

Задание: Найдите произведение двух массивов

│188│ │458│

│172│ │367│

│457│ │367│

Алгоритм решения (Схема 3)

Конец

???

I(H,G)

I=1, 3

I(W,Q)

I=1, 3

I(3, 3)

Начало

Схема 3

Программа решения:

10 REM 20 DIM I(3, 3) 30 LET I(1, 1) = 1 40 LET I(1, 2) = 8 50 LET I(1, 3) = 8 60 LET I(2, 1) = 1 70 LET I(2, 2) = 7 80 LET I(2, 3) = 2 90 LET I(3, 1) = 4 100 LET I(3, 2) = 5 110 LET I(3, 3) = 7 120 PRINT "1 massiv" 130 FOR C = 1 TO 3 140 FOR V = 1 TO 3 150 PRINT I(C, V) 160 NEXT 170 PRINT 180 NEXT 190 PRINT "2 massiv" 200 DIM Y(3, 3) 210 LET Y(1, 1) = 4 220 LET Y(1, 2) = 5 230 LET Y(1, 3) = 8 240 LET Y(2, 1) = 3 250 LET Y(2, 2) = 6 260 LET Y(2, 3) = 7 270 LET Y(3, 1) = 3 280 LET Y(3, 2) = 6 290 LET Y(3, 3) = 7 300 FOR W = 1 TO 3 310 FOR Q = 1 TO 3 320 PRINT Y(W, Q) 330 NEXT 340 PRINT 350 NEXT 360 FOR A = 1 TO 3 370 FOR S = 1 TO 3 380 LET H = H + I(A, S) 390 LET G = G + Y(A, S) 400 NEXT 410 NEXT 420 LET n = H + G 430 PRINT "summa 2 massivov"; n 440 END

Решение систем уравнений

Решите систему уравнения x>2 ; x<=2

Алгоритм решения (схема 4)

Начало

X,C,A,

x>2

Y=(arctgx)^1/2-3

Y=sin⁵+cx³

Y=

КОНЕЦ

Схема 4

Программа решения:

REM

INPUT "vvedite x", x

INPUT "vvedite c", c

INPUT "vvedite a", a

IF x > 2 THEN y = (sinx) ^ 5 + c * x ^ 3 ELSE y = arctgx ^ (1 / 2) - 3

PRINT ; "y="; y

Таблица 3

Таблица возможных вариантов

№ п/п	Число (x)	Число (с)	Число (a)	Ответ
1	4	3	4	198
2	1	2	3	-3
3	3	2	3	54

Решение задач с циклическими процессами

Y=x⁵+2x²-3 Начальное x=2 Конечное x=6 Шаг по x=0,5

Алгоритм решения (схема 5)

Конец

Y= +2

x=3, 6, 0.5

x

Начало

y

Схема 5

Программа решения:

Решение

REM

FOR x = 2 TO 6 STEP 0.5

LET y = x ^ 5 + 2 * x ^ 2 – 3

PRINT "y="; y

NEXT x

END

Построить график функции

Y=sin x

Программа решения:

CLS

REM

INPUT "vvedite x"; x

SCREEN 12

LINE (0, 240)-(640, 240), 15

LINE (320, 0)-(320, 480), 15

mx = 30: my = 30

FOR x = -2 TO 2 STEP 0.01

y = sinx

PSET (320 + x * mx, 240 - x * my), 15

NEXT x

END

Техника безопасности

Обеспечение безопасности рабочего места

1. Правильный выбор рабочего места – дисплей (монитор) является источником электромагнитного излучения. Рекомендуется устанавливать защитный экран для снижения воздействия электромагнитного излучения от задней части другого дисплея. Недопустимо устраивать рабочие места близко одно от другого. Размещать компьютер необходимо вдали от отопительных приборов и исключать попадания на него прямых солнечных лучей. Недопустимо работать напротив боковой или задней части другого дисплея, если расстояние до него - менее 2 м.

2. Расположение оргтехники

• системный блок – помещается на надежную поверхность (крепкий стол, массивная подставка/тумба) – так, чтобы исключать даже случайное его сотрясение;

• дисплей необходимо устанавливать на такой высоте, чтобы центр экрана был на 15-20 см ниже уровня глаз. Расстояние от глаз до экрана – не менее 50 см;

• клавиатура располагается на расстоянии 15-30 см от края столешницы или на специальной выдвижной доске.

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

Необходимо следить, чтобы бумаги, какие-либо предметы не закрывали вентиляционные отверстия работающих аппаратов.