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.

[Jasmin]

Zitat:

Zitat von mleyen (Beitrag 1110009)

Ä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?

jetzt kommt ein ergebnis in dem fenster :)

[p80286]

Und was wird übergeben? (X,C)

Gruß
K-H

[Luckie]

Zitat:

Zitat von p80286 (Beitrag 1110014)

Und was wird übergeben? (X,C)

Das wurde ja auch mir schon verschwiegen. Ist aber wahrscheinlich geheim, weil das Ergebnis 42 ist.

[DeddyH]

X auf 4 und C auf 10 ;)

[Luckie]

Zitat:

Zitat von DeddyH (Beitrag 1110023)

X auf 4 und C auf 10 ;)

Wird das Universum jetzt durch etwas noch Bizarreres und Unbegreiflicheres ersetzt?