Arithmetic/Integer: Difference between revisions

Line 3,845:

=={{header|Phix}}==

<lang Phix>integer a = floor(prompt_number("a = ",{}))

integer b = floor(prompt_number("b = ",{}))

You can run this online [http://phix.x10.mx/p2js/ArithInt.htm here] (layout/space is not perfected yet).

printf(1,"a + b = %d\n", a+b)

with javascript_semantics

printf(1,"a - b = %d\n", a-b)

include pGUI.e

printf(1,"a * b = %d\n", a*b)

⚫

~~printf(1,"~~a / b = %g~~\n",~~ ~~a/b) --~~ does not truncate

Ihandle lab, tab, res, dlg

⚫

~~printf(1,"~~remainder(a,b) = %d~~\n",~~ ~~remainder~~(~~a,b)) --~~ same sign as first operand

printf(1,"power(a,b) = %g\n", power(a,b))</lang>

constant fmt = """

a = %d

b = %d

a + b = %d

a - b = %d

a * b = %d

⚫

a / b = %g (does not truncate)

⚫

remainder(a,b) = %d (same sign as first operand)

power(a,b) = %g

"""

function valuechanged_cb(Ihandle tab)

string s = IupGetAttribute(tab,"VALUE")

sequence r = scanf(s,"%d %d")

if length(r)=1 then

integer {a,b} = r[1]

s = sprintf(fmt, {a, b, a+b, a-b, a*b, a/b, remainder(a,b), power(a,b)})

IupSetStrAttribute(res,"TITLE",s)

IupRefresh(res)

end if

return IUP_DEFAULT

end function

procedure main()

IupOpen()

lab = IupLabel("Enter two numbers")

tab = IupText("VALUECHANGED_CB", Icallback("valuechanged_cb"),"EXPAND=HORIZONTAL")

res = IupLabel("(separated by a space)\n\n\n\n\n\n\n","EXPAND=BOTH")

dlg = IupDialog(IupVbox({IupHbox({lab,tab},"GAP=10,NORMALIZESIZE=VERTICAL"),

IupHbox({res})},"MARGIN=5x5"),

`SIZE=188x112,TITLE="Arithmetic/Integer"`)

IupShow(dlg)

if platform()!=JS then

IupMainLoop()

IupClose()

end if

end procedure

main()

With an input of "2 3"

<pre>

a = 2

Line 3,861:

Line 3,902:

a - b = -1

a * b = 6

a / b = 0.666667

a / b = 0.666667 (does not truncate)

remainder(a,b) = 2

remainder(a,b) = 2 (same sign as first operand)

power(a,b) = 8

</pre>