Реализовать в виде модуля набор подпрограмм для работы с обыкновенными дробями

@less11 · Регистрация: 17.02.2016

Author24 — интернет-сервис помощи студентам

помогите, пожалуйста, с решение задачи.
Задача. Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными дробями вида P/Q (P — целое, Q — натуральное): 1) сложение; 2) вычитание; 3) умножение; 4) деление;
Используя этот модуль, решить задачи:

1. Дан массив A — массив обыкновенных дробей. Найти сумму всех дробей, ответ представить в виде несократимой дроби. Вычислить среднее арифметическое всех дробей, ответ представить в виде несократимой дроби.

заранее спасибо.

~~Shersh~~ · 28.04.2016, 17:05

Сообщение от Апострофф

Visual Basic

Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
Function nod(ByVal a As Long, ByVal b As Long) As Long
    While a > 0 And b > 0
      If a >= b Then a = a Mod b Else b = b Mod a
    Wend
    nod = a + b
End Function

- 80% решения вашей задачи.

@less11 · 28.04.2016, 17:10 **[ТС]**

можно ли из этого что-то сделать?
Type Frac
P As Integer
Q As Long
End Type

Type natur
natur As Long
End Type

Function NodEvklid(A As natur, B As natur) As natur
While A <> B
If A > B Then
If A Mod B <> 0 Then A = A Mod B Else A = B
Else
If B Mod A <> 0 Then B = B Mod A Else B = A
NodEvklid = A
End If
End If
End If
End Function

Sub summa() 'Сумма дробей
'Знаменатель дроби
c.Q = (A.Q * B.Q) / NodEvklid(A.Q, B.Q)
'Числитель дроби
c.P = A.P * c.Q / A.Q + B.P * c.Q / B.Q
Sokr (c)
End Sub

Sub Sokr(ByRef m As natur, N As natur) 'Сокращение дроби
If A.P <> 0 Then
If A.P < 0 Then m = Abs(A.P)
Else: m = A.P 'Совмещение типов, т. к. A.P - LongInt
N = NodEvklid(m, A.Q)
A.P = A.P / N
A.Q = A.Q / N
End If
End Sub

~~Shersh~~ · 29.04.2016, 07:16

Сообщение от less11

можно ли из этого что-то сделать?

Чушь какая-то (со слепой фотки набивали?)

Visual Basic

Option Explicit
 
Type PQ 'дробь
  p As Long 'числитель
  q As Long 'знаменатель
End Type
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function
 
Function sum(a As PQ, b As PQ) As PQ
'суммируем
sum.q = nok(a.q, b.q)
sum.p = a.p * sum.q \ a.q + b.p * sum.q \ b.q
'сокращаем
Dim nd As Long
nd = nod(sum.p, sum.q)
sum.p = sum.p \ nd
sum.q = sum.q \ nd
End Function
 
Sub test()
Dim a As PQ, b As PQ, c As PQ
a.p = 6: a.q = 360
b.p = 4: b.q = 540
c = sum(a, b)
End Sub

@less11 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 90
		1
	Реализовать в виде модуля набор подпрограмм для работы с обыкновенными дробями 28.04.2016, 15:45. Показов 1040. Ответов 3 Метки нет (Все метки) помогите, пожалуйста, с решение задачи. Задача. Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными дробями вида P/Q (P — целое, Q — натуральное): 1) сложение; 2) вычитание; 3) умножение; 4) деление; Используя этот модуль, решить задачи: 1. Дан массив A — массив обыкновенных дробей. Найти сумму всех дробей, ответ представить в виде несократимой дроби. Вычислить среднее арифметическое всех дробей, ответ представить в виде несократимой дроби. заранее спасибо. 0

@less11 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 90
	28.04.2016, 17:10 [ТС]	3
	можно ли из этого что-то сделать? Type Frac P As Integer Q As Long End Type Type natur natur As Long End Type Function NodEvklid(A As natur, B As natur) As natur While A <> B If A > B Then If A Mod B <> 0 Then A = A Mod B Else A = B Else If B Mod A <> 0 Then B = B Mod A Else B = A NodEvklid = A End If End If End If End Function Sub summa() 'Сумма дробей 'Знаменатель дроби c.Q = (A.Q * B.Q) / NodEvklid(A.Q, B.Q) 'Числитель дроби c.P = A.P * c.Q / A.Q + B.P * c.Q / B.Q Sokr (c) End Sub Sub Sokr(ByRef m As natur, N As natur) 'Сокращение дроби If A.P <> 0 Then If A.P < 0 Then m = Abs(A.P) Else: m = A.P 'Совмещение типов, т. к. A.P - LongInt N = NodEvklid(m, A.Q) A.P = A.P / N A.Q = A.Q / N End If End Sub 0

	29.04.2016, 07:16