CB i rad 183

183

XII. LOKATOR

END

ELSE

BEGIN

l[i]:=CzytajLok;

LokToGco(l|i],g[i]);

END;

END;

1F KeyPressed THEN REPEAT z:=ReadKcy UNTIL NOT KeyPressed;

REPEAT UNTIL KeyPressed;

END;

PROCEDURĘ WyświetlWsp(g: Geo;

1: Lokator);

BEGIN

WITH g DO BEGIN

Write('szerokość;’, R2I(Abs(szcrokość)):3,”,21(Frac(Abs(szerokość))*60),’” Frac(Abs(szerokość*60))*60 :2 :1

IF szerokość THEN WritcLnC S’) ELSE WriteLn(' N’); Wrile(’d)ugość;’,R2I(Abs(długość)):3,’ ’,R2l(Frac(Abs(dIugość))*60),”’ Frac(Abs(dtugość*60))*60 ;2 :1

IF długość THEN WriteLnC W’) ELSE WriteLnC E');

END;

WriteLnC lokator; ’,1);

END;

PROCEDURĘ WyświetlDancIObliczone;

VAR i: Byte;

BEGIN

FOR i:=l TO 2 DO BEGIN WriteLn;

WriteLn(‘Punkt nr ’,i);

WyświetlWsp(g[i],l[i]);

END;

WriteLn;

WritcLnC Odległość między punktami nr I i nr2 wynosi Odległość(g[ i |,g[2]),'km’); END;

BEGIN

REPEAT

ClrScr;

WriteLn;

WritelnC O - obliczanie odległości’);

WritcLnC L - przeliczanie wsp. lokatora na wsp. geograficzne’);

WritcLnC G - przeliczanie wsp. geograficznych na wsp.lokatora’);