Question

Попогите Из двух векторов x={x1, x2, …, x16} и y={y1, y2, …, y16} определить тот, у которого больше длина.Паскаль,через массив.

Answer 1

// PascalABC.NEt 3.4

begin
  var x:=ArrRandom(16,-50,50); x.Println;
  var y:=ArrRandom(16,-50,50); y.Println;
  var s1:=x.Select(p->p*p).Sum;
  var s2:=y.Select(p->p*p).Sum;
  if s1>s2 then Writeln('Вектор x длиннее')
  else if s1<s2 then Writeln('Вектор y длиннее')
  else Writeln('Длины векторов одинаковы')
end.

Answer 2

Для определения вектора с большей длиной (количеством элементов) можно воспользоваться языком программирования Pascal и создать программу, которая будет сравнивать длины двух массивов. В Pascal это можно сделать, например, следующим образом:

pascalCopy code
program CompareVectors;

const
  N = 16; // Количество элементов в векторах

type
  Vector = array[1..N] of Integer;

var
  x, y: Vector;
  i: Integer;

function GetVectorLength(const v: Vector): Integer;
begin
  Result := N;
  while (Result > 0) and (v[Result] = 0) do
    Dec(Result);
end;

begin
  // Ввод элементов векторов x и y
  writeln('Введите элементы вектора x:');
  for i := 1 to N do
    readln(x[i]);

  writeln('Введите элементы вектора y:');
  for i := 1 to N do
    readln(y[i]);

  // Определение длин векторов
  var lenX := GetVectorLength(x);
  var lenY := GetVectorLength(y);

  // Сравнение длин векторов
  if lenX > lenY then
    writeln('Длина вектора x больше')
  else if lenY > lenX then
    writeln('Длина вектора y больше')
  else
    writeln('Длины векторов x и y равны');

end.

Обратите внимание, что в коде выше предполагается, что векторы x и y могут содержать нулевые элементы (например, если вы заполните не все 16 элементов). Функция GetVectorLength используется для определения длины вектора, пропуская нулевые элементы с конца массива.

Теперь, после запуска программы и ввода элементов векторов x и y, программа определит, у какого вектора больше длина, либо сообщит, что длины векторов равны.