Написать программу, вычисляющую скалярное произведение двух векторов произвольной размерности n — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
CLS
PRINT "skalyarnoye proizvedenie <a,b> vektorov a i b"
INPUT " vvedi razmernost vektorov n "; n%
DIM a(n%), b(n%)
FOR i% = 1 TO n%
    INPUT "a(i%)=", a(i%)
    INPUT "b(i%)=", b(i%)
    skl = skl + a(i%) * b(i%)
NEXT i%
PRINT "<a,b> = "; skl
END

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

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

Leave a Comment