Data update

Task/Nth-root/RATFOR/nth-root.ratfor

@@ -1,35 +1,29 @@
 program nth
-#
-integer root
+
+integer n
 real    number, precision
 real    temp0, temp1
 
-1 format('Enter the base number: ')
-2 format('Enter the desired root: ')
-3 format('Enter the desired precision: ')
-4 format(F12.6)
-5 format(I6)
-write(6,1)
-read(5,4)number
-write(6,2)
-read(5,5)root
-write(6,3)
-read(5,4)precision
+6 format('  number      root')
+7 format(i6,f12.6)
+precision=0.00001
+root=1.0
+number=144.0
+n=10
+
+write(6,6)
+
+for (i=1;i<=n;i=i+1) {
 
 temp0 = number
-temp1 = number/root
+temp1 = number/i
 
-while ( abs(temp0 - temp1) > precision )
+while ( abs(temp1 - temp0) > precision )
    {
       temp0 = temp1
-      temp1 = ((root - 1.0) * temp1 + number / temp1 ** (root - 1.0)) / root
+      temp1 = ((i - 1.0) * temp1 + number / temp1 ** (i - 1.0)) / i
    }
 
-6 format('  number      root    precision')
-write(6,6)
-7 format(f12.6,i6,f12.6)
-write (6,7)number,root,precision
-8 format('The root is: ',F12.6)
-write (6,8)temp1
-
+write (6,7)i,temp1
+}
 end