Zeichnung

[Biohazard]

Hallo,

hab da wohl zu kompliziert gedacht

in der Funktion Dreieck:
in der Zeile

Code:

x1 := q*laenge/c;

q durch p ersetzen

in der Procedure button2click:

- Variablen a2,b2,c2 brauchst du nicht
- Bedingungen welche Seite die größte ist brauchst du auch nicht

so sieht es dann aus:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var  err1,err2,err3 :integer;
begin 
  val(edit1.text,a,err1);
  val(edit2.text,b,err2);
  val(edit3.text,c,err3);
  dreieck(a,b,c);
end;

ich würde aber noch eine Bedingung einbauen, wenn z.B. eine Seite zu kurz ist oder solche ähnlichen Sachen

ich habe dann noch den faktor in der Zeile

Code:

laenge := 0.9 * form1.paintbox1.width;

auf 0.5 gesetzt da es sonst über die Fläche hinaus ging.
Vieleicht gibt es da ja noch ne bessere Berechnung/Lösung dafür.

Bei mir haben die Winkel funtioniert, jedenfalls die wo ich das mit dem Auge abschätzen konnte.