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

Рис.6. Алгоритм вычисления

Программа вычисления определителя

PRINTBBЕDИTЕ(A)

INPUT "BBЕDИTЕ a1,b1,c1"; a1, b1, c1

INPUT "BBЕDИTЕ a2,b2,c2"; a2, b2, c2

INPUT "BBЕDИTЕ a3,b3,c3"; a3, b3, c3

PRINT a1 * b2 * c3 + b1 * c2 * a3 + a2 * b3 * c1 - a3 * b2 * c1 - b3 * c2 * a1 - a2 * b1 * c3

Результат: -163

2.1.4 Решить систему уравнений по формулам Крамера

Рис.7. Алгоритм вычисления

Программа решения системы уравнений по формулам Крамера

10 INPUT "BBЕDИTЕ KОЭФФИЦИЕHTЫ ПЕРВОГО УРАВНЕНИЯ"; a1, b1, c1, d1

20 INPUT "BBЕДИTЕ КОЭФФИЦИЕНТЫ ВТОРОГО УРАВНЕНИЯ"; a2, b2, c2, d2

30 INPUT "BBЕДИТЕ КОЭФФИЦИЕНТЫ ТРЕТЬЕГО УРАВНЕНИЯ"; a3, b3, c3, d3

40 d = a1 * b2 * c3 + b1 * c2 * a3 + a2 * b3 * c1 - a3 * b2 * c1 - b3 * c2 * a1 - a2 * b1 * c3

50 IF d = 0 GOTO 90

60 PRINT "x= "; (d1 * b2 * c3 + b1 * c2 * d3 + d2 * b3 * c1 - d3 * b2 * c1 - b3 * c2 * d1 - d2 * b1 * c3) / d

70 PRINT "y= "; (a1 * d2 * c3 + d1 * c2 * a3 + a2 * d3 * c1 - a3 * d2 * c1 - d3 * c2 * a1 - a2 * d1 * c3) / d

80 PRINT "z= "; (a1 * b2 * d3 + b1 * d2 * a3 + a2 * b3 * d1 - a3 * b2 * d1 - b3 * d2 * a1 - a2 * b1 * d3) / d

90 END

Результат: x=0,32; y=0,36; z=0,44

2.2 Основы векторного исчисления

Даны векторы и . Найти скалярное и векторное произведения векторов и угол между ними