Версия для печати темы

Автор: Grifon 16.01.2007 22:47

Срочно надо выполнить задание, кто может помогите!
Дано целое число N и 10 вещественных чисел. Найти порядковый номер того из них, которое наиболеее удаленно от целого числа N.

Автор: мисс_граффити 16.01.2007 23:30

Вещественные как даны? Массивом или просто последовательность?
Откуда они берутся - случайным образом задаются или вводятся с клавиатуры?

Автор: Гость 17.01.2007 1:04

По идеи все вводится и задается с клавиатуры. Просто последовательность.

Автор: Гость 17.01.2007 4:22

Так в этом то и вся проблема.... Я в этом ноль почти полный.

Автор: volvo 17.01.2007 4:25

Только искать не минимальное, а для каждого введенного числа X считать Abs(X - N), и из этих разностей искать максимальную... Изначально max = 0, max_ix = 0, и как только модуль вот этой самой разности больше текущего максимума - обновить и максимум и индекс...

Автор: мисс_граффити 17.01.2007 4:42

прошу прощения... глупость написала. (удалила уже)
каша в голове...
собиралась отвечать в одной теме, передумала, в другой на нее ответила

var N,nom,max_nom:integer;
tek_elem,max:real;
begin
{ввод N}
{max:=очень-очень маленькое число. чтобы заведомо нашлось такое, с которым модуль разности будет больше. то есть, раз работаем с модулями, любое отрицательное}
for nom:=1 to 10 do
  begin
  {ввод элемента}
  if abs(N-tek_elem)>max then
    begin
    {max:=модуль текущей разности}
    max_nom:=nom;
    end;
  end;
{вывод max_nom}
readln;
end.