Kalkulačka

Kalkulačka

Návštěvník

26. 12. 2010 #1

Ahoj,
pokoušim se napsat v kalkulačce to, aby to umělo vyřešit příklad z Editu ( do Editu napíšu: 1+5*2 a když kliknu na = zobrazí se 11). Potřebuju trochu postrčit, jak to řešit. Zatim sem udělal takový pokusný řešení, ale nějak nevim jak dál.

procedure TForm1.Button20Click(Sender: TObject);

var pocetznaku,I,T,vysledek: integer;

    cifra: string;

    operand:char;

begin

 pocetznaku:=Edit1.GetTextLen;

 for I := 1 to pocetznaku do

    begin

      case Edit1.Text[I] of

      '1' .. '9' : cifra:=cifra+Edit1.Text[I];

      '+' : begin operand:='+'; T:=StrToInt(cifra); cifra:='0'; end;

      end;

    end;

 vysledek:=T + StrToInt(cifra);

 Label1.Caption:=IntToStr(vysledek);

 Edit1.Text:=' ';

end;

Je to zatim nástřel, předpokládam, že to dělam složitě a špatně. Prosím o nějakou radu co změnit, co upravit a jak dál pokračovat. Stačí rada, zkusim si to napsat sám.

Nahlásit jako SPAM

IP: 78.80.28.–

liborb

~ Redaktor

+18

Guru

27. 12. 2010 #2

Nesmíš zapomínat na to, že je cosi jako priorita operátorů, pokud budeš chtít umět i závorky, tak ty ti to taky trochu zesložití a v neposlední řadě taky můžu zadat:

1 + 2 +   3

apod. Prostě vstup od uživatele musíš procházet několikráte a neustále něco kontrolovat :).

V prvním průchodu bych zkontroloval závorky - testovací proměnná na začátku 0, za každou levou závorku inkrementace, za každou pravou závorku dekrementace, hodnota nesmí klesnou pod 0 a na konci musí být 0

V druhé průchodu bych odstranil všechny bílé znaky (mezery, tabulátory apod.)

Následně bych začal tvořit strom výpočetních operací, protože ten se na to dobře hodí.

No a nakonec průchodem stromu vypočítat výsledek :)

Nahlásit jako SPAM

IP: 78.80.52.–