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

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


textual

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

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



Похожие ответы
  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

  1. Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:

  1. Задан вектор из N элементов. Найти наибольшее число и его координату среди кратных трем и совпадающих со своим номером элементов и поменять его с последним элементом.

  1. Дан вещественный вектор. Все его элементы, больше 0 - умножить на 10, остальные оставить без изменения и упорядочить полученный вектор по возрастанию. ............................................................................................................................................................. Прошу помощи, все попытки написать программу тщетны, либо не работает, либо работает не так как надо( Не страдающий гордостью программист может оставить номер Киви, отблагодарю!

  1. В задаваемом вещественном векторе a размерности n>5: 1) Найти значение и индекс последнего минимального элемента. 2) Количество положительных компонент вектора, предшествующих первой отрицательной компоненте.

  1. 1)В задаваевом целочисленном векторе найти: min+max 2)В задаваемом векторе a размерности n каждую a1 компоненту заменить на величину: i^2 Хотя бы первую задачу, очень нужно.

  1. Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над векторами на плоскости: 1) сложение; 2) вычитание; 3) скалярное умножение векторов; 4) умножение вектора на число; 5) длина вектора. Вектор представить типом «Запись» с полями X, Y: Real. Используя этот модуль, решить задачу:Дан массив А — массив векторов. Отсортировать его в порядке убывания длин векторов. Модуль создал, осталось сортировка. Нужна помощь

  1. Использование функций в паскале. Заданы три вектора X=(X1,X2,…,Xn), Y=(Y1,Y2,…,Yn), Z=(Z1,Z2,…,Zn). Упорядочить по возрастанию минимальные элементы каждого из этих векторов. Длины векторов n ≤ 7;m ≤ 9;l ≤ 5. Помогите!

  1. Дано натуральное число n и х вектор содержащий n элементов. Создать новый y вектор, элементы которого получены сперва взяв простые числа, потом остальные. Заранее спасибо...