# Kreis und Gerade

## Problembeschreibung

*******************************************
Dokumentnummer: D1330
Quelle: Johann Weilharter,
             Geometrie alt
*******************************************
Die Lage einer gegebenen Gerade ist
bezüglich eines gegebenen Kreises zu
bestimmen.

## Problemlösung

EINGABE

kreis:read("Gib die Gleichung des Kreises ein");

gerade:read("Gib die Gleichung der Geraden ein");

VERARBEITUNG

y1:solve(gerade,y);

k1:kreis,y1[1];

l:realroots(k1);

n:length(l);

if n=0 then typ:"Passante"$

if n=1 then typ:"Tangente"$

if n=2 then typ:"Sekante"$

AUSGABE

print("Die Gerade",gerade,"ist eine",typ,"bezügliches des Kreises",kreis)$

LÖSUNGSALTERNATIVE

realonly:true;

l:solve([kreis,gerade],[x,y]);