Файл: Основы программирования на языке QBasic (Что такое QBasic).pdf

3. Графический режим
Qbasic

3.1 Построение проекции

Задание. Отыскать размер пластинки и выстроить ее проекции.

программа выполнения

m = 71

L = 51

H = 8

R = 9

SCREEN 12

WINDOW (0, 0)-(120, 90)

LINE (90, 90)-(90, 0)

LINE (0, 30)-(120, 30)

LINE (90 -1.1 * m, 30 + .1 * m)-(90 — .1 * m, 30 + .1 * m + L), , B

LINE (90 -1.1 * m, 30 — .1 * m — H)-(90 — .1 * m, 30 — .1 * m), , B

LINE (90 +.1 * m, 30 + .1 * m)-(90 + .1 * m + H, 30 + .1 * m + L), , B

CIRCLE (90- 1.1 * m + .1 * m + R, 30 + L — R), R

CIRCLE (90- .1 * m — .1 * m — R, 30 + .1 * m + .1 * m + R), R

CIRCLE (90- .1 * m — .1 * m — R, 30 + .1 * m + L — .1 * m — R), R

CIRCLE (90- 1.1 * m + .1 * m + R, 30 + .2 * m + R), R PRINT » ОБЪЕМРАВЕН»; m * L * H

3.2 Построение графиков функций

3.2.1 Выстроить график функции 

программа построения графика

SCREEN 12

WINDOW (-7, -6)-(7, 80)

X1 = -7: X2 = 4

H = (X2 — X1) / 100

Y1 = 3 * X1 ^ 2 + 8 * X1 + 3

PSET (X1, Y1)

FOR X = X1 TO X2 STEP H

Y = 3 * X ^ 2 + 8 * X + 3

LINE -(X, Y)

NEXT

3.2.2 Выстроить график функции 

программа построения графика

SCREEN 12

WINDOW (-1, -6)-(1, 40)

X1 = -2: X1 = 2

H = (X2 — X1) / 100

Y1 = 192 * X1 ^ 2 + 144 * X1 + 27

PSET (X1, Y1)

FOR X = X1 TO X2 STEP H

Y = 192 * X ^ 2 + 144 * X + 27

NEXT

3.2.3 Выстроить график функции 

программа построения графика

DEFFNA (X) = 3 / (8 * X + 3) ^ 2 SCREEN 12

WINDOW (-5, -5)-(5, 5)

X1 = -5: Y1 = FNA(X1)

X2 = -.4

X3 = -.3: Y3 = 27

X4 = 5

H = (X2 — X1) / 100

PSET (X1, Y1)

FOR X = X1 TO X2 STEP H

Y = FNA(X)

LINE -(X, Y)

NEXT

H = (X4 — X3) / 100

PSET (X3, Y3)

FOR X = X3 TO X4 STEP H

Y = FNA(X)

LINE -(X, Y)

NEXT

3.3 Геометрические преобразования

Выполнить поочередно геометрические преобразования:

— перенос;

— масштабирование;

— поворот относительно данной точки.

программа выполнения геометрических преобразований

SCREEN 12

WINDOW (-50, -10)-(20, 20)

X1 = -1

Y1 = 3

X2 = -9

Y2 = 1

DX = 1

DY = 3

SX = 5

SY = 3

LINE (X1, Y1)-(X2, Y2)’

LINE (X1 + DX, Y1 + DY)-(X2 + DX, Y2 + DY)’

LINE (X1 * SX, Y1 * SY)-(X2 * SX, Y2 * SY)’

LINE (8, 2)-(0, 0)

LINE ((X1 * COS(PI / 4) — Y1 * SIN(PI / 4)), (Y1 * SIN(PI / 4) + Y1 * COS(PI / 4)))-((0 * COS(PI / 4) — 0 * SIN(PI / 4)), (0 * SIN(PI / 4) + 0 * COS(PI / 4)))’

Выводы и заключение

Решение какой-нибудь задачи при помощи ЭВМ распадается на три главных шага: постановка задачки, составление метода решения, программная реализация метода на ЭВМ . В данной работе реализованы все обозначенные выше этапы в среде программирования QBasic.