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

Visual Basic

Войти
Регистрация
Восстановить пароль
 
DankoLolKek
0 / 0 / 0
Регистрация: 08.01.2017
Сообщений: 1
#1

Найдите два различных числа в массиве, сумма которых наиболее близка к p - Visual Basic

08.01.2017, 15:48. Просмотров 154. Ответов 1
Метки нет (Все метки)

1.Дан массив и число p. Найдите два различных числа в массиве, сумма которых наиболее близка к p
2. Дан массив из n*m элементов.Найдите наибольший элемент массива в каждой строке
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2017, 15:48     Найдите два различных числа в массиве, сумма которых наиболее близка к p
Посмотрите здесь:

Найти наиболее часто встречающееся число в массиве и вывести его Visual Basic
Найти все трехзначные числа, сумма цифр которых равна A Visual Basic
Visual Basic Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая
Найти все трехзначные числа, сумма цифр которых равна данному числу Visual Basic
Найти в массиве две строки, сумма элементов которых максимальна и минимальна Visual Basic
Visual Basic Вернуть элемент, наиболее часто встречающийся в массиве
Visual Basic В массиве из 20 элементов, найти 5 соседних элементов, сумма которых максимальна
Найти все двузначные числа, сумма квадратов цифр которых кратна М. Visual Basic
Выбрать в массиве А два наиболее близких по значению элемента Visual Basic
Visual Basic Как выделить цветом информацию о товаре, цена которого наиболее близка к средней цене товара
Есть ли четыре последовательных числа, сумма квадратов которых равна сумме квадратов трёх следующих чисел. Visual Basic
Visual Basic Найти все трехзначные числа, сумма цифр которых равна заданному целому числу

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
886 / 1081 / 347
Регистрация: 23.10.2013
Сообщений: 5,040
Записей в блоге: 7
23.01.2017, 16:07     Найдите два различных числа в массиве, сумма которых наиболее близка к p #2
1.
Visual Basic
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
Option Explicit
Dim N%, i%, j%, P%, min%, S%, i1%, i2%
 
Private Sub cmdD_Click()
    Randomize Timer
    Cls
    N = Val(txtN.Text)
    P = Val(txtP.Text)
    ReDim A(N) As Integer
    
    For i = 1 To N
        A(i) = 100 * Rnd
    Next
    min = 1000
    
    For i = 1 To N - 1
    For j = i + 1 To N
        If A(i) <> A(j) Then
            S = A(i) + A(j)
            If min > Abs(S - P) Then
                min = Abs(S - P)
                i1 = i
                i2 = j
            End If
        End If
    Next j, i
            
    Print A(i1); " + "; A(i2); " = "; A(i1) + A(i2)
    Print
    For i = 1 To N
        Print A(i)
    Next
End Sub
Миниатюры
Найдите два различных числа в массиве, сумма которых наиболее близка к p  
Yandex
Объявления
23.01.2017, 16:07     Найдите два различных числа в массиве, сумма которых наиболее близка к p
Ответ Создать тему
Опции темы

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