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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

Массив: найти два числа, сумма которых близка к М - QBasic

11.01.2017, 11:29. Просмотров 89. Ответов 0
Метки нет (Все метки)

Задается массив, заполненный случайными целыми числами
и задается случайное целое число М. Надо найти в массиве
два таких числа, сумма которых была бы близка к М (а в идеале
равна М, если такое возможно)

QBasic/QuickBASIC
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
CLS
RANDOMIZE TIMER
CONST n = 14
DIM x(n) AS INTEGER
DIM M AS INTEGER
 
M = 90 * RND - 45
PRINT "M ="; M
PRINT
 
FOR i = 0 TO n
   x(i) = 80 * RND - 40
   PRINT x(i);
NEXT
PRINT : PRINT
 
min = 1000
 
FOR i = 0 TO n - 1
FOR j = i + 1 TO n
   IF x(i) <> x(j) THEN
      IF min > ABS(x(i) + x(j) - M) THEN
         min = ABS(x(i) + x(j) - M)
         i1 = i
         i2 = j
      END IF
   END IF
NEXT j, i
 
PRINT x(i1); x(i2)
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2017, 11:29     Массив: найти два числа, сумма которых близка к М
Посмотрите здесь:

Найти два числа, среднее арифметическое которых ближе к А - QBasic
Даны действительные числа А и b(1), b(2),....,b(m).В последовательности b(j) найти два числа, среднее арифметическое которых ближе к А. ...

Найти количество строк матрицы, сумма элементов которых больше заданного числа - QBasic
в 2х мерном массиве из 5ти строк и 3-х столбцов найти количество строк, сумма элементов которых больше заданного числа. воспользовался...

Найти количество строк матрицы, сумма элементов которых больше заданного числа - QBasic
В двухмерном числовом массиве из N строк* и М столбцов найти кол-во строк сумма элементов которых больше заданного числа. и это...

В одномерном массиве найти количество элементов, сумма которых меньше заданного числа - QBasic
Здравствуйте. Подскажите пожалуйста алгоритм, для решения этой задачи. Нужно создать одномерный массив, заполнить элементами. Найти...

Определить числа, сумма которых равна 300 - QBasic
Дано 9 рандомных чисел. И надо вынести на экран те из них, что в сумме дадут число 300. REM REM Рандомно задается 9...

Вывести на экран все натуральные числа, сумма которых не превышает 100 - QBasic
вывести на экран все натуральные числа,сумма которых не превышает 100 Добавлено через 26 минут а так правильно? CLS FOR I = 1 TO...

Напечатать все четырехзначные числа, сумма цифр которых равна введенному числу - QBasic
Написать программу, которая напечатает все четырехзначные числа, сумма цифр которых равна введенному числу.

Массив: Получить сумму тех элементов двумерного массива A(N,N), для которых сумма их индексов нечетна - QBasic
составить программу суммирующую те элементы двумерного массива A(N,N)для которых сумма их индексов нечетна

Найти числа, не превосходящие заданного числа N, двоичная запись которых представляет палиндром - QBasic
Здравствуйте, посетители и программеры... нужна помощь в решении 2 задач... Задание 1. Найти все такие простые числа, не...

Найти номер одного из элементов массива, сумма которых максимальна - QBasic
Помогите решить пожалуйста! В исходном массиве найти номер первого из трех последовательных элементов, сумма которых максимальна (если...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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