Viết chương trình cho phép nhân hai đa thức đã sắp xếp

Viết chương trình cho phép nhân hai đa thức đã sắp xếp

Viết chương trình cho phép nhân hai đa thức đã sắp xếp.

Thuật toán:

Tích đa thức A bậc m với đa thức B bậc n là đa thức C bậc m + n. Trong đó : C[m] = Tổng của các tích A[i] * A[j] sao cho i+j = m.

Chương trình

Program Nhan_da_thuc;

Var m,n,i,j:byte;

    A, B, C: array[0..10] of real;

Begin

    Write(' Nhap bac cua da thuc A: '); Readln(m);

    For i:= m downto 0 do

    Begin

         Write('A[',i,']= '); Readln(A[i]);

    End;

    Write(' Nhap bac cua da thuc B: '); Readln(n);

    For i:= n downto 0 do

    Begin

         Write('B[',i,']= '); Readln(B[i]);

    End;

    For i:=0 to m+n do C[i]:=0;

    For i:=0 to m do

     For j:=0 to n do C[i+j]:=C[i+j]+A[i]*B[j];

    For i:= m+n downto 0 do if C[i]<>0 then Write(C[i]:3:1,'x^',i,' + ');

    Readln

End.

 

Bạn thấy bài viết này như thế nào?: 
Average: 9 (25 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Hacker

Hacker có thể “tiêu diệt” Facebook vào ngày 5/11

Vào giữa tháng 8, cộng đồng mạng trở nên hốt hoảng trước thông tin hacker phát động chiến dịch đánh sập Facebook vào ngày 5/11.

Giải quyết trục trặc thường gặp của iPad

Ra đời trong năm 2010, iPad nhanh chóng trở thành sản phẩm bom tấn của Apple. Tuy nhiên, cũng như một chiếc máy tính, iPad nhiều khi bỗng dưng... đổ bệnh.

6 Tools for Windows Maintenance

6 Tools for Windows Maintenance

In windows most of us are downloading, deleting and move file from here to there, and after this your windows has so many dump files...

Tomdesgin.vn

 

Drupal Services