Question

Дана последовательность из n действительных чисел.Найти порядковый номер и само число,которое наиболее близко к заданному числу. (Можно помочь написать программку на Паскале)

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandomReal(n, -10, 10);

 a.Println;

 var x := ReadReal('Что ищем?');

 var m := a.Select((v, i) -> (Abs(v - x), i)).MinBy(p -> p[0])[1];

 Println(a[m]);

end.

Answer 2

Конечно! Вот программа на Pascal (Delphi) для нахождения порядкового номера и самого числа, которое наиболее близко к заданному числу:

pascalCopy code
program FindClosestNumber;

const
  MAXN = 1000; // Максимальный размер последовательности

var
  sequence: array[1..MAXN] of Real;
  n: Integer;
  targetNumber: Real;
  closestNumber: Real;
  minDifference: Real;
  closestIndex: Integer;
  i: Integer;

begin
  // Вводим размер последовательности
  Write('Введите размер последовательности (n): ');
  ReadLn(n);

  // Вводим элементы последовательности
  WriteLn('Введите ', n, ' действительных чисел:');
  for i := 1 to n do
    ReadLn(sequence[i]);

  // Вводим заданное число
  Write('Введите заданное число: ');
  ReadLn(targetNumber);

  // Инициализируем переменные для поиска ближайшего числа
  closestNumber := sequence[1];
  minDifference := Abs(targetNumber - sequence[1]);
  closestIndex := 1;

  // Находим ближайшее число
  for i := 2 to n do
  begin
    if Abs(targetNumber - sequence[i]) < minDifference then
    begin
      closestNumber := sequence[i];
      minDifference := Abs(targetNumber - sequence[i]);
      closestIndex := i;
    end;
  end;

  // Выводим результат
  WriteLn('Ближайшее число: ', closestNumber);
  WriteLn('Порядковый номер: ', closestIndex);
end.

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