Lập trình đơn giản

Nguyễn Công Tỉnh

Làm bằng pascal

Viết chương trình tính giá trị của đa thức:

P(x)=a0+a1x+a2x2+...+anxn có các hệ số trong mảng số nguyên .Bậc n của đa thức và mang hệ số a,a,a,...,a là các số nguyên được nhập từ bàn phím. Hiển thị kết quả P(x) ra màn hình.

Nguyễn Công Tỉnh
11 tháng 4 2019 lúc 14:29

chỗ a,a,a,...,a sửa thành a0,a1,a2,...,an nhé

Bình luận (0)
Minh Lệ
11 tháng 4 2019 lúc 18:35

Lời giải :

program hotrotinhoc ;

var dathuc,n,x,i : integer ;

begin

write('Nhap gia tri cua n='); readln(n);

dathuc := 0;

for a:= 1 to n do

for x:= 1 to n do dathuc:= dathuc+a*(x*x) ;

write('P(x)=',dathuc);

readln

end.

Bình luận (3)
Quỳnh Thư
11 tháng 4 2019 lúc 21:22

program luythua;

uses crt;

var i,x,n: integer; P: longint;

A: array [1..100] of integer;

function luythua(x,n: integer) : longint;

var i: integer; T:longint;

begin

T:=1;

for i:= 1 to n do T:=T*x;

luythua :=T;

end;

BEGIN

clrscr;

write ('nhap n = '); readln (n);

for i:= 0 to n do begin write ('A[',i,']='); readln (A[i]); end;

write ('x='); readln (x);

P:=0;

for i:= 0 to n do P:=P+(A[i]*luythua(x,i));

write ('tich la: ',P);

READLN

END.

Bình luận (0)
Nguyễn Huy Hoàng Sơn
12 tháng 2 2020 lúc 21:44

program luythua;

uses crt;

var i,x,n: integer; P: longint;

A: array [1..100] of integer;

function luythua(x,n: integer) : longint;

var i: integer; T:longint;

begin

T:=1;

for i:= 1 to n do T:=T*x;

luythua :=T;

end;

BEGIN

clrscr;

write ('nhap n = '); readln (n);

for i:= 0 to n do begin write ('A[',i,']='); readln (A[i]); end;

write ('x='); readln (x);

P:=0;

for i:= 0 to n do P:=P+(A[i]*luythua(x,i));

write ('tich la: ',P);

READLN

END.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Tích Nguyệt
Xem chi tiết
duyy
Xem chi tiết
Kim Thái
Xem chi tiết
Quyen Duong
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
Chóii Changg
Xem chi tiết
Quản Gia Lynh
Xem chi tiết