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

Bởi

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).

0 bình luận về “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”

  1. *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.

    Bình luận

Viết một bình luận