udregne formel

Der er forskellige muligheder.

Standard måden er:
  - konverter fra streng til symbolsk infix
  - konverter fra symbolsk infix til symbolsk postfix
  - evaluer symbolsk postfix

En del arbejde !

:-)

kan du komme med nogle eksempler?

Jeg har kun noget kode i Pascal til den sidsten pind.

program expression_evaluation(input,output);

type
  etype = (econstant,eplus,eminus,emul,ediv);
  e = record
          typ : etype;
          val : integer;
      end;

var
  elm : array [1..9] of e; 
  stack : array[1..100] of integer;
  top,i,res : integer;

begin
  elm[1].typ := econstant;
  elm[1].val := 34;
  elm[2].typ := econstant;
  elm[2].val := 34;
  elm[3].typ := eplus;
  elm[4].typ := econstant;
  elm[4].val := 4;
  elm[5].typ := econstant;
  elm[5].val := 2;
  elm[6].typ := ediv;
  elm[7].typ := econstant;
  elm[7].val := 3;
  elm[8].typ := emul;
  elm[9].typ := eminus;
  top := 0;
  for i := 1 to 9 do begin
      case elm[i].typ of
        econstant :
            begin
              top := top + 1;
              stack[top] := elm[i].val;
            end;
        eplus :
            begin
              res := stack[top-1] + stack[top];
              stack[top-1] := res;
              top := top - 1;
            end;
        eminus :
            begin
              res := stack[top-1] - stack[top];
              stack[top-1] := res;
              top := top - 1;
            end;
        emul :
            begin
              res := stack[top-1] * stack[top];
              stack[top-1] := res;
              top := top - 1;
            end;
        ediv :
            begin
              res := stack[top-1] div stack[top];
              stack[top-1] := res;
              top := top - 1;
            end;
      end;
  end;
  res := stack[1];
  writeln('result=',res);
end.

Men de første 2 pinde er ikke så svære at kode.

'a+b*2' skal konverteres til a+b*2 i symbolsk form (se koden ovenfor)

så skal a+b*2 konverteres til ab2*+

hmm... det forstår jeg ikke møjt af...!

Beklager, men det er altså ikke helt simpelt at lave på den rigtige måde.

Du kan evt. hapse noget eksisterende kode.

http://www.efg2.com/Lab/Library/Delphi/MathFunctions/Parsers.htm
http://www.torry.net/expressions.htm

hmm forstår ikke rigtig noget af det..

brug denne her

http://www.bitsoft.com/freestuff/delphi/parser.htm

Stoney

hvordan virker den... den skriver at den mangler TMathParser

Jeg er vokset op med HP's regnere og her hersker RPN (Reverse Polish Notation -> Omvendt Polsk notation). Hvis du vil lave en let implementering af en regnemaskine, så er det RPN du skal bruge.

Metoden er simpel stakbrug: Skal du f.eks. lægge 2 tal sammen så taster man 2,4+. Det smarte er, at tallene er placeret på en stak og når der kommer en operator (her +), så henter den så mange værdier som den skal bruge (2) (kommaet er i denne sammenhæng ikke en operator men en separator) og skriver resultatet i stedet for disse (6).

Mit indslag løser ikke din opgave, andet at du måske kan bruge TStack til den, men jeg slår altid gerne et slag for RPN ;-)

Nu har jeg kigget lidt på ArneV's kodning - og det minder ret meget om RPN og selvom jeg ikke er helt med på hvorfor a+b*2 bliver ab2*+, så skal det nok passe. Med RPN ser regestykket sådan ud: a,b+2*

postfix er det samme som RPN !

Og du mener også ab2*+ ikke ab+2* fordi du vil have a+(b*2) ikke (a+b)*2

Korrekt.

hmm giver op... lukker!