Pascal ArcTan... :/ :D

Programovacie jazyky, rady, poradňa...
MA_SK
Light Expert
Light Expert
Príspevky: 60
Registrovaný: 03 mar 2011, 9:04

Pascal ArcTan... :/ :D

Príspevok od používateľa MA_SK »

Ahojte,

Kto mi poradí ako mám previesť stupne na radiany(používam Pi*S /180).....pretože potrebujem počítať cez ArcTan....dlzku kruznice......lenže ono mi to vychádza inak ako ked počítam na kalkulačke zo stupnami....možno neviete o čom hovorím.....neskor sem hodím zdroják... :D
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa audiotrack »

stupne na radiany prevádzaš správne, tak ak ti to vychádza inak, daj ten zdroják, lebo očividne ty nevieš o čom hovoríš, a nie my :)
MA_SK
Light Expert
Light Expert
Príspevky: 60
Registrovaný: 03 mar 2011, 9:04

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa MA_SK »

program TOZ;

uses crt;
var T,R,A : real;

Begin
ClrScr;
writeln('Zadaj polomer [R]: ');
readln(R);
writeln('Zadaj uhol Alfa: ');
readln(A);
A := A/2;
A := Pi * A / 180;
T := R * ArcTan(A);
writeln('Tycnica je dlha :',T:3:2, ' metrov.');
readkey;
End.




/ Polomer= 1500m, Uhol Alfa=35 stupňov.

Riešenie:

V stupňoch (na kalkulačke):
Takto to má výsť na 100%
T = R * tan (A/2)
T = 1500 * tan (35/2)
T = 1500 * 0.3153
T = 472.95 metra


V Pascale s vyššie uvedeným zdrojákom to vychádza 444.65 metra.

Kde robím chybu?

Za odpovede vopred Diiiik
metthal
Guru wannabe
Guru wannabe
Používateľov profilový obrázok
Príspevky: 2475
Registrovaný: 26 jan 2006, 18:32
Bydlisko: Nitra / Brno

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa metthal »

Tak sa rozhodni ci chces pouzivat tangens, alebo arkus tangens. Tangens je goniometricka funkcia, kdezto arkus tangens je cyklometricka. Na tvojej kalkulacke pocitas s tangensom, v tvojom zdrojovom kode vidim ArcTan :roll:
MA_SK
Light Expert
Light Expert
Príspevky: 60
Registrovaný: 03 mar 2011, 9:04

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa MA_SK »

Do kelu!

Prečo som ja vždy v tej škole iba spal? :/ :D

Ale vieš....V Pascale existuje iba ArcTan.....žiadny Tan.....ako sa to do vyriešiť? :P
metthal
Guru wannabe
Guru wannabe
Používateľov profilový obrázok
Príspevky: 2475
Registrovaný: 26 jan 2006, 18:32
Bydlisko: Nitra / Brno

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa metthal »

Ty by si v tej skole mal fakt davat pozor.

Kód: Vybrať všetko

tan(x) = sin(x)/cos(x)
MA_SK
Light Expert
Light Expert
Príspevky: 60
Registrovaný: 03 mar 2011, 9:04

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa MA_SK »

Hmmm.....Máš to u mňa.... :D

//autoeditácia príspevku (07 Mar 2012, 16:21)
A ešte....čosi... :D

Keď dám v Pascale cos(17.5)
tak mi to dá 0.22


ale klasicky na kalkulacke je to 0.9537...

čo s tím? :D
mirak2
Hardcore addict
Hardcore addict
Používateľov profilový obrázok
Príspevky: 6719
Registrovaný: 18 sep 2005, 13:44
Bydlisko: Prague, CZE / Kosice, SVK

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa mirak2 »

do pi*i sak trochu samostatnosti, na google mas ban? tu som ti to nasiel
MA_SK
Light Expert
Light Expert
Príspevky: 60
Registrovaný: 03 mar 2011, 9:04

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa MA_SK »

program H;

uses crt;
var Z,A : real;

begin
clrscr;
writeln('Zadaj uhol Alfa: ');
readln(A);
Z := 180*A/Pi;
Z := cos(Z);
writeln('cos = ',Z:3:2,'');
readln;
end.



skusil som.....ale aj tak vychadzaju blbosti.....treba to ešte premenit na späť ti radiany alebo čo? :D
metthal
Guru wannabe
Guru wannabe
Používateľov profilový obrázok
Príspevky: 2475
Registrovaný: 26 jan 2006, 18:32
Bydlisko: Nitra / Brno

Re: Pascal ArcTan... :/ :D

Príspevok od používateľa metthal »

Vies vobec co to je kosinus, ked davas blbosti typu ci funkcnu hodnotu tejto funkcie, treba premenit na radiany? :roll:

A len tak mimochodom, asi ocakavas ze premenna A su stupne, prevod zo stupnov na radiany je

Kód: Vybrať všetko

rad = deg * PI / 180
kde rad su radiany a deg su stupne
Napísať odpoveď