Einfaches Potenzieren

[UliBru]

Wo rennt die evtl. verbesserte Schleife denn hin, wenn jemand als Exponent z.B. 0.5 eingibt ?

[haziii]

Vielen Dank für die Begrüßung und die Antworten! Sicherlich werde ich den Fließkomma-Datentyp weiterhin brauchen, da ich sonst keine Exponente < 0 verwenden kann.
Wie zu erwarten kann ich - aufgrund des benutzens dieses inkonsequenten Algorithmus - keine 0 > und < 1 nutzen. Nochmal Danke für alle Antworten. Die Lösung habe ich Ausgearbeitet:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var base, exp, res, i : real;

begin

     base := strtofloat(edit1.text);
     exp := strtofloat(edit2.text);
     res := strtofloat(edit1.text);
     i := 1;


     if exp = 0 then
        res := 1
     else if exp = 1 then
          begin
               res := base;
               i := i+1
          end
     else
         repeat
               begin
                    res := res*base;
                    i := i+1;
               end;
         until i = exp;
         edit3.text := floattostr(res);

end;

Zur Nutzung des Codes werden folgende Komponente benötigt: Drei Edit-Boxen, Ein Button.
Ins Button1.Click Event gehört der Code!

Mit freundlichen Grüßen,

CorsiQa.

[shmia]

Also ich würde empfehlen, für die eigentliche Rechenarbeit eine eigene Funktion vorzusehen:

Delphi-Quellcode:

function Potenzieren(Base, Exponent: Extended): Extended;
begin
  // hier rechnen
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  base, exp, res : Extended;
begin
  base := strtofloat(edit1.text);
  exp := strtofloat(edit2.text);
  res := Potenzieren(base, exp);
  Edit3.Text := FloatToStr(res);
end;

[Klaus01]

es wurde auch schonmal oben erwähnt,
das bei Gleitkommawerten auf Gleichheit zu prüfen nicht unbedingt die beste Idee ist.


Grüße
Klaus

[haziii]

Da ich seit zwei Wochen Informatik in der Schule habe (10. Klasse), soll ich einen Rechner schreiben. Dieses Programm sollte nur dazu dienen den Code zu testen. Selbstredend werde ich es in eine eigenständige Funktion packen. Und ja, himitsu, ich fühle mich dazu in der Lage zu wissen, dass ich keine "real" brenötige und, dass ich keine Fließkommazahlen als Exponente verwenden kann. (Ich kann schon seit ein paar Jahren potenzieren.) Die Frage ist also nur, warum ich eine Funktion, die ich - wie zu erwarten, da sie nicht ordnungsgemäß funktioniert - erweitern werde - sodass sie funktioniert - jetzt unbedingt um das real schmälern sollte. Darin sehe ich keinen relevanten Sinn. Vorallem nicht, wenn meine Aufgabe "Erstelle einen Rechner, der mulipliziern, dividieren, addieren und subtrahieren kann." lautet.

Mit freundlichen Grüßen,

CorsiQa.

[implementation]

Zitat von haziii:

und, dass ich keine Fließkommazahlen als Exponente verwenden kann. (Ich kann schon seit ein paar Jahren potenzieren.)

Mathematisch geht das
Ließe sich am besten per e-Funktion und Logarithmus Naturalis lösen.

Zitat:

Die Frage ist also nur, warum ich eine Funktion, die ich - wie zu erwarten, da sie nicht ordnungsgemäß funktioniert - erweitern werde - sodass sie funktioniert - jetzt unbedingt um das real schmälern sollte.

Weil es im Moment so ist, dass der Benutzer Kommazahlen eingeben kann, aber nicht das herausbekommt, was er erwartet. Es gibt mehrere Möglichkeiten, was du dagegen machen kannst:

• TryStrToInt durch StrToFloat ersetzen (naheliegendste Option)
• Gar nicht erst Kommas im Edit-Feld erlauben
• Potenzen mit Kommazahlen implementieren (funktionalste Option)

Nebenbei: real ist relativ verpöhnt, es wird empfohlen, für Fließkommazahlen Single oder Double zu nutzen, im Extremfall Extended.

[himitsu]

Das alte (böse) "Real" ist in Delphi schon seit langem in Real48 umbenannt.

Real ist seitdem ein Alias für den bevorzugten Fließkommatypen, was aktuell der Double ist.

[haziii]

Nun, ich persönlich benutze auch keine real. Es wird mir von meinem Lehrer allerdings so vorgegeben. Im übrigen weiß ich, dass auch Dezimalzahlen als Exponenten dienen können. (Ich bin in der 10. Klasse der "Gymnasialen Oberstufe") Ich werde den Code die kommenden Tage überarbeiten und bedanke mich nochmal für die Hilfe, vorallem die etwas allgemeinere.

Mit freundlichen Grüßen,

CorsiQa.

[himitsu]

Zitat von haziii:

Sicherlich werde ich den Fließkomma-Datentyp weiterhin brauchen, da ich sonst keine Exponente < 0 verwenden kann.

Das kannst du mit dieser Berechnung sowieso nicht.

Du rechnest ja nur mit res := res * base; , also mit ganzen Vielfachen von "base",
womit du also nur ganzzahlige positive Exponenten verwenden kannst.