Program - Polynóm (mnohočlen) :)

Vytvorené: 26. 03. 2014 Tlačiť

Program napísaný v jazyku Pascal.

program PolynomOk;

var
stupen,cislox,i,j,hodnota,pom:integer;
koeficient: array[0..10] of integer;

begin
writeln ('Zadajte stupen polynomu (2-9)');
readln (stupen);
writeln ('Zadajte cislo x pre ktore treba vypocitat polynom.');
readln (cislox);
for i:=0 to stupen do begin
writeln ('Zadajte ', i ,'.koeficient polynomu.');
readln (koeficient[i]);
end;
writeln;
hodnota:=koeficient[0]+koeficient[1]*cislox;
writeln(hodnota);
writeln;
for i:=2 to stupen+1 do begin
pom:=1;
for j:=1 to i do begin
pom:=pom*cislox;
writeln(pom);
end;
writeln(koeficient[i]*pom);
hodnota:=hodnota+koeficient[i]*pom;
writeln;
end;
writeln('Hodnota polynomu = ',hodnota);
readln;
end.

Program napísaný v jazyku Pascal.

program krajsi_polynom;

var i,x,stupen,mocninax,CelkHod: integer;
koeficient,hodnotax: array[0..100] of integer;

begin
writeln('Tvar polynomu: k0*x^0 + k1*x^1 + k2*x^2 + .. + kn*x^n.'); //vzorec
writeln('Zadajte hodnotu pre x.');
readln(x);
writeln('Zadajte stupen polynomu.');
readln(stupen);
for i:=0 to stupen do // zistenie koeficientov
begin
writeln('Zadajte hodnotu koeficientu c.',i);
readln(koeficient[i]);
end;
hodnotax[1]:=x;
for i:=2 to stupen do //pocitame hodnotu x^n
hodnotax[i]:=hodnotax[i-1]*x;
for i:=1 to stupen do //pocitame tu koef*x
CelkHod:=CelkHod+(koeficient[i]*hodnotax[i]);
writeln;
writeln('x:= ',x);
writeln('stupen polynomu:= ', stupen);
for i:=0 to stupen do
writeln('k',i,':= ',koeficient[i]);
writeln('hodnota polynomu:= ',CelkHod+koeficient[0]);
readln;
end.