Udělal jsem nějkaé úpravy na programu, který počítá Parsec ze zadaného délkového údaje a opět program vrací naprosto nesmyslné údaje.
program parsec;
uses crt;
const zemeslunce:real=150000000;
var slong : integer;
{/////////////////functions////////////////////}
function clong (a,b : real) : real; {pythagorova veta}
var clong2 : real;
begin
clong2:=(a*a)+(b*b);
clong:=(sqrt(clong2)); {vrati delku prepony}
end;
function ArcSin(x:real):real; {vrati arcsin cisla}
begin
ArcSin:=ArcTan(x/sqrt(1-sqr(x)));
end;
function cparsec (x:real) : real;
var return : real;
a,b,c : real;
begin
{plenetarni trojuhelnik}
a:=zemeslunce; {a strana zeme-slunce 150 000 000km}
b:=x; {b strana slunce-zadany objekt}
c:=clong (zemeslunce,x); {c strana prepona planetarniho trojuhelniku zeme-objekt}
return:=arcsin (a/c); {spocita uhel alfa}
return:=return*60; {prepocita stupne na minuty}
cparsec:=return;
end;
{///////////////telo programu//////////////////////}
begin
Writeln ('Enter long from sun to object in km');
readln (slong);
writeln (cparsec (slong));
readkey;
end.
Fórum › Pascal
Opět parsec
![](img/forum_vlakno_help_vyreseno.png)
To Yety : http://cs.wikipedia.org/wiki/Parsek http://cs.wikipedia.org/wiki/Parsek
To Yety : Jak jsem psal už dříve - zadávat vzdálenost od Slunce (proměnná Slong) v typu integer je kravina, protože má moc malý rozsah. Takže při zadání miliardových hodnot zaručeně přeteče a vypočítá se nesmysl.
Mimochodem, nebylo by jednodušší vypočítat si převodní konstantu mezi km a pc a prostě jí zadané číslo vynásobit?
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Moje stránka.
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 2 hosté
Podobná vlákna
Opět jaký RS? — založil mates
DataGridView opět zlobí — založil Miromancer
IE spatne zobrazuje, opet! — založil shmoula
Informace o vývoji a podpora je opět zde — založil Curo
Moderátoři diskuze