forum.dsmarty.com

Code: Select all

125 * 33 - 77 + 50 / 4

Code: Select all

Doet het niet goed in code tags..

Code: Select all

public double Multipli(double a, double b){
  return a * b;
}

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
        Input : TextFile;
        LineFromFile : string;

function ParseLine (formule : string) : string;
        var
                i : integer;
                elements : array of string;
                tmp_str : string;
                current_value : real;
        begin
        //Loop door de forumle heen op zoek naar spaties (scheidingstekens)
        for i := 1 to length(formule) do
                begin
                //Als die is gevonden wordt het stukje struk dat we tot nu toe hebben gevonden opgeslagen in array
                //Let op: de paties worden er al automatisch uit gevist!
                if formule[i] = ' ' then
                        begin
                        SetLength(elements,length(elements)+1);
                        elements[length(elements)-1] := tmp_str;
                        tmp_str := '';
                        end
                else
                        // Zo niet, dan plakken we het er aan vast
                        tmp_str := tmp_str  + formule[i];
                end;
        // En nog ff de laatste bewaren:
        SetLength(elements,length(elements)+1);
        elements[length(elements)-1] := tmp_str;
        // Eerste teken moet altijd een nummer zijn! (je kan niet beginnen met een *, /, + of -)
        current_value := StrToFloat(elements[0]);

        for i := 1 to length(elements)-1 do
                if odd(i) then // pak alleen de oneven elementen uit de array (dit zijn de commando's
                        //Helaas kan Delphi niet een Case statement bouwen voor strings...
                        if elements[i] = '*' then
                                current_value := current_value * StrToFloat(elements[i+1])
                        else if elements[i] = '/' then
                                current_value := current_value / StrToFloat(elements[i+1])
                        else if elements[i] = '+' then
                                current_value := current_value + StrToFloat(elements[i+1])
                        else if elements[i] = '-' then
                                current_value := current_value - StrToFloat(elements[i+1]);

        result := FloatToStr(current_value);
        end;


begin
AssignFile(Input, 'c:\som.txt');
Reset(Input);

while not eof(Input) do
        begin
        Readln(Input,LineFromFile);
        Writeln(LineFromFile, ' = ', ParseLine(LineFromFile));
       end;
Writeln ('Hit RETURN to exit the program');
Readln;

end.

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, classes, math;

var
        Input : TextFile;
        LineFromFile : string;

function ParseLine (formule : string) : TStrings;
        var
                i : integer;
                elements: TStrings;
                tmp_str : string;
        begin
        elements := TStringlist.Create;
        //Loop door de forumle heen op zoek naar spaties (scheidingstekens)
        for i := 1 to length(formule) do
                begin
                //Als die is gevonden wordt het stukje struk dat we tot nu toe hebben gevonden opgeslagen in array
                //Let op: de paties worden er al automatisch uit gevist!
                if formule[i] = ' ' then
                        begin
                        if (elements.count > 0) then
                                // Aftrekkingen hanteren als het optellen van een negatief getal: dit ivm de Van Dale regels
                                if (elements[elements.count-1] = '-') then
                                        begin
                                        elements[elements.count-1] := '+';
                                        tmp_str := '-' + tmp_str;
                                        end;
                        elements.Add(tmp_str);
                        tmp_str := '';
                        end
                else
                        // Zo niet, dan plakken we het er aan vast
                        tmp_str := tmp_str  + formule[i];
                end;
        // En nog ff de laatste bewaren:
        elements.Add(tmp_str);

        result := elements;
        end;

procedure doCommmand (var elements: TStrings; index : integer);
        begin
        // met een case van het ascii nummer bepalen we we moeten doen (volgende is het zelfde als Van Dale, maar niet noodzakelijk zo)
        case ord(elements[index][1]) of
                94 : elements[index -1] := FloatToStr(power(StrToFloat(elements[index -1]),StrToFloat(elements[index +1])));
                42 : elements[index -1] := FloatToStr(StrToFloat(elements[index -1]) * StrToFloat(elements[index +1]));
                47 : elements[index -1] := FloatToStr(StrToFloat(elements[index -1]) / StrToFloat(elements[index +1]));
                43 : elements[index -1] := FloatToStr(StrToFloat(elements[index -1]) + StrToFloat(elements[index +1]));
                45 : elements[index -1] := FloatToStr(StrToFloat(elements[index -1]) - StrToFloat(elements[index +1]));
        end;

        elements.Delete(index+1);
        elements.Delete(index);
        end;

function CalcFormule (elements: TStrings) : string;
        const vandale : array[0..4] of char = ('^', '*', '/', '+', '-');
        var
                i : integer;
                found : boolean;
                vandale_key : integer;
        begin
        vandale_key := 0;
        while elements.Count > 1 do
                begin
                found := false;
                // de eerste en de laatste kunnen we altijd overslaan (dat zijn cijfers geen commando's)
                for i := 1 to elements.count - 1  do
                        // Alleen verder gaan als we nog niets gedaan hebben ( i loopt anders niet meer synchroon met het aantal elementen in de list)
                        if not found then
                                        // Als we een commando hebben gevonden dat we mogen uitvoeren, dan voeren we hem uit.
                                  if (elements[i] = vandale[vandale_key]) then
                                        begin
                                        doCommmand(elements, i);
                                        found := true;
                                        end;
                // Als er geen commando's meer waren die uitgevoerd moesten worden, gaan we naar de volgende
                if not found then
                        vandale_key := vandale_key +1;
                end;
        result := elements[0];
        end;

begin
AssignFile(Input, 'c:\som.txt');
Reset(Input);

while not eof(Input) do
        begin
        Readln(Input,LineFromFile);

        Writeln(LineFromFile, ' = ', CalcFormule(ParseLine(LineFromFile)));
       end;
Writeln ('Hit RETURN to exit the program');
Readln;

end.