Tin học Bài tập tin học

[nicklily]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình bài ni vs mọi người ơi!
Bài 1:
S0 = n! = 1*2*...*n {n giai thừa}
S1 = 1 + 1/2 + ... + 1/n
S2 = 1 + 1/2! + ... + 1/n!
S3 = 1 + x + x2/2! + x3/3! + ... + xn/n!
S4 = 1 - x + x2/2! - x3/3! + ... + (-1)nxn/n!
S5 = 1 + sin(x) + sin2(x) + ... + sinn(x).

Chú Ý cách đặt tiêu đề

 

[syphuongcuong3]

USES crt;
VAR s0,i,gt:integer;
       s1,s2,s3,s4,s5,mu:real;
BEGIN  
    clrscr;
    write('Nhap n: ');readln(n);
    {S0}    
    s0:=1;
    FOR i:=2 TO n DO
        s0:=s0*i;   
    {S1}       
    s1:=1;
    FOR i:=2 TO n DO
        s1:=s1+1/i;
    {S2}    
    s2:=1;gt:=1;
    FOR i:=2 TO n DO
        BEGIN  
            gt:=gt*i;
            s2:=s2+1/gt;
        END;    
    {s3}
    S3:=1;mu:=1;gt:=1;
    FOR i:=1 TO n DO
        BEGIN   
            gt:=gt*i;
            mu:=mu*x;
            S3:=S3+mu/gt;
        END;          
    {s4}
    S3:=1;mu:=1;gt:=1;
    FOR i:=1 TO n DO
        BEGIN   
            gt:=gt*i;
            mu:=mu*x;
            IF n MOD 2=0 THEN S3:=S3+mu/gt
                ELSE s3:=s3-mu/gt;
        END;                      
    {s5}                
    S5:=1;mu:=1;
    FOR i:=1 TO n DO
        BEGIN   
            mu:=mu*sin(x);
            S5:=S5+mu;
        END;                                          
    write('S0=',S0);
    write('S1=',S1);
    write('S2=',S2);
    write('S3=',S3);
    write('S4=',S4);
    write('S5=',S5);
    readln;
END.