Potenz

[Sharan_]

hallo ich bin gerade dabei ein programm zu schreiben mit dem ich potenzieren kann.
Bisher hab ich folgendes gemacht 2 Buttons für beenden und berechnen 3 edit fenster eine für die zahl die andere für die Hochzahl , dann natürlich auch eins fürs ergebnis und 2 labels für die beschriftung.
wenn ich das prog starte kann ich die zahl und die hochzahl eingeben und beenden kann ichs auch bloß wenn ich auf ergebnis klicke kommt nichts hier mein code:

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
Exponent:= StrToInt(EPotenz.Text);
// EErgebnis.Text:= IntToStr(Power(basis, Exponent));
 //EErgebnis.Text := FloatToStr(power(basis, exPonent));

[Noedel]

wenn du power nicht verwenden willst, probiers mal mit ner "for-to-do" schleife

[Sharan_]

ich hab grade erst mit delphi angefangen und weiß absolut nicht was power oder for to do ist.

[DeddyH]

Du solltest Dich mal mit einem Grundlagentutorial befassen. Zumindest Schleifen solltest Du beherrschen, die gehören einfach zum Grundwissen.

[Mikescher]

Zitat:

Zitat von Sharan_

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
Exponent:= StrToInt(EPotenz.Text);
// EErgebnis.Text:= IntToStr(Power(basis, Exponent));
 //EErgebnis.Text := FloatToStr(power(basis, exPonent));

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
  Exponent:= StrToInt(EPotenz.Text);
  EErgebnis.Text:= IntToStr(Power(basis, Exponent));
  EErgebnis.Text := FloatToStr(power(basis, exPonent));

So gehts doch :?:

Oder bedeutet dass du es ausgeklammert hast dass du kein Power benutzen willst :?:

Wenn ja wieso :?:

Und falls wirklich ja gehts auch so:

MfG Mikescher

[Sharan_]

is mir egal hauptsache es geht und ich kann es anchvollziehen:)
wie gesagt es wird kein ergebnis angezeigt.

[Sharan_]

Also ich hab meine code jetzt geäandert und zwar :

Delphi-Quellcode:

rocedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
Exponent:= StrToInt(EPotenz.Text);
// Edit3.Text:= IntToStr(Power(basis, Exponent));
 //EErgebnis.Text := FloatToStr(power(basis, exPonent));
 EErgebnis.Text := IntToStr(ergebnis);

komischerweise kommt jetzt immer 4360424 als ergebnis raus.

[DeddyH]

Du berechnest "ergebnis" ja auch gar nicht.

[Sharan_]

achso das ergebnis in der klammer ist falsch da muss ja jetzt das rein was in den editfeldern steht oder?

[Noedel]

du hast aber schon verstanden, dass

Delphi-Quellcode:

//

ein KOMMENTAR ist und alles hinter // vom compiler ausgelassen und nicht verarbeitet wird, oder?

[Noedel]

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
Exponent:= StrToInt(EPotenz.Text);
EErgebnis.Text := FloatToStr(power(basis, exPonent));
end //edit hat gefehlt

fertig!

[Sharan_]

Zitat:

Zitat von Noedel

du hast aber schon verstanden, dass

Delphi-Quellcode:

//

ein KOMMENTAR ist und alles hinter // vom compiler ausgelassen und nicht verarbeitet wird, oder?

ach echt das wusste ich nciht danke wenn jetzt kommt ne fehlermeldung undefinierter bezeichner power.

[DeddyH]

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
  Exponent:= StrToInt(EPotenz.Text);
  Ergebnis:= integer(Power(basis, Exponent));
  EErgebnis.Text := IntToStr(ergebnis);
end;

[edit] Du musst die unit math noch einbinden. [/edit]

[Sharan_]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
  Exponent:= StrToInt(EPotenz.Text);
  Ergebnis:= integer(Power(basis, Exponent));
  EErgebnis.Text := IntToStr(ergebnis);
end;

[edit] Du musst die unit math noch einbinden. [/edit]

und das mach ich wie?

[DeddyH]

Delphi-Quellcode:

...
implementation

uses math;

[Sharan_]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

...
implementation

uses math;

ich weiß das ist jetzt dumm aber wo ihn meinen code muss ich das reinschreiben?

[bigben37]

Schau in deinem Code, wo

Delphi-Quellcode:

implementation

steht, und füge darunter

Delphi-Quellcode:

uses math;

ein

[DeddyH]

Ich hab doch extra "implementation" dazugeschrieben. Evtl. gibt es dort drunter bereits eine uses-klausel, dann schreibst Du "math" einfach dazu, ansonsten so, wie ich geschrieben hatte.

[Sharan_]

Zitat:

Zitat von bigben37

Schau in deinem Code, wo

Delphi-Quellcode:

implementation

steht, und füge darunter

Delphi-Quellcode:

uses math;

ein

vielen dank jedoch komm jetzt es gibt keine überladene version von IntToStr die man mit deisen argumenten aufrufen kann als fehlermeldung, ich glaub mein kopf platzt gleich :(

[DeddyH]

Zeig mal den aktuellen Code. Power() gibt eine Extended zurück, die musst Du erst in Integer wandeln, oder das Ergebnis muss auch als Extended deklariert und mit FloatToStr ausgegeben werden.

[Sharan_]

Delphi-Quellcode:

implementation
    uses math;

{$R *.dfm}

procedure TFAnwendung.BBeendenClick(Sender: TObject);
begin
close;
end;

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);



  var Basis,Exponent,Ergebnis : Integer;
Begin
    Basis:= StrToInt(EZahl.Text);
  Exponent:= StrToInt(EPotenz.Text);
  EErgebnis.Text:= IntToStr(Power(basis, exponent));
  EErgebnis.Text := FloatToStr(power(basis, exPonent));

end;

Bitteschön.

[DeddyH]

Lass die Zeile

Zitat:

Delphi-Quellcode:

EErgebnis.Text:= IntToStr(Power(basis, exponent));

mal ganz weg.

[Sharan_]

Zitat:

Zitat von DeddyH

Lass die Zeile

Zitat:

Delphi-Quellcode:

EErgebnis.Text:= IntToStr(Power(basis, exponent));

mal ganz weg.

juhu es klappt du bist mein Held ich würd dir auf der stelle ein bier spendieren :-D

Vielen Vielen Dank an alle.

[DeddyH]

Na Hauptsache, Du verstehst, was los war.

[Sharan_]

Zitat:

Zitat von DeddyH

Na Hauptsache, Du verstehst, was los war.

oh ja ich habe hier viel gelernt.