Giúp mình lập chương trình pascal nhé

[minhtienhjc]

Giúp mình lập chương trình trong pascal?

e=1/0! +1/1! +1/2! +......+1/n! cho tới khi 1/n! < 3.10^-6

Giúp mình nha, tuần sau phải làm bài kiểm tra 1 tiết rồi

Híc, mình học cái này cách đây 6 năm rồi giờ hổng nhớ gì hết ah.
Xin lỗi bạn nha,

 

[tranvanlong]

mình cũng không biết đúng không?
ues crt;
var
i,n,gt,S,j:integer;
begin
write('nhap n=');readln;
gt:=1;
S:=0;
for i:=1 to n do
begin
gt:=gt*i;
S:=S+1/gt;
end;
witeln('S=', S);
readln;
end.

 

[tranvanlong]

đó bạn xem thế nào?

 

[huongvk19]

Ôi. pascal mình cũng kém lắm. Vừa bị điểm 3 xong nè

 

[ngocquyen_0809]

Xin lỗi bạn nha! Mình không biết nhiều về CNTT cho lắm, nên mình không thể giúp bạn được

 

[nhocteenkhotinh]

mình chỉ mới học lớp 10 nên phần này chưa học tới.xl vì k giúp được gì cho bạn

 

[yenhoa_169]

cai nay minh cung khong ro lam.

 

[hocsinhCLHD]

Xin lỗi bạn nha...Mình mới học lớp 10 à....Cái này mình chưa học tới. Chắc đây là chương trình lớp 11 rùi.
Thông cảm cho mình nha....

 

[vippro11100]

quá dễ ====>>>> tự làm đi

 

[daodangviet]

program tinhtong;
uses crt;
var gt:longint;
i,n:byte;
s:real;
begin
i:=1;
gt:=1;
s:=1;
while gt>=3exp(-6) do
begin
gt:=gt*i;
s:=s+1/gt;
i:=i+1;
end;
writeln(' tong la:',s);
readln
end.

 

[hoachdt]

Hi Ban
Minh sorry nhe, minh ko sanh ve van de nay,
ai tren dien dan biet lem xin vui long giup do Nhochamhoc nhe.

 

[tungkien]

vấn đề này mình hok bít sr nhá

 

[Shaman]

Ối trời đất ơi! Mình chịu thua thôi! Dốt nhất món này đó.

 

[luong dung]

mình học Văn, mình không biết làm cái đó đâu

 

[vlong_dn95]

Mình sr nha.mình kô giỏi về tin cho lắm.mình chỉ học tốt Hóa Học thôi ak.bạn thông cảm nha.

 

[ngo van nhut]

ban co len dok hok
?

 

[caoxuantruong]

mình học du lịch, mình không thuộc những lĩnh vực đó, bạn thông cảm nhé

 

[minhhai99999]

heeeeeeeeeeeeeeeeeeeeeeeeeeeee

 

[henret]

Chịu thôi!Tớ không chuyên ( nếu nói là không biết) về mảng đó( tớ cũng không biết pascal là gì?)

 

[bongbi]

to chi giup duoc ve xa hoi thui!