В Бейсике есть встроенная функция ATN - арктангенс, поэтому угол можно в градусах посчитать.
DIM a, b, c, cs, cst, ang, PI INPUT " a = ", a INPUT " b = ", b INPUT " c = ", c PRINT PI = 3.141593 cs = (b * b + c * c - a * a) / (2 * b * c) cst = cs IF cs < 0 THEN cst = SQR(1 - cs * cs) ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI) IF cs < 0 THEN ang = ang + 90 PRINT "угол A = ", PRINT USING "###.##"; ang cs = (a * a + c * c - b * b) / (2 * a * c) cst = cs IF cs < 0 THEN cst = SQR(1 - cs * cs) ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI) IF cs < 0 THEN ang = ang + 90 PRINT "угол B = ", PRINT USING "###.##"; ang cs = (a * a + b * b - c * c) / (2 * a * b) cst = cs IF cs < 0 THEN cst = SQR(1 - cs * cs) ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI) IF cs < 0 THEN ang = ang + 90 PRINT "угол C = ", PRINT USING "###.##"; ang PRINT "Выход - любая клавиша ... " DO LOOP WHILE INKEY$ = ""
-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
Подробнее - на -