Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 15.05.2013
Сообщений: 13
1

Найти элемент массива, который наиболее (наименее) близок к данному числу

18.03.2014, 15:30. Показов 2358. Ответов 2
Метки нет (Все метки)

Дано вещественное число R и массив размера N. Найти элемент массива,
который наиболее1|наименее2 близок к данному числу.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2014, 15:30
Ответы с готовыми решениями:

Найти элемент массива, который наиболее близок к данному числу
Дано вещественное число R и массив размера N.Найти элемент массива,который наиболее близок к...

Найти порядковый номер того из элементов последовательности, который наиболее близок к заданному целому числу (такой элемент единственный).
Найти порядковый номер того из элементов последовательности, который наиболее близок к заданному...

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

найти два соседних элемента массива, сумма которых наиболее близка к числу R
дано число R и массив размера N. найти два соседних элемента массива, сумма которых наиболее близка...

2
1645 / 1074 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.03.2014, 18:00 2
Pascal
1
2
3
4
5
6
Var k : Longint;
...
k:=1;
For i:=2 to N do
  If abs(M[k]-R)>abs(M[i]-R) then k:=i;
Writeln(k,'  ',M[k]);
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6170 / 3696 / 2558
Регистрация: 22.11.2013
Сообщений: 10,553
Записей в блоге: 1
18.03.2014, 18:08 3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  LIM=100; W=8; D=2; n=10;
var
  a: array [1..n] of real;
  r: real;
  i, nr, fr: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    a[i]:=Random*LIM; Write(a[i]:W:D);
  end;
  Write('Введите R: '); ReadLn(r);
  nr:=1; fr:=1;
  for i:=2 to n do begin
    if abs(a[i]-r)<abs(a[nr]-r) then nr:=i;
    if abs(a[i]-r)>abs(a[fr]-r) then fr:=i;
  end;
  WriteLn('Наиболее близкий: a[',nr,']=',a[nr]:W:D);
  WriteLn('Наименее близкий: a[',fr,']=',a[fr]:W:D);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2014, 18:08

Найти два соседних элемента массива, сумма которых наиболее близка к числу R
дано число R и массив размера N. найти два соседних элемента массива, сумма которых наиболее близка...

Найти в строках наиболее и наименее часто повторяющиеся символы (интересует алгоритм!)
Здравствуйте! Помогите, пожалуйста, разобраться с тем, как можно найти в нескольких строках...

Дано число R и массив размера N. Найти два соседних элемента массива, сумма которых наиболее близка к числу R,и вывести эти элементы
Дано число R и массив размера N. Найти два соседних элемента мас- сива, сумма которых наиболее...

Напишите программу, которая находит в массиве элемент, самый близкий по величине к данному числу
Напишите программу, которая находит в массиве элемент, самый близкий по величине к данному числу


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru