diff options
Diffstat (limited to 'src/examples/example.ft')
-rw-r--r-- | src/examples/example.ft | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/examples/example.ft b/src/examples/example.ft deleted file mode 100644 index 571cace..0000000 --- a/src/examples/example.ft +++ /dev/null @@ -1,18 +0,0 @@ -program example -real::a -real::root -a=30 -root=sqrt(25+5) -print*,"The square root of ",a," is ",root -end program example - -!Function to calculate the square root of a value -function real sqrt(real value) -real::result -result=1 -int::count -do count=0,10 -result =(result+value/result)/2 -end do -return result -end
\ No newline at end of file |