Program Polynomberechnung;

Uses crt;

var
   jn:char;
   j,n,r,x,xmin,xmax,step:integer;
   a:array [0..10] of integer;

Begin
 jn:='j'
 While (jn<>'n') or (jn<>'N') do begin
  clrscr;
  Writeln ('Polynomauswertung');
  Writeln ('(a*x^n):=Term => a:=Koeffizient; n:=Grad des Polynoms');
  Write ('Grad des Polynoms: ');
  Readln (n);
  j:=n;
  while j<>-1 do Begin;
   Write ('Koeffizient des Terms ',j,'-ten Gerades: ');
   Readln (a[j]);
   j:=j-1;
  end;
  Write ('Wertebereichs Maximum: ');
  readln (xmax);
  Write ('Wertebereichs Minimun: ');
  Readln (xmin);
  Write ('Schrittweite der Berechnung: ');
  Readln (Step);
  x:=xmin;
  If xmax<x then begin;
   x:=xmax;
   xmax:=xmin;
   xmin:=x;
  End;
  While x<xmax do begin;
   j:=n;
   r:=a[j];
   While j>0 do begin;
    j:=j-1;
    r:=r*x+a[j];
   End;
   Writeln ('f(',x,')=',r);
   x:=x+step;
  End;
  Write ('Soll ein weiterer Polynom berechnet werden J/N');
  Readln ('jn');
 End;
End.