CB i rad 184

184

XII. LOKATOR

WriteLnf W - wyjście z programu’);

WriteLn(’Twój wybór ???’);

CASE UpCase(ReadKey) OF 'O’: BEGIN ClrScr;

Wczytaj Dane;

ClrScr;

Wyświetl DanelObliczone;

END;

’L’: BEGIN

I[1 ]:=CzytajLok;

LokToGco(l[ 1 ],g[ I ]);

ClrScr;    WritcLn;

WyświctlWsp(g[I],l[l]);

END;

’G’: BEGIN

CzytajGco(g[l]);

1 [ 1 ]: =GeoToLok(g[ 1 j);

ClrScr;

WriteLn;

WyświetlWsp(g[ 1 ],1[1 ]);

END;

’W’: Exit;

END;

WriteLn;

WritcLn(’Jeszcze raz ??? [W - wyjście, dowolny - jeszcze raz]’);

IF KcyPressed THEN REPEAT z:=ReadKey UNTIL NOT KeyPresscd; z:=UpCase(ReadKey);

UNTIL z=’W’;

END.