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

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

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

Leave a Comment