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

Формулировка задачи:

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

Код к задаче: «Найти вектор минимальной длины - Pascal»

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.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы