Tính tổng

[quynhdh]

BÀi tập này rất rắc rối(Gồm có 5 ý, mỗi ý là một bài):
S1 = 1+2+2+....+n
S2 = 1+1/2+1/3+..+1/n
S3 = 1-1/1! + 1/2!+....+(-1)^n/n!

S4 = 1-2+3-4+...+(-1)^n.n

[tungthanh500]

có cái để luyện rồi:
1/

Uses Crt;
Var S,i,n:longint;
Begin
Write('Nhap so nguyen n: ');readln(n);
S:=0;
i:=0;
Repeat
S:=S+i;
i:=i+1;
Until i>n;
Write('Tong S= ',S);
readln;
End.

Bài 2

Uses Crt;
Var
Begin
Repeat
Write('Nhap so nguyen duong n: ');readln(n);
Until n>0;
S:=0;
i:=1;
Repeat
S:=S+1/i;
i:=i+1;
Write('Tong S=',S);
readln;
End.

[grenadier1991]

Ko hiểu 2 bài còn lại, có thể viết rõ ra dc ko ??????????

[tungthanh500]

2 bài cuối cần phải tìm cách để có thể làm việc được với (-1)^n

[tungthanh500]

Bài 4:

Uses Crt;
Var S4,i,n:integer; {or longint}
Begin
Gotoxy(35,3);Write('Chuong trinh tinh tong');
Gotoxy(3,6);Write('Nhap so nguyen duong n: ');readln(n);
S4:=0;
For i:=1 to do
If (i mod 2)=0 then S4:=S4-i else S4:=S4+i;
Gotoxy(3,7);Write('Tong S4 la: ',S4);
readln;
End.

[cuongtu]

theo mình theo mình nghĩ đối với tổng s3 thì mình sẽ lập một hàm 1^n và cho i chạy từ 0 là xong rồi. Đây chỉ là cách nghĩ của mình nếu có gì thiếu sót mong các bạn góp ý cho mình nha

[tungthanh500]

1^n chỉ cần xem qua bài 4 có thể tìm cách giải bài 3, bài 3 phức tạp hơn bài 4

[grenadier1991]

Úi giời, vậy thì bài 3 chỉ cần xét từ 1/2!->(-1)^n/n! thôi, vì 1-1/1!=0. Vấn đề rất đơn giản, chỉ cần viết 1 hàm tính lũy thừa, cái này dùng for 1 phát là xong, rồi cứ tính từ (-1)^2/2!->(-1)^n/n! là xong, thêm 1 vòng for nữa
Bài 4 cũng dễ: Xét i chạy từ 1->n, S:=0; Nếu i lẻ thì S:=S+i; Nếu i chẵn thì S:=S-i thui mà

[Master_Baby]

Giời ơi là giời, ai del bài của tui vậy!!!!
Ý kiến bài 4:
Chú ý rằng mỗi cặp 2 số liên tiếp tính từ đầu dãy có kết quả = -1
=> ko cần phải for đâu.

S4:=-1* ( n div 2 )
if (n mod 2 =1) then inc(S4,n);

[grenadier1991]

Hahahaha, hay hay, cách này đúng là hay mà tui quên mất.