Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби - VB
Формулировка задачи:
Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби, а затем сокращает дробь и выводит новые значения числителя и знаменателя. Программа, естественно, должна быть защищена от дурака.
Решение задачи: «Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби»
textual
Листинг программы
Function nod(ByVal a, ByVal b) 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
Sub main()
a = Val(InputBox("A=", "", 6))
b = Val(InputBox("B=", "", 8))
If a <= 0 Or b <= 0 Then
MsgBox "сам дурак"
Else
MsgBox a & "/" & b & "=" & a / nod(a, b) & "/" & b / nod(a, b)
End If
End Sub