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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Чтение из файла; функция, которая вставляет заданное число в отсортированній массив http://www.cyberforum.ru/cpp-beginners/thread721193.html
Всем доброе утро! Мальчики, у меня есть две проблемки: 1)Для заданной матрицы размером 8 на 8 найти такие k, что k-я строка матрицы совпадает с k-м столбцом. Найти сумму элементов в тех строках,...
C++ Дано число n, переставить первую и последнюю цифры местами! Помогите плс !Дано число n, переставить первую и последнюю цифры местами!(Без использования массива) http://www.cyberforum.ru/cpp-beginners/thread721189.html
Есть в записи числа m цифры, которые совпадают с цифрами в записи числа n C++
Дано два натуральных числа n(<=9999) и m (<=9999). Проверить, есть в записи числа m цифры, которые совпадают с цифрами в записи числа n. Оригинал: Дано два натуральних числа n(<=9999) i m...
C++ Из множества целых чисел выделить множество чисел, на которые делится без остатка число 444
1.Из множества целых чисел выделить множество чисел, на которые делится без остатка число 444 Ребята помогите решить данные задачи , буду очень благодарен
C++ Поиск бинарных чисел в строке символов и их преобразование http://www.cyberforum.ru/cpp-beginners/thread721157.html
Добрый вечер. Нужна помощь в реализации программы. Задача: Дана строка символов, в которой содержатся числа в двоичной системе записанные в формате <числа>,< числа>(1.1, 1010.01) - но это не...
C++ Ошибка в double Приветствую! Недавно делая простую программу встретился с проблемой - при работе с числами типа double возникают ошибки. Пример double a(-2), b(0.1); a += b; По идеи a должно быть равно -1.9, но... подробнее

Показать сообщение отдельно
qirkman
Сообщений: n/a

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

06.12.2012, 09:02. Просмотров 314. Ответов 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.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru