Deutsches Lazarusforum

Vielen Dank Stefan nochmal
Hab es jetzt lösen können es ist zwar suboptimal aber es funktioniert Und danke für die Erklärung von abs

Grüße Phan

So Vielen Dank Stefan für deine Hilfe
Hab es jetzt hinbekommen ^^
Vielen Dank nochmal,
Grüße Phan

// if (abs(y[i]))> cEpsilon then xmax:=i; //

Hast mir diese Zeile mal gegeben :)
Und ich wollte fragen, ob du vllt eine andere Methode noch hättest.Aus irgendeinem Grund krieg ich nämlcih die Zeit wann y=0 erreicht nicht darauf gespeicher. Also auf xmax.
Oder hättest du eine Idee wie ich in ...

Vielen Dank für deine Hilfe Hab meinen Fehler gefunden
hatte das in der Schleife gehabt. Der Wert wurde dann immer überschrieben ^^
Hab nur noch das Problem mit dem Teilen
Hättest du vllt noch eine Idee, wie ich den x wert zuweisen kann?

Hi Stefan,
Ja ich hab im Post
FOR t := 0 TO 250 DO
BEGIN
y[t] := yNull + (-g/(2*sqr(vNull))*sqr(t));
end;
hinzugefügt, damit man weiß , dass ich in ein Array Werte zuweise.
Es kann wirklich an dieser Stelle liegen, jedoch weiß ich nicht wo. Hab mir die Zahlen im Array ausgeben lassen und die ...

Hey, danke für deine Antwort.
soll ich wegen xmax lieber round benutzen? Kann leider mit abs nichts anfangen :P Haben halt in der Schule nur so einfache Sachen gelernt :P
Das Programm rechnet eine Wurfbewegung aus (Schräger Wurf / Speziell : Waagrechter und Senkrechter noch)
Momentan hab ich es nur ...

repeat //Faktor ausrechnen (y)
begin
ymax:=0 ;
if ymax < y[i] then ymax:=y[i] ; // Wird diese Bedienung einmal aufgerufen, wen nein bleibt ymax immer 0.
i:=i+1;
end;
until i=250;
Faktor2 :=250.0 /ymax;
Hatt dein y[] einen Wert der grösser 0 ist ?

Dies würde ich zuerst mal prüfen.

Hab mir ...

theo hat geschrieben:"Undzwar" ist das ein neues Wort? Wenn ja warum? Fängt man so einen Satz an?

Ist ein tick von mir was ich öfters sage und sich so bei mir eingebrannt hat wenn ich was nachfrag Und ja ich weiß man schreibt es auseinander, habs da nur verpeilt >.<

Hallo :)
Und zwar wollt ich fragen ob mir jmd helfen könnte

procedure Tform1.Faktor ;
var i,t,h:Integer;
begin
FOR t := 0 TO 250 DO
BEGIN
y[t] := yNull + (-g/(2*sqr(vNull))*sqr(t));
end;
i:=1;
repeat //Faktor ausrechnen (y)
begin
ymax:=0 ;
if ymax < y[i] then ymax:=y[i] ;
i:=i+1;
end ...