Radiány-Stupně – Delphi – Fórum – Programujte.com

Zdravím, mám problém, dělám úlohu na dopočet stran a uhlu v trojúhelniku..na form. je 6 poli(a,b,c,alfa,beta,gama). Uživ. zadá 3 údaje...přikládám moje "řešení", pro případ, že uživatel zadá stranu a.b a úhel alfa. Problém je že mě to vypíše dopočítané úhly v radiánech, né ve stupních. Děkuji za rady, nebo návrhy.

// ZP 1,2,4

if (edit1.text<>'') and (edit2.text<>'') and (edit4.text<>'') then  begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
alfa:=strtofloat(edit4.text);

/////////////////////////////////////
sinalfa:=Sin(DegToRad(alfa));
sinbeta:=(b*sinalfa)/a;
beta:=RadtoDeg(sinbeta);
edit5.text:=floattostr(beta);

/////
gama:=180-(alfa+beta);
edit6.text:=floattostr(gama);

/////
singama:=Sin(DegToRad(gama));
c:=(singama*a)/sinalfa;
edit3.Text:=floattostr(c);
end

Převod radián na stupně.

#2 liborb
Jde mě spíš o ten kód jak dostat do výsledku ten znak "stupeň" a "minuty"..

Pokud chceš výsledek ve stupních a máš ho v radiánech, tak si to musíš přepočítat. No přidat znak je operace s řetězcem - něco jako: 

edit5.text:=floattostr(beta) + "°";

#4 liborb
tak z radianu na stupne to přepočítávám tak..beta:=RadtoDeg(sinbeta);, doufam že je to správně.

No potřeboval bych jen ve výsledku nahradit čárku za znak stupně, jestli to jde nějak jednoduše.

Ještě bych asi potřeboval omezit na 2 desetiná místa, jestli máš nějakou dobrou radu  

#5 Venca
Tak si napiš jednoduchou funkci (možná nějaká existuje přímo v Delphi-nechce se mi hledat)

Třeba:

function dms(u: Extended): String;
var s,m,v: Integer;
    pom: Extended;
begin
  s := Trunc(u);
  pom := Frac(u)*60;
  m := Trunc(pom);
  pom := Frac(pom)*60;
  v := Round(pom);
  Result := IntToStr(s)+'°'+IntToStr(m)+'´'+IntToStr(v)+'´´';
end;

Tato funkce ovšem při vstupu celých stupňů vypíše i těch 0' a 0''

Tak si ji zkus upravit tak, aby pokud minuty nebo vteřiny jsou nulové je to tam nevypisovalo.

#6 Honzc
Diky, funguje to    ..hele nevis jeste jak prevest sinus bety(mam ulozeno v sinbeta) na stupne? Zkousel jsem to pomocí  radtodeg(sinbeta) i (sinbeta*180)/PI ..ale vypisuje mi to výsledek vždy s malou neřesností v řádech minut. Nevíš náhodou kde je chyba?

#7 Venca
Protože,

sinbeta:=(b*sinalfa)/a; - spočítá sinus úhlu beta v radiánech. (podle sinové věty)
beta:=RadtoDeg(sinbeta); převede tento sinus úhlu, !!! tzn. ne úhel !!! na stupně, což je špatně.

Musíš použít funkci inverzní, tedy     function ArcSin(const X: Extended): Extended;

Protože funkce ArcSin je v jednotce Math, tak ji nezapomeň přidat do sekce uses, tedy

........,Dialogs, Math;

Pro tvůj případ: beta := RadToDeg(ArcSin(sinbeta);

a potom použít funkce dms. (té co jsme vytvořili)

Ještě poznámka: ...ale vypisuje mi to výsledek vždy s malou neřesností v řádech minut, je zřejmě způsobeno tím, že máš v tomto případě úhel beta docela malý. Pro malé úhly (tak do 6-ti stupňů) platí přibližně úhel = sin(úhel) v radiánech.

Ještě ti posílám upravenou funkci dms, aby to při 0 min nebo 0 vteřin tyto nevypisovalo

function dms(u: Extended): String;
var s,m,v: Integer;
    pom: Extended;
    ps: String;
begin
  s := Trunc(u);
  pom := Frac(u)*60;
  m := Trunc(pom);
  pom := Frac(pom)*60;
  v := Round(pom);
  if (v=0) then
    if (m=0) then
      ps := IntToStr(s)+'°'
    else
      ps := IntToStr(s)+'°'+IntToStr(m)+'´'
  else
    ps := IntToStr(s)+'°'+IntToStr(m)+'´'+IntToStr(v)+'´´';
  Result := ps;
end;