3. Viết chương trình pascal tính sau: S2 = 1 + 1/2! + ... + 1/n! S3 = 1 + x + x2/2! + x3/3! + ... + xn/n! (x nhập từ bàn phím) S4 = 1 - x + x2/2! - x3/3! + ... + (-1)nxn/n! S5 = 1 + sin(x) + sin2(x) + ... + sinn(x).
1 câu trả lời
*Bài tính S2:
---
Program BTT;
Uses crt;
Var S: extended;
i,n: longint;
Function GT(a: longint): int64;
Var i: longint; s: int64;
Begin
s:=1;
For i:=2 to a do
s:=s*i;
GT:=s;
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+1/GT(i);
Write('S2 = ',s:0:2);
Readln
End.
