Greatest common divisor: Difference between revisions
add Tiny BASIC
No edit summary |
(add Tiny BASIC) |
||
Line 4,891:
gcd(A,B)
The ) can be omitted in TI-83 basic
=={{header|Tiny BASIC}}==
<lang Tiny BASIC>10 PRINT "First number"
20 INPUT A
30 PRINT "Second number"
40 INPUT B
50 IF A<0 THEN LET A=-A
60 IF B<0 THEN LET B=-B
70 IF A>B THEN GOTO 130
80 LET B = B - A
90 IF A=0 THEN GOTO 110
100 GOTO 50
110 PRINT B
120 END
130 LET C=A
140 LET A=B
150 LET B=C
160 GOTO 70</lang>
=={{header|TSE SAL}}==
| |||