0 / 0 / 0
Регистрация: 24.12.2015
Сообщений: 1
1

Определить сумму всех чисел, целая часть которых равна целой части числа А

24.12.2015, 19:34. Показов 1144. Ответов 1
Метки нет (Все метки)

Дан массив вещественных чисел (размер и элементы задает пользователь). Размер – число из диапазона [5;15]. Дано случайное число А, лежащее в диапазоне [-10;10]. Определить сумму всех чисел, целая часть которых равна целой части числа А.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2015, 19:34
Ответы с готовыми решениями:

Как найти сумму чисел, целая часть которых делится нацело на 3, наименьшее из таких чисел, и номер этого числа в последовательности
Всем привет! Благодарю, за то что читаете это. Я являюсь студентом в одном из вузов Белгорода. Есть...

Матрица. Определить, в какой строке находятся наибольшее число элементов, целая часть которых равна 1
Использование имена процедуры в качестве параметра процедуры. "Цель": Составить программу по...

Определить равна ли сумма k цифр дробной части заданного вещественного числа сумме цифр целой части
Помогите доделать задание, исправьте пожалуйста код!!! Срочно! Задание: Выполнить задания, выделяя...

Определить сумму всех чисел в файле, дробная часть которых более 0.3
Файл содержит вещественные числа. Определить сумму всех чисел в файле, дробная часть которых более...

1
4191 / 3346 / 810
Регистрация: 02.02.2013
Сообщений: 3,234
Записей в блоге: 2
26.12.2015, 00:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim rr As New Random
    Dim nn As Integer = rr.Next(5, 15) 'размер массива
    Dim ms(nn - 1) As Double
    Dim aa As Double = getDoubleRnd(-10, 10, rr) 'число А
    Dim ss As String = String.Empty
    'формируем массив случайным образом в интервале {-10, +10}
    For i = 0 To nn - 1
        ms(i) = getDoubleRnd(-10, 10, rr)
        ss &= ms(i) & ", "
    Next
    ss = ss.TrimEnd(" "c).TrimEnd(","c)
    Dim summ = (From t In ms Where Fix(t) = Fix(aa)).Sum
    'вывод результатов
    MsgBox(ss & vbCrLf & aa.ToString & vbCrLf & summ.ToString)
End Sub
Private Function getDoubleRnd(ByVal rStart As Double, ByVal rEnd As Double, ByRef rnd As Random) As Double
    Return rnd.NextDouble * rEnd + rStart
End Function
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2015, 00:29
Помогаю со студенческими работами здесь

Разделить дробное число на 2 части: целая часть числа и его дробная часть
Пользователь вводит с клавиатуры сумму в валюте (дробное число). Вывести по отдельности количество...

Найти в массиве количество элементов целая часть которых равна 25
Сформировать вещественный массив A1(75) элементами которого являются случайные числа из диапазона...

Дано положительное вещественное число Х. Определить, равна ли первая цифра его дробной части последней цифре целой части
Дано положительное вещественное число Х. Определить, равна ли первая цифра его дробной части...

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

Определения, равна сумма цифр целой части вещественного числа сумме такого же количества цифр в дробной части
Нада написать 2 программки 1. Определения, равна сумма цифр целой части вещественного числа...

Вычислить сумму всех целых чисел из диапазона [A, B], последняя цифра которых равна K
Вычислить сумму всех целых чисел из диапазона , последняя цифра которых ровна K. Значения A,B и K...


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

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

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