вектор

[vbas]

Здравсвтуйте мне нужна ваша помощь, задали такую задачку:

данно массив вектор. выбрано из него любое число. Оперделить ближайшее к нему число этого же массива и вывести его номер. (одно число)

мне не нужен код, помогите понять суть решения

спасибо.

[netrino]

Можно свести эту задачу к поиску минимума в массиве, только искать не самый минимальный элемент, а минимальную разницу выбранного пользователем элемента и остальных элементов массива

[vbas]

цетирую препода: ответ решения смешной и простой

а искать разницу тут скорее всего цикл нужен..

[netrino]

Да, нужен цикл, иначе никак задачу не решить. Разницу искать не так сложно на самом деле ) В принципе, можно сначала отсортировать массив, а потом найти опять же разницу заданного элемента и отличных от него чисел слева и справа и сравнить её, с каким из элементов разница меньше - тот и ближе к заданному.

[vbas]

я предлагал такое решение сказал что слишком глобально, может найти второе по величине число?
*ступил сори

вот это ему глобально

var n,i,max: integer;
min: double;
A: array[0..79] of double;
begin
max:=100;
for i:=0 to 79 do
begin
A[i]:=(1+Random(max))/(2+Random(50));
end;
min:=max; n:=0;
Memo1.Clear;
for i:=0 to 79 do
begin
Memo1.Lines.Add(IntToStr(i+1)+' - ' +FloatToStr(A[i]));
if (Abs(A[i]-Int(A[i]))<min) then
begin
min:=Abs(A[i]-Int(A[i]));
N:=i+1;
end;
end;
Memo1.Lines.Add('Наиболее близкое к целому числу - число № '+ IntToStr(N));
end;

[tools]

Вот такой вариант настряпал на скорую руку, проверил, вроде работает. Но на всякий случай лучше еще раз перепроверить

const n=5;.
var
  a:array[1..n] of byte;
  i,k,m,r,l,nom:byte;
begin
randomize;
for i:=1 to n do
  begin
    a[i]:=random(51);
    write(a[i],' ');
  end;
writeln;
write('Введите номер выбранного вами элемента:');
readln(i);
writeln(' Это число:', a[i]);
k:=i;                                   //запоминаем номер
if k>1 then /                        /для того случая если пользователь выбрал НЕ первый элемент
  begin
    m:=abs(l-a[1]);               //сначала минимальная разница между нашим элементом и первым
    r:=1;                              //вспомогательная переменная для цикла,чтобы знать с какого значения i начинать
    nom:=r;                         //непосредственно,номер нашего элемента
  end;
if k=1 then                        //если все-таки выбрал первый элемент
  begin
    m:=abs(l-a[2]);
    r:=2;
    nom:=r;
  end; 
for i:=r+1 to n do
  begin
    if i=k then continue;                //чтобы сам с собой не сравнивался
    if abs((a[k]-a[i]))<m then
      nom:=i;
  end;
writeln;
writeln(' Ближайший по значению элемент: a[',nom,']=',a[nom]);
end.

[vbas]

Спасибо tools, но мне пока не нужно решение, он говорит что ответ вообще дан в условие, давал всякие подсказки про mod
3 и 5 пятый класс, что к примеру я умею считать только до 10 и т.д

послед 1 2 3 4

выбрано 3

[Sasha_Smirnov]

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

цетирую препода: ответ решения смешной и простой

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

if i=k then continue;                //чтобы сам с собой не сравнивался

А вот тут-то собака и зарыта! Вчитайтесь в своё задание «аки робот»!

[vbas]

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

А вот тут-то собака и зарыта! Вчитайтесь в своё задание «аки робот»!

я вас не понимаю.. это вы относительно моего топа..?

[vbas]

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

я вас не понимаю.. это вы относительно моего топа..?

забыл написать еще он сказал что: "задача из области на смекалку - т.е ответ в условии написан"