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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Чтение из файла; функция, которая вставляет заданное число в отсортированній массив http://www.cyberforum.ru/cpp-beginners/thread721193.html
Всем доброе утро! Мальчики, у меня есть две проблемки: 1)Для заданной матрицы размером 8 на 8 найти такие k, что k-я строка матрицы совпадает с k-м столбцом. Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный Вот, есть код: #include <iostream> using namespace std; int main()
C++ Дано число n, переставить первую и последнюю цифры местами! Помогите плс !Дано число n, переставить первую и последнюю цифры местами!(Без использования массива) http://www.cyberforum.ru/cpp-beginners/thread721189.html
Есть в записи числа m цифры, которые совпадают с цифрами в записи числа n C++
Дано два натуральных числа n(<=9999) и m (<=9999). Проверить, есть в записи числа m цифры, которые совпадают с цифрами в записи числа n. Оригинал: Дано два натуральних числа n(<=9999) i m (<=9999);Перевірити , чи э в записі числа m цифри які співпаnтдають з цифрами в записі числа n.
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, но вот что получаю я: http://s58.***********/i162/1212/95/e7a568fc4b6c.png Как мне побороть такие ошибки? Вот код, если нужен: while (x < xend) { //x изначально равно -2 подробнее

Показать сообщение отдельно
qirkman
Сообщений: n/a
06.12.2012, 09:02     Из delphi в C++ (найти два числа среднее арифметическое которых ближе всего к числу у)
В последовательности чисел 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 07:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru