Goniometrické funkce
funkce
Program umožňuje zadání úhlu pomocí posuvníku od 0° do 360°. Při změně posuvníku se automaticky dopočítají goniometrické funkce.
použíté objekty
- TForm1 = class(TForm)
- LbSin, LbCos, LbTg, LbCotg, LbGoniometrie: TLabel;
- SbUhel: TScrollBar;
deklarace
- Form1: TForm1;
procedury
procedura při změně posuvníku
Důležité funkce sin a cos, které počítají v radiánech, proto musíme hodnotu posuvníku, který je ve stupních vynásobit pí a vydělit 180, abychom dostali úhel v radiánech. Funkce IntToStr převádí číslo Integer na řetězec, abychom mohli výsledek zobrazit v popisku. Funkce tangens a cotagens jsou definovány pomocí sinu a cosinu.
Funkce tangens a cotangens musí být ošetřeny pro úhly, kdy nenabývají hodnot tj. :
- tg nenabývá hodnot v úhlech 90 + k pí
- cotg nenabývá hodnot v úhlech k pí
LbSin.Caption := 'sin (' + IntToStr(SbUhel.Position) + '°) = ' + CurrToStr(sin(SbUhel.Position*pi/180));
LbCos.Caption := 'cos (' + IntToStr(SbUhel.Position) + '°) = ' + CurrToStr(cos(SbUhel.Position*pi/180));
if ((SbUhel.Position = 90) or (SbUhel.Position = 270))
then LbTg.Caption := 'tg (' + IntToStr(SbUhel.Position) + '°) = - '
else LbTg.Caption := 'tg (' + IntToStr(SbUhel.Position) + '°) = ' + CurrToStr((sin(SbUhel.Position*pi/180))/(cos(SbUhel.Position*pi/180)));
if ((SbUhel.Position = 0) or (SbUhel.Position = 180) or (SbUhel.Position = 360))
then LbCotg.Caption := 'cotg (' + IntToStr(SbUhel.Position) + '°) = - '
else LbCotg.Caption := 'cotg (' + IntToStr(SbUhel.Position) + '°) = ' + CurrToStr((cos(SbUhel.Position*pi/180))/(sin(SbUhel.Position*pi/180)));
Akce:
