Delphi Dreiecksprogramm - Seite 2

Thema durchsuchen

Ansicht

Themen-Optionen

Dreiecksprogramm

Ein Thema von woodie17 · begonnen am 30. Mai 2003 · letzter Beitrag vom 30. Mai 2003

Antwort

Seite 2 von 2

Adler

Registriert seit: 29. Apr 2003
Ort: Düsseldorf
30 Beiträge

Delphi 2006 Professional

#11

30. Mai 2003, 20:39

Hallo.

markieren

Delphi-Quellcode:

			a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

// vorher noch überprüfen ob die 2 kürzesten Seiten länger sind als die längste

// ...

alpha:=RadToDeg(arccos((sqr(a)-sqr(b)-sqr(c))/(-2*b*c)));

beta:= RadToDeg(arcsin((b/a)*sin(DegToRad(alpha))));

gamma:=180-alpha-beta;

kann sein das noch die ein oder andere Klammer fehlt