Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 02.10.2016
Сообщений: 27

Сложение двух обычных (не десятичных) дробей

17.01.2017, 17:34. Показов 3258. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В textbox1 записывается дробь формата 1/2 во второй textbox тоже самое 3/4 и на выходе должна получиться дробь такого же формата(в третьем textbox) делать нужно через right и left но вот как реализовать не могу додуматься,с форматами типа данных у меня не очень
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.01.2017, 17:34
Ответы с готовыми решениями:

Сложение двух дробей
Нужно написать программу складывающие две дроби и выводыбщую результат

Найти разность обычных и десятичных дробей
Написать перегруженные функции и основную программу, которая их вызывает: а) для вычитания десятичных дробей; б) для вычитания...

Работа с memo. Сложение/деление десятичных и обычных цифр
Здраствуйте, требуется помощь умельцам в delphi/pascal Пожалуйста, сам новичек и очень глупый, готов учиться на примерах, знаю, что всем...

6
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
17.01.2017, 18:23
В данном примере функция Left используется для извлечения указанного числа первых символов строки.

Visual Basic
1
2
3
4
5
Dim AnyString, MyStr
AnyString = "Всем привет" ' Задает строку.
MyStr = Left(AnyString, 1)  ' Возвращает "В".
MyStr = Left(AnyString, 6)  ' Возвращает "Всем п".
MyStr = Left(AnyString, 20) ' Возвращает "Всем привет".
Добавлено через 59 секунд
Это просто из справочника. Начинай уж что-то делать
Что не будет получаться - спрашивай

Добавлено через 1 минуту
с форматами типа данных у меня не очень
А тут единственный формат и нужен! текстовой!
0
0 / 0 / 0
Регистрация: 02.10.2016
Сообщений: 27
17.01.2017, 19:32  [ТС]
Но тем не менее нужно сложить два числа,а когда тип данных строковый это сделать не возможно(он просто слепит строки)
Сделал по аналогии с вашим примером примерно следующее
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
m = Left(a, 1)
f = Left(b, 1)
k = m + f
k = Text3.Text
End Sub
Но он мне даже обычные первые числа не складывает по такому принципу
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
17.01.2017, 19:48
Цитата Сообщение от Shamebeef Посмотреть сообщение
обычные первые числа не складывает по такому принципу
А я вам в предыдущей теме показал, как сложить два числа, если они заданы изначально как строка.
Посмотрите, там есть волшебный оператор, переводящий строку в число.
1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
17.01.2017, 20:08
Лучший ответ Сообщение было отмечено echs как решение

Решение

Держи.
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
Option Explicit
Private Sub Command1_Click()
    Dim a As String, b As String, c1 As Integer, c2 As Integer
    Dim a1 As Integer, a2 As Integer, b1 As Integer, b2 As Integer
    a = Trim$(Text1.Text)   '1-е число
    b = Trim$(Text2.Text)   '2-е число
    a1 = Val(Left(a, InStr(1, a, "/") - 1))        '1-й числитель
    b1 = Val(Left(b, InStr(1, b, "/") - 1))        '2-й числитель
    a2 = Val(Right(a, Len(a) - InStr(1, a, "/")))  '1-й знаменатель
    b2 = Val(Right(b, Len(b) - InStr(1, b, "/")))  '2-й знаменатель
    c2 = NOK(a2, b2)                     'общий знаменатель
    c1 = a1 * (c2 \ a2) + b1 * (c2 \ b2) 'числитель
    If c1 = c2 Then Text3.Text = "1" Else Text3.Text = c1 & "/" & c2
End Sub
Private Function NOK(x As Integer, y As Integer) As Integer ' Функция нахождения НОК 2-ух чисел
    NOK = (x \ NOD(x, y)) * y
End Function
Private Function NOD(ByVal x As Integer, ByVal y As Integer) As Integer ' Функция нахождения НОД 2-ух чисел
    Dim r As Integer
    Do While y > 0
        r = x Mod y: x = y: y = r
    Loop
    NOD = x
End Function
1
0 / 0 / 0
Регистрация: 02.10.2016
Сообщений: 27
17.01.2017, 20:11  [ТС]
Да про оператор Val я знаю,виноват стоило догадаться,итак я продвинулся в программе
Visual Basic
1
2
3
4
5
6
7
8
9
a = Text1.Text
b = Text2.Text
m = Val(Left(a, 1))
f = Val(Left(b, 1))
k = m + f
l = Val(Right(a, 1))
k = Val(Right(b, 1))
n = l + k
Text3.Text = CStr(n)
И теперь самый финальный вопрос я имею два числа,как сделать так чтобы они на выходе были записаны в формате той же обычной дроби(1/2 например) ? Может нужен какой то строковый оператор или функция ?
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
17.01.2017, 20:11
Тут не помешало бы добавить проверку на то
введены ли в текстовые поля числа

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
Option Explicit
Dim a&, b&, c&, d&, i&
Dim m&, n&, m1&, n1&
 
Private Sub cmdD_Click()
    i = InStr(txt1.Text, "/")
    a = Val(txt1.Text)
    b = Mid(txt1.Text, i + 1)
    
    i = InStr(txt2.Text, "/")
    c = Val(txt2.Text)
    d = Mid(txt2.Text, i + 1)
    
    m = a * d + b * c
    n = b * d
    m1 = m / NOD(m, n)
    n1 = n / NOD(m, n)
    txt3 = Str(m1) + "/" + LTrim(Str(n1))
End Sub
 
Private Function NOD(a&, b&) As Long
   If a = 0 Or b = 0 Then
      NOD = a + b
   Else
      If a > b Then
         NOD = NOD(a Mod b, b)
      Else
         NOD = NOD(a, b Mod a)
      End If
   End If
End Function
Результат в нижнем поле.
Миниатюры
Сложение двух обычных (не десятичных) дробей  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.01.2017, 20:11
Помогаю со студенческими работами здесь

Сложение десятичных дробей
Здравствуйте, как во флеш сложить десятичные дроби, при обычном сложении он выводит на экран в виде даты (месяц, число, год)! А как...

сложение десятичных дробей
помогите реализовать такие задачи 1)сложение десятичных дробей 2)сложение обыкновенных дробей в десятичное число 3)перевод...

Сложение десятичных дробей
как посчитать 0,1+0,1

Сложение двух дробей(Обьекты)
Написать класс дробь Fraction, выполняющий следующие действия: сложение дробей метод Fraction add(Fraction frac) приведение к строке...

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru