Cosinus-/sinusrelation...

prøv lige det her for at se om det er de du vil have :

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.Caption := FloatToStr(Cos(StrToInt(Edit1.Text)));
end;


Jens B

Jeg forstå ikke

Du kan da ikke nøjes med ét tal til hverken sin eller cos-relationen

Cosinusrelation: c^2=a^2+b^2-2ab*cos(C)
sinrelationen  : a/sin(A)=b/sin(B)

i begge tilfælde skal der bruges tre tal, for at finde et 4.

Den funktion borrisholt har beskrevet er den funktion der tager et grad tal, eller et radian tal og beregner cosinus til det.
Det du øjensynligt er uden efter er at beregne den 3 side i en trekant udfra de to andre plus en vinkel.
Så derfor har du ret du skal bruge 4 text felter hvor du ihver angiver de rette mål, så vil der altid være en af dem du ikke udfylder. Men så laver du blot en funktion der checker, hvilket felt det er der ikke er udfyldt, og så beregner den formel udfra de tal den har fået opgivet.
Jeg kan ikke selv ret meget delphi, men jeg kender dog lidt til matematikken bag det.

Mvh Kedde

guessw>

Kim_Bille har ret .. Du laver en masse begrebs forviring ...

Du snakker om Cosinus- og SinusRelationerne med ud fra resten af teksten snakker du om en alm cosinus eller sinus udregneng ....

Det jeg har svaret på er hvordan du laver en almindelig udregnign af Cosinus eller sinus ...

Jens B

Ja jeg er vist kommet til at blande det sammen. Det kode fra Borrisholt virkede meget godt. Hvordan kan jeg få den til at skrive i degrees i stedet for radianer?

brug funktionen

function DegToRad(Degrees: Extended): Extended;

Den ligger i math ....

Jens B

borrisholt
mener du ikke
function RadToDeg(Radians: Extended):Extended; i stedet for, eller kan de begge bruges til at finde grader ud fra radianer?

gigaman > Jo naturligvis. RadToDeg

Radianer til Grader ....

Jens B