home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M12.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  512 b   |  21 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "LINEAR INTERPOLATION"
  3. 20   PRINT 
  4. 30   PRINT "X,Y OF FIRST POINT";
  5. 40   INPUT X1,Y1
  6. 50   PRINT "X,Y OF SECOND POINT";
  7. 60   INPUT X2,Y2
  8. 70   PRINT "INTERPOLATE: X= ";
  9. 80   INPUT X
  10. 90  Y = Y1 + (Y2 - Y1) / (X2 - X1) * (X - X1)
  11. 100   PRINT "             Y= "; INT (Y * 1000 + 0.5) / 1000
  12. 110   PRINT 
  13. 120   PRINT "MORE POINTS ON THIS LINE (1=YES, 0=NO)";
  14. 130   INPUT Z
  15. 140   PRINT 
  16. 150   IF Z = 1 THEN 70
  17. 160   PRINT "NEW LINE (1=YES,0=NO)";
  18. 170   INPUT Z
  19. 180   IF Z = 1 THEN 20
  20. 190   RUN "MATH"
  21.