# Lage Gerade Kreis

## Problembeschreibung

******************************************
Dokumentnummer: D1017
Quelle: Johann Weilharter,
              Analytische Geometrie 2
******************************************
Wenn eine Gerade einen Kreis in zwei Punkten schneidet,
dann ist sie eine Sekante.
Wenn eine Gerade einen Kreis in einem Punkt berührt,
dann ist sie eine Tangente.
Wenn die Gerade und der Kreis keinen Punkt gemeinsam haben,
dann ist sie eine Passante.

Es ist diese Lagebeziehung für einen gegebenen Kreis und eine
gegebene Gerade zu bestimmen.

## Problemlösung

EINGABE

k:read("Gib die Kreisgleichung ein");

g:read("Gib die Geradengleichung ein");

VERARBEITUNG

realonly:true;

l:solve([k,g],[x,y]);

n:length(l);

if n=0 then
           ev(lage:"Passante")
           else if n=1 then
                              ev(lage:"Tangente")
                              else
                              ev(lage:"Sekante");

AUSGABE

print("Die Gerade",g,"ist eine",lage,"bezüglich des Kreises",k)$