Найти вектор минимальной длины - Pascal

  1. Здравствуйте форумчане! Помогите пожалуйста с написанием программы, которая выбирает вектор минимальной длины из заданного множества n-мерных векторов через функцию. Буду очень благодарен всем кто откликнется на помощь!

textual

Код:

const n=2; k=5;
var
  a, b: array [1..n] of Real;
  m, t: Real;
  i, j: Integer;
begin
  WriteLn('Введите координаты ',n,'-мерных векторов (',k,'):');
  for j:=1 to n do Read(b[j]); m:=vLen(b);
  for i:=2 to k do begin
    for j:=1 to n do Read(a[j]); t:=vLen(b);
    if m>t then begin
      m:=t; b:=a;
    end;
  end;
  Write('Вектор с минимальной длиной ',m,': (',b[1]);
  for j:=2 to n do Write(', ',b[j]); WriteLn(')');
end.

Похожие ответы
  1. Задание:Для заданной матрицы размером 5x5 найти такие k, что k-я строка матрицы совпадает с k-м столбцом мне нужно сделать так? если так, то в одном месте она гворит, что должна стоять ";"

  1. Здравствуйте. Есть такая задача: "Дано двузначное число, составить четырехзначное в таком порядке:единицы,десятки,десятки,единицы". Буду сильно благодарен, если поможете решить. Спасибо.

  1. Задача 5. Дано целое число А. Определить остаток от деления числа А на 3. (Используем метод последовательного вычитания чисел)

  1. Подскажите написанием программы... Введите полное имя файла: Диск: \ Путь \ Файл.расширение, например: C: \ Program files \ Borland \ Delphi \ tak \ polucitj \ znacenie \ cisla.tem (имя диска, каталог (путь, директория, имя и расширение) . 1.Вывести файл 2.Вывести имя файла без расширения 3.Вывести диск, путь, имя файла, расширение (в колонку) Буду очень благодарна за помощь

  1. Почти похоже помогите плиз на завтра срочняк надо!!! Создать массив квадратов натуральных чисел, и вывести его элементы кратные 3.

  1. Составить программу на языке паскаль которая определяет есть ли в массиве элементы с одинаковыми значениями

  1. Составить программу подсчета общего количества положительных элементов в массивах A (8) и B (8).

  1. Спросить у пользователя 3 целых числа Если наибольшее число - первое, то вывести сумму чисел Если наибольшее - второе, то произведение чисел Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье Если числа равны, вывести сообщение"числа равны"

  1. y=ln(1+x)\(1-x) Дана функцыя. Нужно выбрать интервал [a,b] і четыре узла интерполяции в ньом х0, х1, х2, і х3, вычислить значение заданой функцыи у этих точках у0, у1, у2, у3. По этим даним сформировать интерполяцыонний полином Лагранжа L3; вычислить значенние заданой функциииі полинома при 10 значениях х, которые не совпадают с вузлами интерполяции (x є [a,b] ) в формулах я разобрался и математически думаю що смогу решить. но я не могу составить таблицу х0, х1, х2, і х3 у0, у1, у2, у3. ( тут я не понял с чего начять. помогите пожалуйста с таблицей. зараннее спасибо. ну, а если можно, то и с пограмой


Нашли ошибку?
Развитие проекта
Яндекс.Метрика