Brauche Hilfe bei Umsetzung von math. Problem in Delphi :O

[Luckie]

Delphi-Quellcode:

erg := sprt((vo^2-2(a)-so*a*s)^0.5)

?

[MarcelDerPro]

wie soll ich dies ^2 eingeben bei mir kommt da ne putzige fehler meldung mit zeigertyp erfoderlich

(ja ich bin bissel zu doof dazu)

[Luckie]

Da gibt es auch eine Funktion in der math.pas. Musst du mal gucken.

[MarcelDerPro]

das problem ist nur ich hab erlich null ahnung von delphi
ich weis nicht wo ich danach suchen sollte '-'

[mkinzler]

Delphi Potenzfunktion

[MarcelDerPro]

Delphi-Quellcode:

procedure berechnung1 (s,so,a,vo:double; var k:double);

begin
k:=sqrt(((power(vo,2))-(2*a)-(so*a*s)));

end;

procedure berechnung2 (a,vo,k:double; var t:double);

begin
t:=-(vo-(k)/a);
end;



{$R *.dfm}


procedure TForm3.Button_tClick(Sender: TObject);
var
s,so,a,vo:double;
t,k:double;
begin
s:=strtofloat(edit_s.Text);
so:=strtofloat(edit_so.Text);
a:=strtofloat(edit_a.Text);
vo:=strtofloat(edit_vo.Text);
begin
Berechnung1(s,so,a,vo,k);
 Berechnung2(vo,a,k,t);
showmessage( floattostr(t));

hier lässt delphi zwar was ausrechnen nur leider das falsche ergebnis
und ich finde meinen fehler nicht ganz

[milos]

Wir wissen ja nicht mal was du genau berechnen möchtest, denn die Formel die du verwendet entspricht nicht der vorherigen die du uns gezeigt hast.

Verwende das nächste mal bitte [DELPHI]-Tags um den Code besser anzeigen zu können.

[MarcelDerPro]

1. ist mir ist gerade erst aufgefallen das die ^0.5 am ende weg muss
2. ich hab kein plan wie ich die Delphie tags amchen soll (*hust bin neu*)
3. es geht darum die zeit bei der gleichmäßigen beschleu. geradeli. bewegung zu berechnen was bis jetzt nicht funktionieren will
(dazu sind die Wert irrelewant)

[mkinzler]

Zitat:

2. ich hab kein plan wie ich die Delphie tags amchen soll (*hust bin neu*)

Quellcode markieren und Delphi-Symbol ( Helm) anklicken.

[MarcelDerPro]

Mein problem ist im Groben

Die Funktion


t= -(((vo-((vo^2-2a-so*a*s)^0.5)))/a)

in Delphi sprache um zuwandeln sodass dann mit den werten
vo,a,s,so (diese werte sollen varriebar sein)

sich ein t berechnen lässt

Meine lösung sieht immoment so aus

Delphi-Quellcode:

procedure berechnung1 (s,so,a,vo:double; var k:double);

begin
k:=sqrt((power(vo,2))-(2*a)-(so*a*s));

end;

procedure berechnung2 (a,vo,k:double; var t:double);

begin
t:=-(vo-(k)/a);
end;