Zitat von
thknub:
Delphi-Quellcode:
...
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r: REAL;
begin
a := StrToFloat(edit1.Text);
b := StrToFloat(edit2.Text);
c := StrToFloat(edit3.Text);
d := StrToFloat(edit4.Text);
e := StrToFloat(edit5.Text);
f := StrToFloat(edit6.Text);
g := sqrt(sqr(b)+sqr(c)-2*b*c*Cos(d));
h := sqrt(sqr(a)+sqr(c)-2*a*c*Cos(e));
i := sqrt(sqr(a)+sqr(b)-2*a*b*Cos(f));
j := ArcCos((sqr(b)+sqr(c)-sqr(a))/(2*b*c));
k := ArcCos((sqr(a)+sqr(c)-sqr(b))/(2*a*c));
l := ArcCos((sqr(a)+sqr(b)-sqr(c))/(2*a*b));
m := sin(d)*b/sin(e);
n := sin(e)*a/sin(d);
o := sin(f)*a/sin(d);
p := ArcSin((a*Sin(e))/b);
q := ArcSin((b*Sin(d))/a);
r := ArcSin((c*Sin(d))/a);
...
wauuuuuuu, nur was soll es bedeuten???? hier mal ein paar tipps...
- geb deinen variablen mal einen vernünftigen namen
- trenne die eingabe, die ausgabe und die berechnung
was mir nicht ganz klar wird, was soll dein programm eigentlich machen? kansnt du das mal ein wenig besser erklären und ggf. deine form (als .JPG) anhängen, damit wir uns hier einen visuellen eindruck machen können. was mir nicht ganz klar ist, weshalb verwendet du so viele variablen, welche du dann doch nicht verwendest und der user diese auch nicht einzugeben braucht?
schöne grüsse
GG