som4.b 353 B

1234567891011121314151617
  1. 0010 print " beginwaarde =a"
  2. 0020 input a
  3. 0030 print "eindwaarde =b"
  4. 0040 input b
  5. 0050 if b<a then 0130
  6. 0060 n=a
  7. 0070 if n<0 then 0200
  8. 0080 print "n=",n;" wortel uit n=",sqr(n)
  9. 0090 if n=b then 0120
  10. 0100 n=n+1
  11. 0110 goto 0070
  12. 0120 end
  13. 0130 print "b moet groter zijn dan a"
  14. 0140 end
  15. 0200 print "n=",n,"n is negatief, de oplossing is leeg"
  16. 0210 goto 0100