Zitat von
Horst1040:
[z.B. man gibt 3 punkte ein und das programm zeichnet (nicht unbedingt aber wär besser) das dreick und gibt dazu dann seitenlängen und flächeninhalt umfang un so an...
Hi,
das Dreieck könntest du mit
Canvas.Polygon() zeichnen und die Seitenlänge könnte man mit dem Satz des Pythagoras berechnen:
Delphi-Quellcode:
uses
math;
...
var
DreiEck: Array[0..2] of TPoint;
begin
DreiEck[0].X:= 10;
DreiEck[0].Y:= 10;
DreiEck[1].X:= 40;
DreiEck[1].Y:= 50;
DreiEck[2].X:= 130;
DreiEck[2].Y:= 30;
Canvas.Polygon(DreiEck);
caption:= 'Seitenlänge der linken Seite: '+ floattostr(sqrt(power(DreiEck[1].X- DreiEck[0].X, 2)+ power(DreiEck[1].Y- DreiEck[0].Y, 2)));
Und den Rest bekommst du bestimmt auch alleine hin.