en lommerregner

er det ikke bare at skrive

memo1.text := memo1.text + edit1.caption;

hvis du har en memo og 2 edit hvor du indtaster dine tal.....

implementation

{$R *.DFM}

var
FirstNumber,SecondNumber: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
FirstNumber  := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Memo1.Text :=IntToStr(FirstNumber + SecondNumber);// udskift + til - * Div
//stone

Hvad med en stak-baseret løsning (kan også kaldes en LiFo)?

Notationen er radikalt anderledes den man ser på sin TI-30, men den er sjovere at programmere.

De vise sten hedder RPN (Reverse Polish Notation); sikkert en Polsk matematikprofessor der fandt på det og er desværre ikke så udbredt.
HP's lommeregnere er vist de eneste der kører efter princippet, men derfor er der også ret mange gamle HP-regnere blandt ingeniører og ligesindede.

Ideen beskrives bedst ved et eksempel:

Tallene sættes på stakken <push> mens operatorerne (+/- og lignende) fjerner dem derfra <pop>.

Skal du lægge to tal sammen er fremgangsmåden: 5 <push>, 3 <push>, + <pop>
På skærmen står der nu 8.

- men det var jo en strimmelregner du ville lave. Jeg slog bare lige et slag for RPN

5 <push>, 3 <push>, + <pop> <pop>

Arrh - prøver lige endnu en gang: 5 <push>, 3 <push>, + <pop> 8 <push>

5 <push>, 3 <push>, + <pop> <pop>, 8 <push>

Hej hrc
Er du en pusher eller en popper ? fnis fnis.
Nej spøg til side. Jeg kender godt HP notation, men det så bare så sjovt ud at du brugte 4 kommentarer på at få det rigtig.

Pusher er jeg ikke, men det blev lidt grotesk. Jeg popper ud igen. Må ikke lege på Eksperten i dag da svigerforældrene er på besøg.