9 lines
228 B
Text
9 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
|