Download or view rootGUITest.frink in plain text format
numstr = "10000"
rootstr = "2"
message = "Find roots of a number"
while [numstr, rootstr] = results = input[message, [["Number", numstr], ["Root", rootstr]]]
{
[num, root] = eval[results]
val = num^(1/root)
message = "$numstr^(1/$root) = $val"
println[message]
}
Download or view rootGUITest.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19967 days, 4 hours, 36 minutes ago.