CB i rad 180

180

XII. LOKATOR

FUNCTION GeoToLok(g: Geo): Lokator;

VAR 1: Lokator;

d,s: Real;

BEGIN

d:=g.długość+180;

s:=g.szerokość+90;

l[l]:=Chr( R2I(d) div 20+Ord(’A’));

l[3]:=Chr( ( R2I(d) mod 20) div 2    +Ord(’0’));

l[5]:=Chr( R2I( (R2I(d) mod 2+Frac(d))* 12 ) +Ord(’A’));

l[7]:=Chr( R2I( Frac(Frac(d)*12)*10)    +Ord(’0’));

l[2]:=Chr( R2I(s) div 10    +Ord(’A’) );

l[4]:=Chr( R2I(s) mod 10    +Ord(’0’));

l[6]:=Chr( R2I( Frac(s)*24)    +Ord(’A’));

l[8]:=Chr( R2I( Frac(Frac(s)*24)* 10) +Ord(’0’));

GeoToLok:=l;

END;

FUNCTION Odległość(gl,g2: Geo); Word;

CONST r=(6378.160+6356.775)/2;

VAR cosl,kat,sl,dl,s2,d2: Real;

BEGIN

sl :=gl.szerokość*PI/180; dl :=g 1 .długość*PI/l 80; s2:=g2.szerokość*PI/180; d2:=g2.długość*PI/l 80;

cosl:=Sin(s 1 )*Sin(s2)+Cos(s 1 )*Cos(s2)*Cos(d2-d 1); kat:=ArcTan(sqrt(l-sqr(cosl))/cosl);

IFkatTHEN kat:=kat+PI;

Odległość:=Round(kat*r);

END;

|********************************************************************

VAR1; ARRAY [1..2] OF Lokator; g: ARRAY [1..2] OF Geo; z: Char;

PROCEDURĘ CzytajGeo(VAR g: Geo);

VAR st,m: Byte; s: Real; z: Char;

BEGIN

WriteLn;

WriteLn(’Podaj współrzędne geograficzne.’);