home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / pascal / 6460 < prev    next >
Encoding:
Text File  |  1992-11-10  |  2.4 KB  |  56 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!utcsri!torn!newshost.uwo.ca!uwovax.uwo.ca!4224_5276
  3. From: 4224_5276@uwovax.uwo.ca (Chris Walden)
  4. Subject: Re: Help Converting :='x+y' to :=x+y
  5. Organization: University of Western Ont, London
  6. Date: Tue, 10 Nov 1992 14:47:47 GMT
  7. Message-ID: <1992Nov10.104747.1@uwovax.uwo.ca>
  8. References: <1dnfelINNp09@charnel.ecst.csuchico.edu>
  9. Sender: news@julian.uwo.ca (USENET News System)
  10. Nntp-Posting-Host: hydra.uwo.ca
  11. Lines: 43
  12.  
  13. In article <1dnfelINNp09@charnel.ecst.csuchico.edu>, psmedsha@ecst.csuchico.edu (Paul Smedshammer) writes:
  14. > I don't know if this is a simple thing to do but I have not
  15. > been able to figure it out.  I would like to take a string 
  16. > of characters that represent an equation and implement that
  17. > equation.  For example:
  18. > 
  19. >      Var  Equation : String[20];
  20. >           x, y, Solution : Real;
  21. >      Begin
  22. >           Equation := 'x + y';
  23. >           x := 1;
  24. >           y := 2;
  25. >              {'now right here I would like to be able
  26. >              to use the equation in the string Equation
  27. >              like this:
  28. >           Solution := Somefunction(Equation);
  29. >              Is this easily done?'}
  30. >           Writeln('The solution is:',Equation,'=',Solution);
  31. >      End.
  32. > 
  33. > I would like the user to be able to input an equation and
  34. > then the program will perform different mathematics on that
  35. > equation.  But to be able to do the mathematics I need to 
  36. > get the input equation into the form " Solution := x + y".
  37. > I would appreciate any help I can get on this.  I'm stuck now
  38. > to changing the code for each different equation I use.  Thanks
  39. > for your time.
  40.  
  41. This is my humble suggestion in how to implement it... have a function like:
  42.  
  43. SolveEqn(Equation:string; Vbles:VbleRec):real   ... where Equation is the
  44. string equation and Vbles (type Vblerec) is a record of the values of the
  45. variables.  You would have to limit variable to a set number (ie a..z or
  46. something).  Then recursively call the function.  You will have to check for
  47. ()'s (if you allow them) and each operation (*-+/^..??) that you allow.
  48.  
  49. The two different ways I can suggest, would be to a) parse left to right,
  50. recursing for "higher" order of operations, or b) scan for order of operations,
  51. start at the highest, and actually simplify the string equation as you go.
  52.  
  53. Good luck... write me if you need any more suggestions!
  54.  
  55. Chris Walden  4224_5276@uwovax.uwo.ca
  56.