B. BÀI TẬP: Bài tập 10.1

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 + ... + a₁x + a₀

Giải thuật:

- Dùng hai mảng A, B để lưu hệ số của hai đa thức. Có thể dùng mảng thứ ba C hoặc dùng lại một trong hai mảng A, B để lưu hệ số của đa thức tổng.

- Khi in kết quả cần kiểm tra hệ số để in dấu cho đúng.

Cài đặt:

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.