|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
02.12.2014, 00:34 | #1 (permalink) |
Новичок
Регистрация: 02.12.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычислить скалярное произведение
Код:
2 4 6 -2 0.5 A= 3 5 2 z= 3 y= 3 2 4 7 2 -2 Помогите пожалуйста) |
02.12.2014, 00:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Очень полезно сначала ознакомиться с похожими темами Ввести две матрицы mxn и nxk. Найти и вывести их произведение Вычислить функцию Программа. Вычислить сумму или произведение В массиве А(12) вычислить произведение Найти произведение чисел, меньших заданного числа b |
02.12.2014, 11:00 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Аналогичная задачка у нас весной уже разбиралась. Попробуйте, взяв ту программу за основу, адаптировать ее к своим данным:
Задачка по Паскалю |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.12.2014, 14:51 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да куда я денусь...
Код:
Type Vect=array[1..3] of real; Matr=Array[1..3,1..3] of real; Const z:Vect=( -2,3, 2); y:Vect=(0.5,3,-2); a:Matr=((2,4,6),(3,5,2),(2,4,7)); Function Prod(PM:Matr;PV:Vect):Vect; var i,k:Byte; M:Vect; begin for i:=1 to 3 do M[i]:=0; for i:=1 to 3 do for k:=1 to 3 do M[i]:=M[i]+PM[i,k]*PV[k]; Prod:=M; end; Function Sums(V1,V2:Vect):Vect; var i:Byte; begin for i:=1 to 3 do Sums[i]:=V1[i]+V2[i]; end; Function Scal_Prod(V1,V2:Vect):Real; var i:Byte; SP:Real; begin SP:=0; for i:=1 to 3 do SP:=SP+V1[i]*V2[i]; Scal_Prod:=SP; end; Var k:Real; Begin k:=Scal_Prod(Sums(Prod(A,y),z),Prod(A,y)); Writeln('k = ',k:0:3); Readln End. |
07.12.2014, 23:23 | #10 (permalink) | |
Новичок
Регистрация: 02.12.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Что Вы можете сказать об этом? Правильно ли?)))
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|