Erstellt am 12.03.2009 - 19:36

is schon gut .habs ja schon geändert !

Erstellt am 12.03.2009 - 20:35

hättest du aba net ändern müssen^^ naja is auch egal! ich glaub er hat imma noch nichts gefunden^^

Erstellt am 13.03.2009 - 15:47

Manu oder Eugen :
hab ma ne frage zur Info HA:

bei mir funzt das nicht ,Fehlerhafter text hab ich ma rein gestellt:

procedure TForm1.Button1Click(Sender: TObject);
var q,p,D,x1,x2,x:real;
begin
p:=strtofloat(Edit1.Text);
q:=strtofloat(Edit2.Text);

D:=sqrt(-sqr(p)/4-q) ;

IF D>0 Then begin x1:=-(p/2)+D; x2:=-(p/2)-D;
label25.caption:=floattostr(x1);
label26.caption:=floattostr(x2); end
Else IF D=0 then begin x:=-(p/2); label25.caption:=floattostr(x);
label26.caption:=floattostr(x); end
else begin label25.caption:='nicht lösbar';
label26.caption:='n.l.'; end
end;

wisst ihr vielleict worans liegt

Erstellt am 13.03.2009 - 20:46

was steht da unten als Fehlerbeschreibung??

nach dem vorletztem end muss nochn Simikolon
und D ist das was unter der Wurzel steht nicht die ganze wurzel desswegen hat er ein problem da das unter der Wurzel bei dir noch negativ werden kann.

so sieht meins aus (das funst)

procedure TForm1.Button2Click(Sender: TObject);
Var p,d,q,x1,x2:real;
begin
p:=strtofloat(edit1.text);
q:=strtofloat(edit2.text);

D:=sqr(p/2)-q;

If D<0
then showmessage('Es gibt keine Lösung')
else if D=0
then begin label4.caption:='x='+floattostr(-(p/2));
label5.caption:='';
end
else begin label4.caption:='x1='+floattostr(-(p/2)+sqrt(D));
label5.caption:='x2='+floattostr(-(p/2)-sqrt(D));
end;



end;

end.


[Dieser Beitrag wurde am 14.03.2009 - 10:33 von Vulpes aktualisiert]

Erstellt am 15.03.2009 - 08:08

Ich hab den Fehler gefunden .Lag bei den D:=usw


Manu kannste Flightsim. 9 mitbringen

Du musst ma bei youtube "Geniale Musikmaschinen eingeben:
http://www.youtube.com/watch?v=bP0VEEOy … re=related
http://www.youtube.com/watch?v=sBuOZkKArK0
http://www.youtube.com/watch?v=aOqs4a5k … re=related
http://www.youtube.com/watch?v=3ahoqR6O … re=related
http://www.youtube.com/watch?v=toXNVbvF … re=related
http://www.youtube.com/watch?v=dx6iJnMw … re=related
http://www.youtube.com/watch?v=6qDbeuYr … re=related
http://www.youtube.com/watch?v=DAnBo9Ff … re=related
http://www.youtube.com/watch?v=Cgt4DEBQ … re=related
http://www.youtube.com/watch?v=q259PP4H … re=related
http://www.youtube.com/watch?v=j_9d8_pVMZ4&NR=1

[Dieser Beitrag wurde am 19.03.2009 - 20:14 von Runcel aktualisiert]

Erstellt am 23.03.2009 - 15:24

ey leute schreibt ma was neues rein sonst wird es noch laaannnggweelliigggggg

Erstellt am 24.03.2009 - 14:04

Ich finds auch langweilig !
wir können uns ja über Lange weile unterhalten

Erstellt am 24.03.2009 - 22:06

an mir solls nich liegen!!! ich schreib hier ammeisten! also nich mir die schuld geben.^^ die andern schreim nich mehr.

Erstellt am 25.03.2009 - 13:35

Ja das sehe ich auch so :
Manu z.B. schreibt fast nichts
der hat ja auch keine Zeit muss ja WOW spielen!
Wo wir beim Thema wären wie läufts eigentlich bei dir mit WOW ,zockst du noch, und welches level ?(Erik)

Erstellt am 25.03.2009 - 18:43

EY LEUTE macht ma "werbung" bzw überredet freunde damit sich mehr leute im forum anmelden sonst wirds langweilig wenn niemand was neues schreibt
z.b. könnten sich auch ma die schafe im forum anmelden und sinnvolle beiträge schreiben