p-g Formel rechner

[DaHui]

ka ob das hier rein passt gab hier schonmal so was ähnliches desshalb habs ich ma hier rein gemacht!

mein Problem:

möchte einen p-q Formel rechner machen
klappt aba mit dem code so wie ich ihn hab schon ganz am Anfang nich =)

Bin noch absoluter Anfänger also nich so hart sein und nich in totalem Fach chinesisch antworten plz =)( hoffe Prog sprach erichtig angegeben wenn nich dürfts ruhig sagen xD)
der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') then
Application.MessageBox('Kein Wert angegeben', 'Fehler', MB_OK+MB_ICONERROR)
else
Label2.caption:=Floattostr(strtofloat(-1*(1/2*edit1.text))+strtofloat((edit1.text/2)^1/2)-strtofloat((edit2.text)*-1));
end;

soll so sein das nachher in 2 labels jeweils ein X wert angegeben werden in 2 edit fenster können die p und q Werte eingesetzt werden......

thx im Vorraus :)

[ibp]

schau dir mal genau das an ...

Delphi-Quellcode:

...strtofloat(-1*(1/2*edit1.text))...

du rechnest mit einem text! du solltest erst den text in eine zahl umwandeln und dann rechnen!

...und herzlich willkommen bei dp! :dp:

[hanselmansel]

HiHo,

Wenn dein teures Leben nicht davon abhängt, dann würde ich dir mal stark raten, SpinEdit-Felder (TSpinEdit) zu benutzen. Deren Eigenschaft Value ist praktischerweise schon ein Integer (Ganzzahl). Des weiteren gibt es den Exponenten-Operator ^ meines wissens unter Delphi nicht.

greez

hanselmansel

[ibp]

@hanselmansel: wer sagt denn dass man mit der pq-formel nur mit ganze zahlen rechnen kann?

[DaHui]

klar bin ich blöd hätte man auch alleine drauf kommen können....

danke!!!!

[hanselmansel]

Zitat:

Zitat von ibp

@hanselmansel: wer sagt denn dass man mit der pq-formel nur mit ganze zahlen rechnen kann?

Jau, ist mir aufgefallen, als ich in der OH geguckt habe, ob es SQRT() gibt... Ich benutze das Ding (die PQ-Formel) einfach zu selten! :wall:

[DaHui]

hehe is auch kagge pq...^^ mach ich gar nich gerne ;)

so nun siehts so aus

Delphi-Quellcode:

Label2.caption:=Floattostr(-1*strtofloat(edit1.text)/2+(strtofloat(edit1.text)^2)^0.5-strtofloat(edit2.text)*-1);

jezz meldet er bei den ^0.5
[Error] Unit1.pas(37): Pointer type required

ka was die Fehler meldung heissen soll also was isn Pointer type??? und was muss ich amchen damits geht =)

[hanselmansel]

Das ^ ist unter Delphi keine Rechenoperation. Benutze für Quadratwurzeln die funktion Sqrt().

[DaHui]

also sprich

sqrt(strtofloat(edit1.text)....)

jezz hab ich die wurzel wie quadrier ich jezz edit1??

[hanselmansel]

Mit dem englischen Square:

Sqr()