сервис вопросов и ответовНайти значение: min(P1, P2), где
10-11 класс|
|
P1 – скалярное произведение векторов A и B.
P2 – скалярное произведение векторов C и D.
Вычисление скалярного произведения векторов оформить подпрограммой.
Исходные данные: А=(-5.1, 2.7, 3.4, 6.2); В=(1.2, 3.4, 0, 2.5);
С=(2.7, 3.4, 2.5, 6.3, 7.8); D=(1.7, -1.3, 2.8, 0, 7.2);
Анютка020698
28 окт. 2016 г., 2:25:05 (7 лет назад)
Tasha1110
28 окт. 2016 г., 4:12:40 (7 лет назад)
Тогда будет Паскаль...
const
nm = 5;
type
V = array[1..nm] of real;
function SP(var a, b: V; n: integer): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do s := s + a[i] * b[i];
SP := s
end;
var
A, B, C, D: V;
P1, P2, min: real;
i, n: integer;
begin
Write('Введите размерность вектора A: '); Readln(n);
Write('Введите координаты вектора A через пробел: ');
for i := 1 to n do Read(A[i]);
Write('Введите координаты вектора B через пробел: ');
for i := 1 to n do Read(B[i]);
P1 := SP(A, B, n);
Write('Введите размерность вектора C: '); Readln(n);
Write('Введите координаты вектора C через пробел: ');
for i := 1 to n do Read(C[i]);
Write('Введите координаты вектора D через пробел: ');
for i := 1 to n do Read(D[i]);
P2 := SP(C, D, n);
if P1 > P2 then min := P2 else min := P1;
Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);
end.
Результаты выполнения:
Введите размерность вектора A: 4
Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2
Введите координаты вектора B через пробел: 1.2 3.4 0 2.5
Введите размерность вектора C: 5
Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8
Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2
Меньшее из скалярных произведений (A*B),(C*D) равно 18.56
Erjena97
28 окт. 2016 г., 5:46:33 (7 лет назад)
Вы забыли указать язык и систему программирования.
Ответить
Другие вопросы из категории
ОЧЕНЬ СРОЧНО!!!!! ПОЖАЛУЙСТА
Надо выполнить работу в экселе ЗАДАНИЕ №8 ТОЛЬКО!!!!!!
Читайте также
алгоритм вычисления значения функции F(n), где n- натуральное число, задан следующими соотношениями: F(1)=1, F(2)=2, F(n)=2*F(n-1)+(n-2)*F(n-2), при
n>2. чему равно значение функции F(6)?
Найти значение функции f(k)/k для каждого k=2,3,...N где f(k) - кол-во простых чисел от 2 до k. Решить на паскале или на псевдокоде. Ну или хотя
бы объясните алгоритм.
В непозиционной системе счисления, которая называется системой остатков (СО), в качестве оснований выбираются взаимно простые числа, например, p1=3,
p2=5, p3=7. При этом диапазон однозначного представления чисел равен произведению оснований (в приведенном примере p1∙p2∙p3 = 105, т. е. однозначно представляются все числа от 0 до 104). Любое число в этом диапазоне записывается остатками от целочисленного деления этого числа на выбранные основания. Например, число A = 19 запишется в СО с основаниями 3, 5, 7 так: A = (1, 4, 5). Укажите, какая из записей соответствует числу 5, записанному в системе остатков с основаниями 3, 5, 7.
1) (3, 0, 2) 2) (2, 0, 2) 3) (2, 0, 5) 4) (5, 5, 5)
Функции function F(x, y: integer): integer; function
G(x, y: integer): integer;
function R(x, y: integer): integer;
определены с помощью операционной семантики равенствами:
R(x, y) = x*(y – 1),
F(x, y) = R(x + 1, y) - R(x, y - 1),
G(x, y) = F(x, R(x, y)).
Найти значения G(3, 3).
Вы находитесь на странице вопроса "Найти значение: min(P1, P2), где", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.