# Koeffizienten eines Polynoms

## Problembeschreibung

Die Koeffizienten eines Polynoms sind zu bestimmen.
Das eingegebene Polynom kann auch als Produkt von Linear-
faktoren erzeugt werden.

## Problemlösung

EINGABE

p:read("Gib ein Polynom in der Variablen x ein");

VERARBEITUNG

p:expand(p);

grad:hipow(p,x);

for i:0 thru grad do ev(K[i]:coeff(p,x,grad-i));

load(stringproc);

AUSGABE

for i:0 thru grad do print(ascii(65+i),"=",K[i])$