Taschenrechner Programmieren

[Luckie]

Die Suche ist doch so was schönes: fakultät.

[Excalibur]

Ich hab auch versucht nen Rechner zu proggen und hab ein Prob, deshalb greif ich den Thread mal auf....

Es soll ein Taschenrechner entstehen, bei dem man 2 Zahlen und das zu verwendende Rechenzeichen angeben können soll, wobei auch negative und , Zahlen möglich sein sollen.

Code:

Var Zahl1, Zahl2, Rechenzeichen, Ergebnis: integer;
Begin
Zahl1:=strtoint(edit1.text);
Zahl2:=strtoint(edit2.text);
Rechenzeichen:=was muss ich hier nehmen(edit3.text);
If Rechenzeichen = '+'
 then Ergebnis :=Zahl1 + Zahl2;
If Rechenzeichen = '-'
 then Ergebnis := Zahl1 - Zahl2;
etc....
hier bekomm ich immer den Fehler: Ausdruck erwartet, aber then gefunden
Label5.caption:=inttostr(Ergebnis);
End.

Hat da jemand ne Fehlerlösung zu? (ich hab erst kürzlich mit Delphi angefangen, etwas Ahnung von TurboPascal und mir schon einige Tuts durchgelesen, hab aber nicht sooo ne große Ahnung von den Fachbegriffen)

[jfheins]

Delphi-Quellcode:

Var
  Zahl1, Zahl2, Ergebnis: integer; 
  RechenZeichen: String;
Begin 
  Zahl1 := strtoint(edit1.text); 
  Zahl2 := strtoint(edit2.text); 
  Rechenzeichen := edit3.text; 

  If Rechenzeichen = '+' 
  then Ergebnis := Zahl1 + Zahl2; 

  If Rechenzeichen = '-' 
  then Ergebnis := Zahl1 - Zahl2; 

  Label5.caption := inttostr(Ergebnis); 
End;

Probiers aus, und sag dann, welcher fehler kommt ...

[Excalibur]

der Fehler beim If befehl is komischer Weise nichtmehr da (hab eigentlich nix geändert)
Das mit dem Rechenzeichen klappt auch, aber Kommazahlen klappen noch nicht und ich muss bei Rechenzeichen div eingeben... kann ich das irgendwie machen das ich einfach / mach?
Thx 4 help schomma

[gordon freeman]

Du willst ja eine Kommazahl darstellen. Dazu benutzt du die Falsche Variable! Integer kann grundsätzlich nur ganze Zahlen darstellen. Du müsstest also in deiner Variablen-Deklaration folgendes schreiben:

var Zahl1,Zahl2,Ergebnis:Real; Alternativ könntest du auch Extended verwenden, aber Real sollte für 'nen kleinen Taschenrechner reichen. Jetzt kannst du auch folgende if-Abfrage hinter deine beiden bereits bestehenden packen:

Delphi-Quellcode:

if Rechenzeichen = / then
ergebnis:=zahl1/zahl2;

Nun wird deine letzte Zeile auch nicht mehr funktionieren, da du ja keinen Integer, sondern einen Real-Wert umwandeln willst. Ich glaube in dem Fall müsste
floattostr(); funzen. Ansonsten:

Delphi-Quellcode:

str(ergebnis,estr);
label5.caption:=estr;

Dazu müsstest du aber estr als String-Variable deklarieren.

[Excalibur]

ich post die Frage einfach mal hier rein
ich versuche im mom ein Prog zum Umwandeln von zB Meter in Fuß/Meter in CM/etc...
Aber da ja bei Groß/Kleinbuchstaben unterschieden wird sieht das ganze jetzt so aus (siehe unten)
normal müsste das doch mit lower case gehen?!
If (lowercase(Einheit)='cm') and (lowercase(Umwandeln)='m') then.....

Delphi-Quellcode:

var Eingabe, Ergebnis : real;
Einheit, Einheitneu:string;
begin
Eingabe:=strtoint(Edit1.text);
Einheit:=(Edit2.Text);
EInheitneu:=Edit3.Text;
If (Einheit='cm') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='CM') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='Cm') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='cM') and (einheitneu='m')

Is da irgendwo ein Fehler drin?
Mfg, Excalibur

[Wuaegner]

Was geht denn bei deinem Programm nicht?

[Excalibur]

kommt ne Fehlermeldung beim lowercase

[Wuaegner]

Und die wäre?

[Excalibur]

Inkompatible Typen: 'String' und 'Real'