home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo3.zip / RANGES.PAS / RANGES.PAS
Pascal/Delphi Source File  |  1991-06-12  |  463b  |  35 lines
  1. .EQN 0 0 0 0
  2. i:1;10
  3. .EQN 3 0 0 0
  4. (x)[(i):(i)^(2)
  5. .TXT 0 14 0 0
  6. C a54,448,12
  7. {\rtf1\ansi \deff0
  8. {\fonttbl
  9. {\f0\fnil Helv;}
  10. }
  11. Table . . .
  12. }
  13. .EQN 0 8 0 0
  14. (x)[(i)=
  15. .TXT 4 -22 0 0
  16. C a85,584,16
  17. {\rtf1\ansi \deff0
  18. {\fonttbl
  19. {\f0\fnil Helv;}
  20. }
  21. Summation . . .
  22. }
  23. .EQN 4 0 0 0
  24. i$(x)[(i)*i={19139}?
  25. .TXT 6 0 0 0
  26. C a64,584,14
  27. {\rtf1\ansi \deff0
  28. {\fonttbl
  29. {\f0\fnil Helv;}
  30. }
  31. Product . . .
  32. }
  33. .EQN 4 0 0 0
  34. i#((x)[(i))/((i)^(1.5))={19139}?
  35.