ALpMontana
КЯaL´da TaNıMaM КuяaL´da
program polinom(input,output);
var
i,j,n,x,F,P:integer;
a:array[1..1000] of integer;
b:array[1..1000] of integer;
begin
Write('dizinin boyutunu giriniz => '); readln
;
for i:=1 to n do
begin
write('a[',i,']='); readln(a); end;
write(' bir sayi giriniz=>');readln(x);
F:=1;
P:=a[1];
for i:=2 to n do
begin
F:=F*x;
P:=F*a+P
end;
write(' polinomin sonucu ', P );
readln;
end.
var
i,j,n,x,F,P:integer;
a:array[1..1000] of integer;
b:array[1..1000] of integer;
begin
Write('dizinin boyutunu giriniz => '); readln
for i:=1 to n do
begin
write('a[',i,']='); readln(a); end;
write(' bir sayi giriniz=>');readln(x);
F:=1;
P:=a[1];
for i:=2 to n do
begin
F:=F*x;
P:=F*a+P
end;
write(' polinomin sonucu ', P );
readln;
end.