Разработать программу, которая вводит 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д