CB i rad 179

179

XII. LOKATOR

PROGRAM KOMPUTEROWY LOC QRB

Program napisano w języku programowania TURBO PASCAL (7.0) na komputery kompatybilne z IBM.

Wersja proponowana uwzględnia podawanie lub wyliczanie LOC ośmiozna-kowego wg opisanego dodatkowego sposobu 1, np. K003GS05, co pozwala określić QRB z tolerancją mniejszą od 1 km.

PROGRAM Lokator_QRB_współrzędne

{ by Piotr Domagalski, Brodnica 1993-08-23

Program dokonuje konwersji między współrzędnymi geograficznymi a wartością lokatora (i odwrotnie) oraz oblicza odległość (ortodrome) między dwoma punktami na Ziemi (o znanym położeniu geograficznym lub znanym LOC). Wzór do obliczenia ortodromy zaczerpnięto z. literatury:

[1 ] Jan Mielelski: Astronomia w geografii, PWN, Warszawa 1979.    }

PROGRAM Lokator_i_odległość;

USES Crt;

TYPE Lokator=String[8];

Gco=RECORD    długość,szerokość: Real;

END;

FUNCTION R2I(x: Real): Intcgcr;

BEGIN

R2I:=Round(int(x));

END;

PROCEDURĘ LokToGeofl: Lokator;

VAR g: Geo);

BEGIN

g.długość:=(Ord(Ul j)-Ord('A’))*20+(Ord(l[3])-Ord(’0’))*2+(Ord(l[5])-Ord(’A’))/12;

g.szerokość:=(Ord(l[2|)-Ord(’A'))*10+(Ord(![4])-Ord('0'))+(Ord(l[6])-Ordf A’) )/24; IF Lcngth(l)=6 T!IEN    BEGIN

g.długość:=g.długość+l/24-180; g.szerokość:=g.szerokość+l/48-90;

END

ELSE

BEGIN

g.długość:=g.długość+Ord(l[7])-Ord(’0’))/( 12* 10)+1/(24* 10)-180;

g.szerokość:=g.szerokość+0rd(l[8])-0rd(’0’))/(24*10)+l/(48*l0)-90;

END;

END;