Даны два однотипных вектора размерности N. Получить их скалярное произведение — QBasic(Бейсик)

disel

Скалярное произведение векторов a{x1; y1; z1} и b{x2; y2; z2} выражается формулой

ab= x1x2+ y1y2+ z1z2

(a и b — соответственно это вектора)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
INPUT n
DIM a(n), b(n)
PRINT "vvedite 1 vektor"
FOR i = 1 TO n
    INPUT a(i)
NEXT
PRINT "vvedite 2 vektor"
FOR i = 1 TO n
    INPUT b(i)
NEXT
FOR i = 1 TO n
    ab = ab + a(i) * b(i)
NEXT
PRINT ab

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment