Pascal - Pomoc Na Matematyke

[polhub]

Witam!

Proszę o pomoc w napisaniu programu do obliczania tangensa danego kata! Chodiz mi o to zeby program rządał miare kątą i pozniej wyswietlal jego TANGENS :-)

 

Z góry dzięki za pomoc

 

Pozdrawiam,

Denis

[koparka]

poszukalem w help i znalazlem:

a wiec najpierw troche ci wytlumacze zebys zrozumial :D

pascal (chyba) posiada tylko funkcje sin(x) oraz cos(x) gdzie x jest wartoscia podana kata w radianach,

jest to zmienna typu real;

nie ma funckji tg ale z matematyki wiemy ze tgx=sinx/cosx;

jesli uzytkownik chce podac kat w stopniach (a zapewne nie w radianach) to trzeba zamienic podany kat

na radiany, ktore sa zrozumiale dla komputera:

skorzystamy tu ze wzoru KAT{w radianach}=(KAT{w stopniach}*Pi)/180;

 

teraz majac kat w radianach juz wystarczy nam do szczescia wartosc sinusa i cosinusa,

co latwo da sie zrobic z wczescien wymienionych funkcji,

 

caly program bedzie wiec wygladal tak:

program tang;uses crt;var sinus,cosinus,c:real;begin	 clrscr;	 writeln ('Podaj kat');	 readln(c);	 c:=(c*Pi)/180;	 sinus:=sin(c);	 cosinus:=cos(c);	 writeln('Tangens tego kata wynosi: ',(sinus/cosinus):0:4);	 readln;end.

Pozdrawiam

Edytowane 10 Listopada 2005 przez koparka

[koparka]

Aha, przydalo by sie jescze, zrobic zabezpieczenie jakby ktos podal wartosc kata dla ktorego TG nie istnieje (czyli k×90*);

mozna skorzystac z tego ze jest to dokladnie wtedy gdy COS jest rowny zero, wiec dac warunek po prostu

if cosinus=0 then writeln ('Nie ma TG')elsewriteln('Tangens tego kata wynosi: ',(sinus/cosinus):0:4);

no ewentualnie zastapic to

if (cosinus<0.00001) and (cosinus>-0.00001)

poniewaz typ real bywa nie dokladny,

np. 0 moze sie rownac 0.0000001 i stad trzeba dac pewna rezerwe

Edytowane 10 Listopada 2005 przez koparka