RosettaCodeData/Task/Euler-method/ZX-Spectrum-Basic/euler-method.zx
2016-12-05 22:15:40 +01:00

3 lines
149 B
Text

10 LET d$="-0.07*(y-20)": LET y=100: LET a=0: LET b=100: LET s=10
20 LET t=a
30 IF t<=b THEN PRINT t;TAB 10;y: LET y=y+s*VAL d$: LET t=t+s: GO TO 30