CB i rad 181

181

XII. LOKATOR

WriteLn(’(część ułamkowa liczby musi być oddzielona a nic WriteLn; WriteLn('szerokość:');

{$1-} REPEAT Wrilcf st=’);

ReadLn(st);

UNTIL (st>=0) AND (st<=90) AND (IOResult=0);

REPEAT Write(’ m=');

ReadLn(m);

UNTIL (m>=0) AND (m<=59) AND (IOResult=0);

REPEAT Write(’ s=’);

ReadLn(s);

UNTIL (s>=0) AND (s<=s59) AND (IOResult=0);

{$1+} Write(’ półkula(S/dowolny)=’);

IF KeyPrcssed THEN REPEAT z:=ReadKey UNTIL NOT KeyPressed; z:=UpCasc(ReadKey);

IF z=’S’ THEN    BEGIN

g.szcrokość:=-(st+m/60+s/60/60);

WriteLn(’S’);

END

ELSE

BEGIN

g.szerokość:=st+m/60+s/60/60;

WriteLn(’N’);

END;

WriteLn;

WriteLn(’długość:’);

{$1-) REPEAT Writc(’ st=’);

ReadLn(st);

UNTIL (st>=0) AND (st<=180) AND (IOResult=0);

REPEAT WritcC m=’);

ReadLn(m);

UNTIL (m>=0) AND (m<=59) AND (IOResult=0);

REPEAT Writef s=’);

ReadLn(s);

UNTIL(s>=0) AND (s<=59) AND (IOResuIt=0);

{$1+1

Writef półkula(W/dowolny)=’);

IF KeyPressed THEN REPEAT z:=ReadKcy UNTIL NOT KeyPressed; z:=UpCasc(ReadKey);