3 replies to this topic

[Tritonio]

Small program to find the greatest common divisor on the fx-5800P.

?M
?N
M→S
N<M
N<M⇒N→S
For 1→F To S
If Frac(S÷F)=0
Then
Cls
Locate 1,1,S÷F
If Frac(N÷(S÷F))=0 And Frac(M÷(S÷F))=0
Then
Break
IfEnd
IfEnd
Next
Cls
"GCD":S÷F

Edited by Tritonio, 08 September 2019 - 06:38 PM.

[CalcLoverHK]

Hi Tritonio,

 

(Seems you weren't active for about one year, didn't you?)

 

Your program has some arrangement errors: delete the return symbol between Then and Cls/Break.

 

And I found that you duplicated the post with same title. Is it an accident?

 

Cheers,

CalcLoverHK

[Tritonio]

Hi!

 

It works with the enter after "Then" but you mean it looks better without it right? 

 

I did not realize I double posted, I'm not sure how I did that. Is it possible to delete my other post?

[CalcLoverHK]

Hi Tritonio,

 

It works with the enter after "Then" but you mean it looks better without it right?

- Yes.

 

I did not realize I double posted, I'm not sure how I did that. Is it possible to delete my other post?

- No. Only admins or moderators can do that. (Possibly only admins now because moderators are offline for at least months.)

 

And thanks for replying to me on IRC.

 

Cheers,

CalcLoverHK

Edited by CalcLoverHK, 09 September 2019 - 05:05 AM.