Anonymous user
Arithmetic/Integer: Difference between revisions
Added solution for Action!
(Add Vlang) |
(Added solution for Action!) |
||
Line 390:
(cw "Quotient: ~x0~%" (floor a b))
(cw "Remainder: ~x0~%" (mod a b))))))</lang>
=={{header|Action!}}==
<lang Action!>DEFINE NO_KEY="255"
DEFINE KEY_Y="43"
DEFINE KEY_N="35"
PROC Main()
BYTE CH=$02FC ;Internal hardware value for last key pressed
BYTE k
INT a,b
DO
Print("Input integer value a=")
a=InputI()
Print("Input integer value b=")
b=InputI()
PrintF("a+b=%I%E",a+b)
PrintF("a-b=%I%E",a-b)
PrintF("a*b=%I%E",a*b)
PrintF("a/b=%I%E",a/b)
PrintF("a MOD b=%I%E",a MOD b)
PutE()
PrintE("Again? (Y/N)")
CH=NO_KEY ;Flush the keyboard
DO
k=CH
UNTIL k=KEY_Y OR k=KEY_N
OD
CH=NO_KEY ;Flush the keyboard
IF k=KEY_N THEN
EXIT
FI
OD
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Arithmetic_Integer.png Screenshot from Atari 8-bit computer]
<pre>
Input integer value a=3251
Input integer value b=15
a+b=3266
a-b=3236
a*b=-16771
a/b=216
a MOD b=11
Again? (Y/N)
</pre>
=={{header|Ada}}==
| |||