AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Probleme mit Funktionen

Ein Thema von Demi-God · begonnen am 9. Aug 2005 · letzter Beitrag vom 9. Aug 2005
Antwort Antwort
Demi-God

Registriert seit: 25. Jun 2005
Ort: Kassel
4 Beiträge
 
#1

Probleme mit Funktionen

  Alt 9. Aug 2005, 18:52
Ich möchte einen ganz normalen Taschenrechner programmieren, der die Standartfunktionen wie Addition usw kann, allerdings auch Wurzel, Logarithmus usw.

Nun habe ich versucht Potenzieren in einer Funktion zu schreiben, allerdings bekomme ich immer wieder die selben Fehler

Delphi-Quellcode:
    [...]
    procedure BPotenzClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function Pot(a, b: Integer): Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Pot(a, b: Integer): Integer;
var
  i: Integer;
begin
  For i := 1 to b do
  begin
    Result := a*a;
  end;
end;

procedure TForm1.BPotenzClick(Sender: TObject);
var
  a, b, c: Integer;
begin
  a := StrToInt(EA.Text);
  b := StrToInt(EB.Text);
  c := Pot(a, b);
  EC.Text := IntToStr(c);
end;
Wenn auf den Button BPotenz geklickt wird, sollen die beiden Zahlen a und b aus den Edit-Feldern EA und EB in der Funktion Pot benutzt werden und danach in c gespeichert werden. Dies soll dann im Edit-Feld EC erscheinen, allerdings funktioniert es nicht, denn es kommen folgende Meldungen (Delphi-Hilfe nützt nichts und per Suche finde ich nur Funktionen, die klappen^^):

[Warnung] UTaschenrechner.pas(76): Rückgabewert der Funktion 'Pot' könnte undefiniert sein
[Fehler] UTaschenrechner.pas(55): Ungenügende Forward- oder External-Deklaration: 'TForm1.Pot'
[Fataler Fehler] Taschenrechner.dpr(5): Verwendete Unit 'UTaschenrechner.pas' kann nicht compiliert werden


Bitte Hilfe, warum funzt das net?
  Mit Zitat antworten Zitat
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#2

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 18:53
Delphi-Quellcode:
function TForm1.Pot(a, b: Integer): Integer;
var
  i: Integer;
begin
  For i := 1 to b do
  begin
    Result := a*a;
  end;
end;
Edit:Alternativ kannst du auch die funktion power nehmen
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
Demi-God

Registriert seit: 25. Jun 2005
Ort: Kassel
4 Beiträge
 
#3

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 18:56
aber ich wollte das ja selber schreiben und auch lernen, wie Funktionen funktionieren, aber es geht ja nicht xD warum nicht?
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:01
Zitat von Demi-God:
aber ich wollte das ja selber schreiben und auch lernen, wie Funktionen funktionieren, aber es geht ja nicht xD warum nicht?
Guck Arbu Mans Beitrag an, du hast lediglich TForm1. vergessen. Oder du lässt im private-Abschnit die zeile weg, dann geht es auch.
  Mit Zitat antworten Zitat
Nicolai1234

Registriert seit: 21. Feb 2004
1.008 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:03
Nebenbei gesagt ist in der Funktion ein Fehler.
Wenn man pot(2,3); aufruft, wäre das doch nach dieser Funktion:
2*2*2*2
Das wäre aber 2^4.

Oder sehe ich da was falsch?

//Edit:
Auch falsch. Es käme bei der Lösung immer a^2 raus, da in der Schleife immer result := steht:
Auf jeden Fall ein Fehler!
  Mit Zitat antworten Zitat
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#6

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:05
Du hast die Funktion in der form1 deklariert und rufst sie ein der unit auf, das geht nicht entweder so:
Delphi-Quellcode:
   procedure BPotenzClick(Sender: TObject);
  private
    { Private-Deklarationen }
    
  public
    { Public-Deklarationen }
  end;

function Pot(a, b: Integer): Integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Pot(a, b: Integer): Integer;
var
  i: Integer;
begin
  For i := 1 to b do
  begin
    Result := a*a;
  end;
end;

procedure TForm1.BPotenzClick(Sender: TObject);
var
  a, b, c: Integer;
begin
  a := StrToInt(EA.Text);
  b := StrToInt(EB.Text);
  c := Pot(a, b);
  EC.Text := IntToStr(c);
end;
oder so
Delphi-Quellcode:
   procedure BPotenzClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function Pot(a, b: Integer): Integer;
  public
    { Public-Deklarationen }
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Pot(a, b: Integer): Integer;
var
  i: Integer;
begin
  For i := 1 to b do
  begin
    Result := a*a;
  end;
end;

procedure TForm1.BPotenzClick(Sender: TObject);
var
  a, b, c: Integer;
begin
  a := StrToInt(EA.Text);
  b := StrToInt(EB.Text);
  c := Pot(a, b);
  EC.Text := IntToStr(c);
end;
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
Demi-God

Registriert seit: 25. Jun 2005
Ort: Kassel
4 Beiträge
 
#7

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:07
arghs nur wegen dem vergessenen TForm1. thx =)

vielen Dank für die schnellen Antworten und für den Hinweis auf den Fehler, der allerdings nicht der einzige ist, denn Result := a*a; ist natürlich auch quatsch
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:10
ja, in dieser form liefert pot(a,b) nämlich nichts anderes als a²....

Komisch dass das noch niemand gemerkt hat...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
Demi-God

Registriert seit: 25. Jun 2005
Ort: Kassel
4 Beiträge
 
#9

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 19:15
habe das ganze nun so gelöst:

Delphi-Quellcode:
function TForm1.Pot(a: Real; b: Integer): Real;
var
  i: Integer;
begin
  Result := 1;
  If b > 0 then
  begin
    For i := 1 to b do
    begin
      Result := Result*a;
    end;
  end
  else
  begin
    For i := -1 downto b do
    begin
      Result := Result*a;
    end;
    Result := 1 / Result;
  end;
end;
und es funktioniert^^

vielen Dank nochmal für die schnellen Antworten und Tipps =)
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Probleme mit Funktionen

  Alt 9. Aug 2005, 20:36
Und wenn du wissen möchtest wie es deutlich schneller geht:
Delphi-Quellcode:
function TForm1.Pot(a: Real; b: Integer): Real;
begin
  result := exp(b*ln(a));
end;
Voraussetzung: a > 0
b darf hierbei sogar Real sein .

Gruss,
Fabian
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz