# Wo hat die Tangente eine bestimmte 
Steigung?

## Problembeschreibung

*******************************
Dokumentnummer: D1252
Quelle: Johann Weilharter,
        Analysis
*******************************
Gegeben ist die Steigung einer Tangente (k) an eine gegebene
Polynomfunktion f(x). Es soll herausgefunden werden, an welchen Stellen
diese Steigung (der Tangente) vorliegt.

## Problemlösung

EINGABE

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

f:read("Gib die Polynomfunktion f(x):= ein");

VERARBEITUNG

ab:diff(f(x),x);

l:realroots(ab=k);

n:length(l);

for i:1 thru n do
        ev(xl[i]:x,l[i],numer);

for i:1 thru n do
        ev(xl[i]:floor(xl[i]*100+0.5)/100.0);

AUSGABE

for i:1 thru n do
       print("Lösung Nr.",i,"=",xl[i]);