Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
qirkman
Сообщений: n/a
#1

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

06.12.2012, 09:02. Просмотров 309. Ответов 0

В последовательности чисел a1,.,an найти два числа среднее арифметическое которых ближе всего к числу у.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2012, 09:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из delphi в C++ (найти два числа среднее арифметическое которых ближе всего к числу у) (C++):

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

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

В массиве найти два члена,среднее арифметическое которых ближе всего к Х - C++
Здравствуйте,помогите с написанием программ в С++ (использую CodeBlocks),я новичек хочу научиться,но лучше понимаю на примерах. Заранее...

В массиве найти два элемента среднее арифметическое которых ближе всего к заданному значению - C++
Дано действительное число х и массив A . В массиве найти два элемента, среднее арифметическое которых ближе всего к х

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X - C++
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В массиве y1, ... , yn найти два элемента,...

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X - C++
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В массиве y1, ... , yn найти два элемента,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2012, 09:02
Привет! Вот еще темы с ответами:

Даны два целых числа; найти их среднее арифметическое, их среднее геометрическое - C++
Даны два целых числа найти их среднее арифмитическое их среднее геометрическое Заголовок темы продумываем

Найти среднее арифметическое для элементов, из которых извлекался корень. Формат числа +-цц.ц - C++
Ребят, знаю, что тунеядцам не особо помогают. Но вот хоть убейте не понимаю как найти среднее арифметическое из элементов из которых...

Дан массив вещественных чисел. Определитьпорядковый номер того из них, который ближе всего к заданному числу Х - C++
Спасибо за помощь!

найти среднее арифметическое и вывести элемент массива, сильнее всего отклоняющийся от ср. арифметического - C++
дан линейный массив. найти среднее арифметическое и вывести элемент массива, сильнее всего отклоняющийся от ср. арифметического пример:...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru