Определить меньшее из скалярных произведений векторов (с подпрограммой)

@Gamak · Регистрация: 11.02.2014

Студворк — интернет-сервис помощи студентам

Для векторов x={x1,x2,x3}, y={y1,y2,y3}, z={z1,z2,z3,z4}, p={p1,p2,p3,p4} определить меньший из скалярных произведений(x,y) и (z,p), используя вспомогательную программу.

@FedorBoom · 28.02.2014, 23:20

Стас, модераторы попросят меня не фамильярничать, возможно, но тебе придется самому учиться считать скалярное произведение векторов проставнства-времени. Тольео если тут не появится особо добрый человек, любящий аналитическую геометрию.

@volvo · 28.02.2014, 23:57

Чего там считать? Сумма произведений соответствующих компонент вектора. С учетом раздела (FPC) это может быть сделано и вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{$mode objfpc}
operator * (const Left, Right : array of real) : real;
var i : integer;
begin
  Result := 0;
  for i := 0 to high(Left) do
    Result := Result + Left[i] * Right[i];
end;
 
var
  x : array[1 .. 3] of real = (1, 2, 3);
  y : array[1 .. 3] of real = (10, 20, 30);
  z : array[1 .. 4] of real = (1.5, 2.5, 3.5, 4.5);
  p : array[1 .. 4] of real = (7.5, 8.5, 9.5, 12);
 
  y_x, p_z : real;
 
begin
  y_x := x * y;
  p_z := z * p;
  if y_x < p_z then
    writeln('(',y_x:0:3, ') x * y < z * p (', p_z:0:3, ')')
  else
    writeln('(',y_x:0:3, ') x * y >= z * p (', p_z:0:3, ')')
end.

Новичок · 01.03.2014, 00:13

Не по теме:

Сообщение от UI

С учетом раздела (FPC) это может быть сделано и вот так:

А в Delphi/PascalABC.NET/Turbo Pascal перегружать операторы можно?

@FedorBoom · 01.03.2014, 00:21

UI, спасибо за гениальное решение, правда. Преподаватель (Геннадий Анатольевич, честь ему и хвала) похвалит его за то, что он так далеко вырвался от остальных ребят и сам начал изучать создание и описание собственных операторов. Вероятнее всего, первый вопрос будет "А как ты это сделал?". Так Гамаку и надо.

Не по теме:

молю бога, чтобы не получить красную карту

@volvo · 01.03.2014, 03:26

Не по теме:

А в Delphi/PascalABC.NET/~~Turbo Pascal~~ перегружать операторы можно

Fixed...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 11.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Gamak -4 / 0 / 0 Регистрация: 11.02.2014 Сообщений: 70

	Определить меньшее из скалярных произведений векторов (с подпрограммой) 28.02.2014, 23:09. Показов 1271. Ответов 5 Метки нет (Все метки) Для векторов x={x1,x2,x3}, y={y1,y2,y3}, z={z1,z2,z3,z4}, p={p1,p2,p3,p4} определить меньший из скалярных произведений(x,y) и (z,p), используя вспомогательную программу. 0

@FedorBoom 102 / 70 / 79 Регистрация: 06.02.2014 Сообщений: 211
	28.02.2014, 23:20
	Стас, модераторы попросят меня не фамильярничать, возможно, но тебе придется самому учиться считать скалярное произведение векторов проставнства-времени. Тольео если тут не появится особо добрый человек, любящий аналитическую геометрию. 0

@FedorBoom 102 / 70 / 79 Регистрация: 06.02.2014 Сообщений: 211
	01.03.2014, 00:21
	UI, спасибо за гениальное решение, правда. Преподаватель (Геннадий Анатольевич, честь ему и хвала) похвалит его за то, что он так далеко вырвался от остальных ребят и сам начал изучать создание и описание собственных операторов. Вероятнее всего, первый вопрос будет "А как ты это сделал?". Так Гамаку и надо. Не по теме: молю бога, чтобы не получить красную карту 0

Определить меньшее из скалярных произведений векторов (с подпрограммой)

Решение