Geschrieben am: 22.01.2012 um 08:24 Uhr
Zuletzt editiert am: 22.01.2012 um 11:12 Uhr
|
|
Stimmt, das hab ich jetzt verbessert.
Aber funktioniert immer noch nicht richtig.
Der Code:
vars:
Zitat: sf_faktor,sf_potenz,integral,obereg,untereg,faktor,potenz,e1,e2,ogorig,ugorig:Real;
n:Integer;
procedure:
Zitat: n:=0;
faktor:=strtofloat(tedit_faktor.text);
potenz:=StrToFloat(tedit_potenz.text);
untereg:=strtofloat(tedit_untereg.text);
obereg:=strtofloat(tedit_obereg.text);
sf_potenz:=potenz+1;
sf_faktor:=faktor/sf_potenz;
tedit_stammfunktion.text:=FloatToStr(sf_faktor) + 'x^' + floattostr(sf_potenz);
ogorig:=obereg;
ugorig:=untereg;
while n<sf_potenz do
begin
obereg:=obereg*ogorig;
n:=n+1;
end;
e1:=obereg;
n:=0;
while n<sf_potenz do
begin
untereg:=untereg*ugorig;
n:=n+1;
end;
e2:=untereg;
integral:=(sf_faktor*e1)-(sf_faktor*e2);
tedit_integral.text:=floattostr(integral);
Edit:
Funktioniert jetzt, ich musste bei den Schleifen (die ich auch in eine hätte packen können) "n<(sf_potenz-1)" schreiben.
Edit #2: Kann also geclosed werden ^^
|
[