hj` co bai nj nho may bac gop y

[jiztlee]

viết ch trình tính s=x+x^2+x^3+x^4+...x^n với x và n đc nhập từ bàn phím mình vit như sau:

lập 4 biến x,s,i,n,t
nhập x,n
t:=1; s:=0;
for i:=1 to n do
begin t:=t*x; s:=s+t;
xuất s.

nhờ mấy huynh coi giúp ^^ em nghĩ là đúng nhưng hok pik có cái lỗi ngớ ngẩn nào hông ^^ thanks trước

[assassin64]

Có vẻ đúng, vậy bạn thử viết chương trình up lên thử xem:D

[vienle]

program tinh_tong;
uses crt;
var x,n,i:integer;
s:real;
begin
clrscr;
write('Nhap x = ');
readln(x);
write('So mu n : ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+exp(i*ln(x));
write('Tong la ',s:5:1);
readln
end.

[ColdsunLeo]

Sao thấy nó ngộ ngộ

[Sponsored content]