Из delphi в C++ (найти два числа среднее арифметическое которых ближе всего к числу у)

06.12.2012, 09:02. Показов 614. Ответов 0

Метки delphi (Все метки)

Author24 — интернет-сервис помощи студентам

В последовательности чисел a1,.,an найти два числа среднее арифметическое которых ближе всего к числу у.

Delphi

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,j,i1,i2:byte;
    x,mn:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=20*random-9;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
write('Введите действительное число для поиска x=');
readln(x);
mn:=abs(x-(a[1]+a[2])/2);
i1:=1;
i2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(x-(a[i]+a[j])/2)<mn then
 begin
  mn:=abs(x-(a[i]+a[j])/2);
  i1:=i;
  i2:=j;
 end;
writeln('Наиболее близкое к ',x:0:2,' среднее чисел ',a[i1]:0:2,' и ',a[i2]:0:2);
write('Оно = ',(a[i1]+a[i2])/2:0:2);
readln
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.12.2012, 09:02

Ответы с готовыми решениями:

Найти два последовательных члена последовательности, среднее арифметическое которых ближе всего к определенному числу
Здравствуйте, помогите сделать задание, ни как не могу в него вникнуть: Компоненты файла f – целые...

В последовательности найти два члена, среднее арифметическое которых ближе всего к данному числу
Даны действительные числа x, y1,...,y25. В последовательности y1,...,y25 найти два члена, среднее...

Найти два числа, среднее арифметическое которых ближе всего к х с помощью класса
Тема работы - разработка и реализация программ с использованием конструкторов и деструкторов... ...

Массив. Найти два числа, среднее арифметическое которых ближе к заданному числу "a"
Ввести действительные числа.b1,b2,...bn.В последовательности этих чисел найти два числа, среднее...

	06.12.2012, 09:02

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.12.2012, 09:02

Помогаю со студенческими работами здесь

Найти два члена, среднее арифметическое которых ближе всего к x
Даны действительные числа x, y1, …, y25. В последовательности y1, …, y25 найти два члена, среднее...

В массиве найти два элемента, среднее арифметическое которых ближе всего к t
дан массив действительных чисел B(n) и действительное число t. В массиве B найти два элемента,...

В последовательности найти два члена, среднее арифметическое которых ближе всего к х
Помогите пожалуйста, очень нужно, заранее благодарю! Массивы 16. Даны действительные числа x,...

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх