8 lines
228 B
Text
8 lines
228 B
Text
invocable all
|
|
procedure main()
|
|
|
|
d := 30 # degrees
|
|
r := dtor(d) # convert to radians
|
|
|
|
every write(f := !["sin","cos","tan"],"(",r,")=",y := f(r)," ",fi := "a" || f,"(",y,")=",x := fi(y)," rad = ",rtod(x)," deg")
|
|
end
|