Вот еще одна задачка, которую надо немного доработать..на Паскале..
в массив mHk1[i] добавить последний элемент равный нулю, а в массив mHk2[j] добавлять нули в начале массива до тех пор, пока размерности этих массивов не станут равны..из первого массива вычесть второй и получившийся массив mas[r] вывести на экран..
program z_669a;
uses crt;
const k : integer = 5;
n=10;
var
mas : array [1..n] of integer;
mHk1: array [1..n] of integer;
mHk2: array [1..n] of integer;
i,j,r,p: integer;
x: integer;
function H(x: integer; k:integer): integer;
begin
if (k=0) then H:=1;
if (k=1) then H:=2;
if (k>=2) then H:=x*H(x,k-1)-(k-1)*H(x,k-2);
end;
begin
clrscr;
for p:=1 to 3 do begin
write ('Vvedite k: '); readln(k);
for i := 1 to k-1 do
begin
mHk1[i] := H(x,i);
write (mHk1[i],'*x^',(k-i),' ');
end;
writeln;
for j := 1 to k-2 do
begin
mHk2[j] := (k-1)*H(x,j);
write (mHk2[j],'*x^',(k-j-2),' ');
end;
writeln;
for r:=n downto 1 do
writeln (k,' chlen H= ',mas[r],' ');
writeln;
end;
readkey;
end.
Если задавать k=3;5;6, то должно вывестись следующее:
для 3: 2*x^2 -1*x^1 -4*x^0
для 5: 2*x^4 -1*x^3 -18*x^2 7*x^1 16*x^0
для 6: 2*x^5 -1*x^4 -28*x^3 12*x^2 66*x^1 -15*x^0
Помогите, пожалуйста!!!!....