Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 5.00/24: Рейтинг темы: голосов - 24, средняя оценка - 5.00
akira_akai
17 / 3 / 0
Регистрация: 14.12.2010
Сообщений: 77
#1

Вывод целой и десятичной части дробного числа

06.10.2011, 00:17. Просмотров 4339. Ответов 20
Метки нет (Все метки)

Вечера, уважаемые программисты. Возникла потребность в программе, которая бы при вводе не целого числа выводила отдельно целую часть и десятичную(то есть число после комы0.
Как это осуществить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2011, 00:17
Ответы с готовыми решениями:

Разделитель целой и дробной части числа ....
Привет. Подскажите, можно ли узнать с помощью какой-нибудь функции, какой...

Разделение целой и дробной части в TextBox
Здравствуйте. У меня есть три текстбокса, в одном из них выводится...

Как из макроса в Eхcel поменять разделитель целой и дробной части с ',' на '.' ?
Kak is Makrosa v EXcele pomenjat' rasdelitel' celoj i drobnoj 4asti s ',' na...

Превод числа из десятичной в к-ичную
даны два числа а-число в деcятичной k-система в которую нужно перевести...

Преобразование числа из десятичной системы счисления в 19-ичную
Составить программу преобразования числа из десятичной системы счисления в...

20
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,273
06.10.2011, 02:12 #21
пробуй
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
Private Sub Command1_Click()
Dim k As Integer
k = InputBox("n-?")
If IsNumeric(k) Then
   If k Mod 3 = 0 Then
   Cls
     Print "для k="; k; "   S3=" & S_k(k)
     Print "для k="; S_k(k); "   S3=" & S_k(S_k(k))
   Else
      MsgBox "не кратное 3"
   End If
Else
  MsgBox "введено не число"
End If
End Sub
Function S_k(n As Integer) As Long
Dim n1 As Integer
n1 = n
S_k = 0
Do While n1 > 0
m = n1 Mod 10
S_k = S_k + m ^ 3
n1 = n1 \ 10
Loop
End Function
Добавлено через 5 минут
Цитата Сообщение от akira_akai Посмотреть сообщение
- это немного не понял. остаток от деления? и какое число потом нацело делить на 10?
S=0
15
15/10 остаток --- 5
S=S+5^3
15\10 деление нацело --- 1
S=S+1^3
0
06.10.2011, 02:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2011, 02:12

Получение целой и дробной части для десятичной дроби
Привет всем. Ищу ответа на достаточно простую задачу: человек вводит число в...

Перевод дробного числа из десятичной системы в двоичную
Здравствуйте, наткнулся на такую задачу:scratch:, нужно перевести десятичное...

Даны 2 натуральных числа M и N.Вывести старшую цифру дробной части и младшую цифру целой части числа M/N
Помогите пожалуйста написать программки в VBA: 1)Даны натуральные числа М и...


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

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

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