Program Cong_da_thuc;
uses crt;
Type KM = array[0..10] of integer;
Var A,B: KM;
n: byte;
Procedure NhapDT(Var A: KM; n:byte);
Var i: byte;
Begin
For i:=n downto 0 do
Begin Write(‘M[‘,i,’]=’); Read(A[i]); End;
End;
Procedure CONG(Var A:KM;B:KM;n:byte);
Var i: byte;
Begin
For i:= 0 to n do A[i]:=A[i]+B[i];
End;
Procedure INDT(A:KM;n:byte);
Var i: byte;
Begin
if A[n] <> 0 then Write(A[n],’x^’,n);
For i:=n-1 downto 0 do
if A[i] <> 0 then
if A[i] < 0 then write(A[i],’x^’,i) else Write(‘+’,A[i],’x^’,i);
End;
Begin
clrscr;
Write(‘Nhap bac n: ‘);Readln(n);
Writeln(‘Nhap da thuc A: ‘); NhapDT(A,n);
Writeln(‘Nhap da thuc B: ‘); NhapDT(B,n);
clrscr;
Indt(A,n); Writeln;
Indt(B,n); Writeln;
Cong(A,B,n);
Writeln(‘Da thuc tong: ‘);
Indt(A,n);
Readln;
Readln
End.