Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/19: Рейтинг темы: голосов - 19, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 5
1

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

23.09.2013, 14:41. Показов 3422. Ответов 11
Метки нет (Все метки)

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

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

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

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

Найти элемент массива, который наиболее близок к данному числу
Помогите пожалуйста, я массивы не учил, пропустил эти темы... 1) Дано вещественное число R и...

11
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
23.09.2013, 16:08 2
QBasic/QuickBASIC
1
2
3
4
5
6
7
min=a(1)
m=ABS(a(1)-R)
FOR i=1 TO n
n=ABS(a(i)-R)
IF n<m THEN m=n: min=a(i)
NEXT i
PRINT a(i)
Примерно так.. Ну, думаю, разберешься.

Добавлено через 8 минут
Не так - в цикле For нужно так:
QBasic/QuickBASIC
1
FOR i=1 TO N
И переменную n нужно бы переименовать...
1
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
18.11.2013, 21:01 3
Для особо одаренных полный код можно увидеть?
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
18.11.2013, 22:25 4
Цитата Сообщение от refery07 Посмотреть сообщение
полный код
Вроде так:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
INPUT "R = ", R
INPUT "N = ", N
DIM a(N)
FOR i=1 TO N
  PRINT "#"N"A";
  INPUT "", a(i)
NEXT i
min=a(1)
FOR i=1 TO N
IF ABS(a(i)-R)<ABS(min-R) THEN min=a(i)
NEXT i
PRINT "Наиболее близкий к числу R элемент равняется "min
Добавлено через 34 секунды
Я его, правда, немного изменил.
0
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
18.11.2013, 23:55 5
выдает ошибку в шестой строке
и я не понимаю что мы вводим в 7 строке
если не сложно поясни.
за ранее благодарю
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
19.11.2013, 00:48 6
Цитата Сообщение от refery07 Посмотреть сообщение
выдает ошибку в шестой строке
Да, может такое быть... Попробуйте так:
QBasic/QuickBASIC
1
PRINT "#"+STR$(i)+"A"
(написано "i", а не "N" - обратите внимание на это. Дело в том, что в преддыдущем варианте я допустил ошибку. Не существенную, но из-за нее неправильно задавались вопросы)
А в седьмой строке мы в цикле вводим последовательно все элементы массива. Здесь, на форуме, этому посвящена даже закремленная тема.
1
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
25.11.2013, 12:23 7
Всё понял.
благодарю за помощь
0
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
28.11.2013, 17:48 8
Цитата Сообщение от Good-Morning Посмотреть сообщение
Да, может такое быть... Попробуйте так:
QBasic/QuickBASIC
1
PRINT "#"+STR$(i)+"A"
(написано "i", а не "N" - обратите внимание на это. Дело в том, что в преддыдущем варианте я допустил ошибку. Не существенную, но из-за нее неправильно задавались вопросы)
А в седьмой строке мы в цикле вводим последовательно все элементы массива. Здесь, на форуме, этому посвящена даже закремленная тема.
Задача все та же,но вместо минимального надо максимально отдаленное число
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DIM r AS INTEGER, n AS INTEGER
INPUT "R = ", r
INPUT "N = ", n
DIM a(n) AS INTEGER
FOR i = 1 TO n
 
    PRINT STR$(i) + "N"
    INPUT "", a(i)
NEXT i
max = a(1)
FOR i = 1 TO n
    IF ABS(a(i) + r) < ABS(max + r) THEN max = a(i)
NEXT i
PRINT "max "; max

но программа не работает при условии R=0,и массив 1 2 3 4 5 6
ежели поменять знак в выражении
QBasic/QuickBASIC
1
 IF ABS(a(i) + r) < ABS(max + r) THEN max = a(i)
то программа не будет работать при условии R=7, и массив 1 2 3 4 5 6

в общем,хелп ми плиз
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
28.11.2013, 18:33 9
Цитата Сообщение от refery07 Посмотреть сообщение
ежели поменять знак в выражении
К чему это все?.. Просто поворачиваем знак здесь:
QBasic/QuickBASIC
1
IF ABS(a(i)-R)<ABS(min-R) THEN min=a(i)
, получаем:
QBasic/QuickBASIC
1
IF ABS(a(i)-R)>ABS(min-R) THEN min=a(i)
ну, и как Вы уже сделали, меняем "min" на "max", но это не существенно
1
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
28.11.2013, 18:59 10
Good-Morning, вот это жесть,мозг уже не переваривает,надо отдохнуть
еще раз благодарю
0
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 12
06.12.2013, 14:08 11
слишком глупый вопрос.
почему используем модуль?
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.12.2013, 17:31 12
Модуль стоит на случай, если разница будет отрицательной. Нам ведь нужен именно модуль разности, т.е. "расстояние" между значениями.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2013, 17:31

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

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

Найти элемент массива, который наиболее близок к данному числу.
Здравствуйте. Помогите пожалуйста с заданиями: 1. Дано вещественное число X (|X| &lt; 1) и целое...

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

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

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


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

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

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