Delphi Procedure Programm Hilfe

[Jasmin]

Hallo, ich soll für die Schule folgendes programmieren:
Schreibe ein Programm das folgende Funktion y = 2x² +c berechnet. Verwende für die Berechnung eine selbst geschriebene Prozedur. (Eingabe: x und c)

Ich habs so probiert.. was ist falsch?

Delphi-Quellcode:

var y : real;
procedure pformel (x, c : real);
begin
y:= 2*(x*x) + c ;
end;


procedure TForm1.Button1Click(Sender: TObject);
var x, c : real;
begin
x := StrToFloat (Edit1.text);
c := StrToFloat (Edit2.text);
pformel (x, c);
panel1.caption := FloatToStr (y)
end;

[mleyen]

Delphi-Quellcode:

2x² +c

ist nicht:

Delphi-Quellcode:

2*(x*x) + c ;

Potenziert wird mit power

Delphi-Quellcode:

power(x*x,2) + c ;

edit: quatsch, sorry eigentlich is da nix falsch...

[Jasmin]

ich hab das mit power nie gelernt, ich hab noch delphi 6.

[pHL]

Gehört das nicht so?

Delphi-Quellcode:

power(x,2)

mfg

[hitzi]

[edit] Sorry, das y fehlt doch nicht. Ist ja eine globale Variable ...

[DeddyH]

Was ist denn überhaupt falsch? Meckert der Compiler, oder stimmt das Ergebnis nicht? Ich sehe jedenfalls keine Fehler auf den ersten Blick.

[edit] y ist eine globale Variable, welche innerhalb der Prozedur berechnet wird. [/edit]

[Jasmin]

als ergebnis zeigt das panel immer 0

[Luckie]

Wenn x und c null sind stimmt das doch.

[mleyen]

Änder mal testweise das Button-Event so ab:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, c : real;
begin
  x := StrToFloat (Edit1.text);
  c := StrToFloat (Edit2.text);
  pformel (x, c);
  ShowMessage('2* '+Edit1.text+'² +'+Edit2.text+' = '+FloatToStr (y));
end;

Wird nun ein Dialog angezeit?
Was zeigt der?

[DeddyH]

Also, bei mir funktioniert der Quelltext. Z.B. 5 in Edit1 und 3 in Edit2 ergibt 53.