감소 분수

Question

내 코드 :

Private Sub btnReduce_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReduce.Click 

    Call Reduce() 

End Sub 

Function Reduce() As Single 

    Dim num As Integer = txtNum.Text 
    Dim deno As Integer = txtDeno.Text 

    For i = 1 To deno Step +1 
     If num Mod i = 0 Then 
      num = num/i 
     End If 

     If deno Mod i = 0 Then 
      deno = deno/i 
     End If 

    Next 

    lblOutputNum.Text = num 
    lblOutputDeno.Text = deno 

End Function 

I가 2/4을 입력하면이 1/2 나에게 제공합니다. 그러나 3/6을 입력하면 1/1이됩니다. 아무도 왜 이것을하는지 알 수 있습니까? 나는 이것을 알 수 없다. 할 수있는 사람 덕분에.

Answer 1

당신은 서로 독립적으로 분자와 분모를 분할 할 수 없거나 당신은 분수의 값을 변경합니다 :

For i = 1 To Math.Min(deno, num)/2 Step +1 
    If num Mod i = 0 And deno Mod i = 0 Then 
     num = num/i 
     deno = deno/i 
    End If 
Next 

이 방법은 매우 성능이 좋은하지 있음을 유의하십시오. 가장 큰 공약수로 분자와 분모를 나눌 필요가 있습니다. GCD는 유클리드 알고리즘으로 계산할 수 있습니다.

Answer 2

Nico의 예를 사용하여 나는 더 적은 부분을 줄일 수있었습니다.

For i = 1 To Math.Min(deno, num)/2 Step +1 
If num Mod i = 0 And deno Mod i = 0 Then 
    num = num/i 
    deno = deno/i 
End If 
If i > 1 Then 
    While nume Mod i = 0 And deno Mod i = 0 
    nume = nume/i 
    deno = deno/i 
    End While 
End If 
Next