Tin học Bài tập pascal

[STA QUY]

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

Nhập một số thực x rồi tính
S = 1 + x/1! + x^2/2! + x^3/3! + ... + x^n/n! với độ chính xác | x^n/n! | < 10^-5

Mọi người giúp mình giải bài này với nha!!!

 

[ka1412]

Nhập một số thực x rồi tính
S = 1 + x/1! + x^2/2! + x^3/3! + ... + x^n/n! với độ chính xác | x^n/n! | < 10^-5

Mọi người giúp mình giải bài này với nha!!!

xem có gì không hiểu thì bảo mình nha

uses crt;
var i,n,j:integer;x:real;s,m:double;
function gt(q:integer):longint;
var w:integer;
begin
    gt := 1;
    for w:=1 to q do
    gt := gt*w;
end;
begin
    write('Nhap x:');readln(x);
    write('Nhap n:');readln(n);
    s := 1;
    for i:=1 to n do
    begin
        m     := 1;
        for j := 1 to i do m:=m*x;
        s     := s+m/gt(i);
    end;
    write('Tong la:',s:4:4);
    readln
end.