ack/lang/basic/test/som4.b

18 lines
353 B
Brainfuck
Raw Normal View History

1985-01-24 11:27:36 +00:00
0010 print " beginwaarde =a"
0020 input a
0030 print "eindwaarde =b"
0040 input b
0050 if b<a then 0130
0060 n=a
0070 if n<0 then 0200
0080 print "n=",n;" wortel uit n=",sqr(n)
0090 if n=b then 0120
0100 n=n+1
0110 goto 0070
0120 end
0130 print "b moet groter zijn dan a"
0140 end
0200 print "n=",n,"n is negatief, de oplossing is leeg"
0210 goto 0100