SCREEN 12
WINDOW (-10, 150)-(150, -30)
LINE (-10, 0)-(150, 0)
LINE (0, -10)-(0, 150)
CIRCLE (100, 100), .1
INPUT "Tavşanın hızı="; v1
INPUT "tazının hızı="; v2
INPUT "deltat="; deltat
x = 0: y = 0
FOR t = 0 TO 10000 STEP deltat
l = SQR((v1 * t - x) ^ 2 + (100 - y) ^ 2)
x = x + v2 * deltat / l * (v1 * t - x)
y = y + v2 * deltat / l * (100 - y)
PSET (v1 * t, 100)
PSET (x, y)
IF l < .01 THEN GOTO 100
IF (v1 * t) >= 100 THEN GOTO 200
NEXT t
100 PRINT "Tavşan yakalandı": GOTO 300
200 PRINT "Tavşan kaçtı": GOTO 300
300 END
Ana Sayfa