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! + x2/2! + x3/3! + ... + xn/n! với độ chính xác | xn/n! | < 10-5

Giải giúp mình bài này với!!!
Khó quá

 

[ka1412]

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

Giải giúp mình bài này với!!!
Khó quá

x2 là x*2 hả bạn?

 

[ka1412]

Của bạn đây:

uses crt;
var i,n:integer;x:real;s: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
    s := s+(x*i)/gt(i);
    write('Tong la:',s:4:4);
    readln
end.

 

[STA QUY]

x2 là x*2 hả bạn?

x2 là x^2 bạn ơi

 

[STA QUY]

Của bạn đây:

uses crt;
var i,n:integer;x:real;s: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
    s := s+(x*i)/gt(i);
    write('Tong la:',s:4:4);
    readln
end.

Cảm ơn bạn nhiều nha!!!