Question

В массиве (0..12) найти номер элемента, наименее отличающегося от числа 3,1416. Программа Delphi 7

Answer 1

program test;

var

i,l:integer;

a:array[1..12] of real;

m:real;

begin

for i:=1 to 12 do

read(a[i]);

m:=abs(a[1]-3.1416);

l:=1;

for i:=2 to 12 do

begin

if abs(a[i]-3.1416)<m then

begin

m:=abs(a[i]-3.1416);

l:=i;

end;

end;

write(l);

end.

Answer 2

В Delphi 7 можно написать следующий код для решения данной задачи:

delphiCopy code
program FindClosest;
uses Math;

var
  arr: array[0..12] of Double;
  i, closestIndex: Integer;
  diff, minDiff: Double;

begin
  // Заполняем массив данными
  for i := 0 to 12 do
    arr[i] := i;

  // Ищем элемент, наименее отличающийся от 3,1416
  minDiff := MaxDouble;
  for i := 0 to 12 do
  begin
    diff := Abs(arr[i] - 3.1416);
    if diff < minDiff then
    begin
      minDiff := diff;
      closestIndex := i;
    end;
  end;

  // Выводим результат
  WriteLn('Index of closest element: ', closestIndex);
  ReadLn;
end.

Эта программа создает массив arr из 13 элементов (0..12), заполняет его значениями от 0 до 12 и ищет элемент, наименее отличающийся от 3,1416. Для этого программа сравнивает разницу между каждым элементом массива и числом 3,1416, и сохраняет индекс элемента с наименьшей разницей в переменную closestIndex. Результат выводится на экран.