Question

Viết chương trình cho phép cộng hai đa thức. Kết quả in ra dạng: a­nx^n + … + a1x + a0

Answer 1

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.