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

Visual Basic

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

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

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

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

Выбрать в массиве А два наиболее близких по значению элемента - Visual Basic
Выбрать в массиве А два наиболее близких по значению элемента меньший из них поместить в массив В, а больший — в масcив С

Как выделить цветом информацию о товаре, цена которого наиболее близка к средней цене товара - Visual Basic
Прайс-лист на форме имеет названия и цены N товаров (N =10) Выделить цветом информацию о товаре, цена которого наиболее близка к средней...

Найти в массиве две строки, сумма элементов которых максимальна и минимальна - Visual Basic
Доброго времени суток. Ребята помогите мне пожалуйста!!! 1.Нужно найти в массиве две строки, сумма элементов которых максимальна и...

Найти все трехзначные числа, сумма цифр которых равна A - Visual Basic
Найти все трехзначные числа,сумма цифр которых равна A,а само число делится на B.A и В задаются. Вот что получилось,но вылазит ошибка...

Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая - Visual Basic
даны 4 натуральных числа. вывести на экран те, сумма цифр которых наибольшая

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
23.01.2017, 16:07 #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  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2017, 16:07
Привет! Вот еще темы с ответами:

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

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

В массиве из 20 элементов, найти 5 соседних элементов, сумма которых максимальна - Visual Basic
Очень прошу помочь. Что не правильно? Условие: Дан массив из 20 элементов, найти 5 соседних элементов, сумма которых максимальна. ...

Найти все трехзначные числа, сумма цифр которых равна заданному целому числу - Visual Basic
Пожалуйста, помогите сделать! (visual basic) Найти все трехзначные числа, сумма цифр которых равна заданному целому числу


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

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

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