Курсовая работа: Основы программирования в среде Qbasic

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

INPUT "BBЕДИТЕ КООРДИНАТЫ ПЕРВОГО ВЕКТОРА"; x1, y1, z1

INPUT "BBЕДИТЕ КООРДИНАТЫ ВТОРОГО ВЕКТОРА "; x2, y2, z2

ska = x1 * x2 + y1 * y2 + z1 * z2

PRINT "СКАЛЯРНОЕ ПРОИЗВЕДЕНИЕ = "; ska

x3 = y1 * z2 - z1 * y2

y3 = x1 * z2 - z1 * x2

z3 = x1 * y2 - y1 * x2

PRINT "BEKTOPHOE ПPOUЗBEДEHИE a*b= "; x3, y3, z3

a = (x1 ^ 2 + y1 ^ 2 + z1 ^ 2) ^ (1 / 2)

b = (x2 ^ 2 + y2 ^ 2 + z2 ^ 2) ^ (1 / 2)

ugl = ska / (a * b)

PRINT "КОСИНУС УГЛА МЕЖДУ ВЕКТОРАМИ РАВЕН"; ugl

Результат: -14; ; -0,367658

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