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

[MarcelDerPro]

Folgendes Problem :
ich versuche ein programm für die schule zu erstellen wo man mitilfe von editfeldern /buttons aufgaben aus der kinematik berechnen kann

ich hänge nun bei der Zeit bei der gleichmäßigen beschleunigten geradelinigen bewegung fest

da
s= (a/2) *(t^2)+vo*t+so


nach t umgestellt

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

Mein problem ist
ich kann nicht die Wurzel aus dem Funktionsstück

(vo^2-2(a)-so*a*s)^0.5 ziehen

bitte um Hilfe

[Luckie]

Bitte gib deinem Beitrag eine aussagekräftigen Titel. Hilfe braucht hier so ziemlich jeder. Des weiteren mach dir bitte beim nächsten Mal etwas Gedanken über die passende Kategorie. Hier werden nützliche Codeschnippsel gesammelt.

[MarcelDerPro]

naja ich bin neu hier da mir bis jetzt nicht niemand helfen könnte ._.

[DP-Maintenance]

Dieses Thema wurde am "10. Apr 2015, 21:02 Uhr" von "Daniel" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Object-Pascal / Delphi-Language" verschoben.

[DP-Maintenance]

Dieses Thema wurde am "10. Apr 2015, 21:04 Uhr" von "Luckie" aus dem Forum "Object-Pascal / Delphi-Language" in das Forum "Programmieren allgemein" verschoben.

[DP-Maintenance]

Dieses Thema wurde am "10. Apr 2015, 21:04 Uhr" von "TBx" aus dem Forum "Programmieren allgemein" in das Forum "Algorithmen, Datenstrukturen und Klassendesign" verschoben.

[Luckie]

Ähm. OK, Wanderthread. :-D Ich habe mal den Titel angepasst.

[mkinzler]

Zitat:

Zitat von Luckie (Beitrag 1297139)

Ähm. OK, Wanderthread. :-D Ich habe mal den Titel angepasst.

Nicht wirklich

Jetzt aber

[mkinzler]

Die Quadratwurzelfunktion in Delphi heißt Sqrt() (square root)

Weitere mathematische Funktionen findest Du in der Unit math

[MarcelDerPro]

darauf bin ich bereits auch gekommen , nur ich weis nicht wie ich genau dies umsetzten muss ,da ich mit delphi mehr oder wenig programmiere

[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;

[Luckie]

Sieht doch auf den ersten Blick gut aus. Wo ist das Problem?

[MarcelDerPro]

es erscheint eine meldung mit "Fehler ungültiger Gleitkommaoperation"

[BadenPower]

Zitat:

Zitat von MarcelDerPro (Beitrag 1297175)

es erscheint eine meldung mit "Fehler ungültiger Gleitkommaoperation"

Das liegt daran, dass die von Dir eingegebenen Werte dafür sorgen, dass der Ausdruck

Delphi-Quellcode:

((power(vo,2))-(2*a)-(so*a*s))

einen negativen Wert ergibt.

Math.Sqrt arbeitet nur mit positiven Zahlen.

[mkinzler]

Zitat:

Math.Sqrt arbeitet nur mit positiven Zahlen.

Das könnte daran liegen das für den Raum der reelen Zahlen die Wurzel von -1 undefiniert ist.
Man müsste also auf die komplexen Zahlen ausweichen.

[BadenPower]

Es macht ja auch gar keinen Sinn die Wurzel aus einer negativen Zahl ermitteln zu wollen, da das Quadrat einer Zahl immer nur positiv sein kann.

[mkinzler]

Es gibt aber einige Probleme in der Physik die sich nur durch die Einführungen der Kontanste i bzw j ( Wurzel von -1), und damit der komplexen Zahlen, lösen lassen.

[Luckie]

Zitat:

Zitat von BadenPower (Beitrag 1297209)

Es macht ja auch gar keinen Sinn die Wurzel aus einer negativen Zahl ermitteln zu wollen, da das Quadrat einer Zahl immer nur positiv sein kann.

Vorsicht mit solchen Aussagen. Konkret fällt mir jetzt kein Problem ein, aber umsonst wird man sich nicht die Mühe gemacht und die komplexen Zahlen eingeführt haben. Und wenn es nur eine mathematische Spielerei ist. Die Wurzel aus einer negativen Zahl ist mathematisch definiert.

Was soll eigentlich berechnet werden? Der Benennung der Variablen nach irgendwas mit Geschwindigkeit, Weg, Strecke und Beschleunigung.

[BadenPower]

Zitat:

Zitat von Luckie (Beitrag 1297221)

Vorsicht mit solchen Aussagen.

Da gebe ich Dir recht.

In einem Mathe-Forum hätte ich dies bestimmt nicht so geschrieben und wäre dann auch noch näher auf die imaginäre Zahl i eingegangen.