Ostertzaren (edo zeruertzaren) urruntasuna kilometroetan

Demagun itsasoaren ondoan gaudela eta urrunera, zeruertzera, begiratzen dugula. Zenbat kilometrotara batzen dira zerua eta itsasoa? Beste modu batez galdetuta: Zenbat kilometrotara dago ostertza edo zeruertza?

Irudia ikusi, non h aldagaia eta R konstantea datuak diren eta d distantzia lortu nahi den:

{

   Datuak:
        rAltuera aldagaia, metrotan emandako altuera
        R konstantea, lurraren erradioa 6370 Km
   Ezezaguna:
        rDistantzia aldagaia, lortu nahi den distantzia kilometroetan    
}


PROGRAM OstertzaKilometroetan ;

CONST
   R = 6370 ;
VAR
   rAltuera, rDistantzia : Real ;

BEGIN
   WriteLn('//////////////////////////////////////') ;
   WriteLn ;

   Write('Eman beatokirean altuera metroetan: ':30) ;
   ReadLn(rAltuera) ;
   
   rDistantzia := sqrt(sqr(rAltuera) + 2*rAltuera*R*1000) ;   
	
   WriteLn ;	
   WriteLn('Ostertzaren distantzia = ':22, rDistantzia:0:2, ' m') ;
   WriteLn('Ostertzaren distantzia = ':22, rDistantzia/1000:0:5, ' Km') ;
  
   WriteLn ;
   WriteLn('//////////////////////////////////////') ;
   ReadLn ;
END.