چند جملهایهای P(x)=a0+a1x+…+anxn، (an≠0) و Q(x)=b0+b1x+…+bmxm، (bm≠0) را در نظر بگیرید. الگوریتمی بنویسید که n و a0 تا an و m و b0 تا bm را بگیرد و ضرایب چند جملهایهای P(x)+Q(x) و P(x)×Q(x) را بهدست آورد و بترتیب در متغیرهای DS و DP ذخیره نماید.
پاسخ
برنامه خواسته شده به زبان پاسکال در زیر آمده است:
progrom Problem1; var
M, N, DS, DP, I: A, B, S: array [0..100] of Real; P: array [0..200] of Real;
begin
ReadLn(N); for I := 0 to N do ReadLn(A[I]); RedLn(M); for I := 0 to M do ReadLn(B[I]); for DS := 0 to N + ord(M > N) * (M - N) do {WiD} S[DS] := A[DS] + B[DS]; for DP := 0 to M + N do {WiD} for I := 0 to DP do P[DP] := P[DP] + A[I] * B[DP -I]
end.