VPF::Одномерные массивы - Форум программистов

xander007

Дата 15.12.2005, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.12.2005

Репутация: нет
Всего: нет

Даны действительное число X и массив A[n]. В массиве найти два члена, среднее арифметическое которых ближе всего к X.

Zero

Дата 15.12.2005, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Смысл заключается в том, чтобы в цикле найти минимальный элемент из разности X - <элемент массива>

darkart

Дата 15.12.2005, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: нет
Всего: 31

Так наверное...

Код


program SrArifm;
const
  n=5;{кол-во эл-ов в массиве}
type
  TArr=array[1..n] of integer;{описание массива}
procedure InputArray(var Arr:TArr);
{ввод массива}
var
  i:integer;
begin
  writeln('Please enter array with ',n,' elements:');
  for i:=1 to n-1 do
    read(Arr[i]);
  readln(Arr[n]);
end;
procedure PrintArray(var Arr:TArr);
{печать массива}
var
  i:integer;
begin
  for i:=1 to n-1 do
    write(Arr[i],' ');
  writeln(Arr[n]);
end;
procedure PrintResult(var Arr:TArr;x:real);
{печать результата}
var
  i,j,index1,index2:integer;{index1,index2-индексы эл-ов ответа}
  SA,tmp:real;{SA-модуль min разницы среднего арифметического и x, tmp-модуль разницы среднего арифметического и x}
begin
  index1:=1;
  index2:=2;
  SA:=abs((Arr[index1]+Arr[index2])/2-x);
  for i:=1 to n do
    for j:=i+1 to n do
    begin
      tmp:=abs((Arr[i]+Arr[j])/2-x);
      if tmp<SA then{если новая разница - лучше}
      begin
        SA:=tmp;
        index1:=i;
        index2:=j;
      end;
    end;
  writeln('Raznica=',SA:5:2);
  writeln('First number is ',Arr[index1]);
  writeln('Second number is ',Arr[index2]);
end;
var
  Arr:TArr;
  x:real;
begin
  InputArray(Arr);
  writeln('Source array:');
  PrintArray(Arr);
  writeln('Please enter x:');
  readln(x);
  PrintResult(Arr,x);
  readln;
end.

xander007

Дата 16.12.2005, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.12.2005

Репутация: нет
Всего: нет

Спасибо!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »