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

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

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

Leave a Comment