Вычислите скалярное произведение.
«Вычислите скалярное произведение.»
- Информатика
Условие:
Вычислите скалярное произведение: s=(B(p-q),r)
Решение:
Решение:
Текст программы
Programlab6;
usescrt;
constn= 3;
typematr=array[1..n,1..n] of real;
vect=aray[1..n] of real;
vari,j:integer;
s:real;
A,B:matr;
p,q,r,x,y:vect;
finfout:text;
functionscal(x,y:vect):real;
var s:real;
i:integer;
begin
s:=0;
for i:=1 to n do
s:=s*x[i]*y[i];
scal:=s;
end;
procedurelin(a:vect;b:vect;var c:vect);
var i:integer;
begin
for i:=1 to n do
c[i]:=a[i]-b[i]
end;
procedureumn(a:matr;b:vect;var c:vect);
vari,j:integer;
begin
for i:=1 to n do
begin
c[i]:=0;
for j:=1 to n do c[i]:=c[i]+a[i,j]*b[j]
end
end;
begin
clrscr;
assign(fin,'Lab6.dat');
assig...
Похожие задачи
Не нашел нужную задачу?
Воспользуйся поиском
AI помощники
Выбери предмет
S
А
Б
В
Г
И
К
М
П
- Правоохранительные органы
- Пожарная безопасность
- Парикмахерское искусство
- Природообустройство и водопользование
- Почвоведение
- Приборостроение и оптотехника
- Промышленный маркетинг и менеджмент
- Производственный маркетинг и менеджмент
- Процессы и аппараты
- Программирование
- Право и юриспруденция
- Психология
- Политология
- Педагогика
С
Т
- Трудовое право
- Теория государства и права (ТГП)
- Таможенное право
- Теория игр
- Теория вероятностей
- Теоретическая механика
- Теория управления
- Технология продовольственных продуктов и товаров
- Технологические машины и оборудование
- Теплоэнергетика и теплотехника
- Туризм
- Товароведение
- Таможенное дело
- Торговое дело
- Теория машин и механизмов
- Транспортные средства
Ф
Э