P_19_E20

=__**Averiguar en qué región del espacio está un punto**__= > Dividido el plano XY en cuatro regiones mediante > una circunferencia y una recta, averiguar a qué región pertenece > un punto cuyas coordenadas se introducen por teclado. code format="pascal" PROGRAM CONDIC_20 ; CONST rRADIO = 7.0 ; VAR rX, rY : Real ; boDentroCircunferencia, boEncimaRecta : Boolean ; BEGIN {-- Programa Principal --} Writeln ('Escribe las coordenadas de un punto del plano XY:') ; Write (' X = ') ; Readln (rX) ; Write (' Y = ') ; Readln (rY) ;

boDentroCircunferencia := (sqr (rX) + sqr (rY)) < sqr (rRADIO) ; boEncimaRecta := (4 - 2 * rX) < rY ;

Writeln ; Writeln ('Circunferencia de centro el origen de coordenadas y ',                'radio: ', rRADIO:0:2) ; Writeln ; Writeln ('Recta: Y = 4 - 2 X') ; Writeln ;

IF boDentroCircunferencia AND boEncimaRecta THEN Writeln (' DENTRO de la circunferencia y ENCIMA de la recta')

ELSE IF NOT boDentroCircunferencia AND boEncimaRecta THEN Writeln (' FUERA o EN la circunferencia y ENCIMA de la recta')

ELSE IF boDentroCircunferencia AND NOT boEncimaRecta THEN Writeln (' DENTRO de la circunferencia y DEBAJO o EN la recta')

ELSE Writeln (' FUERA o EN la circunferencia y DEBAJO o EN la recta') ;

ReadLn ; END. (* Fin de CONDIC_20.PAS *) code