chương trình passcal

[Nguyễn Thành Trung A2K52]

[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ải hộ mình bài này với , mình cần gấp:
viết chương trình 1/a +1/(a*(a+1)) +....+1/(a*(a+1)*...*(a+N))

 

[datduong771988@gmail.com]

Đầu tiên a bằng bao nhiêu hả bạn? Có phải nhập giá trị của a vào không?

 

[datduong771988@gmail.com]

uses crt;
var i,n,t,a:integer;
s:real;
begin
clrscr;
write('Nhap a:');readln(a);
write('Nhap n:');readln(n);
s := 0;
t := a;
for i:=1 to n do
begin
s := s+(1/t);
t := t*(a+i);
end;
write('s=:',s:6:8);
readln
end.

 

[Nguyễn Thành Trung A2K52]

tớ cũng viết như vậy ,chỉ đảo trật tự 2 phép gán ở chương trình con của cậu nhưng khi chạy toàn ra =1 , nên ms hỏi

 

[trà nguyễn hữu nghĩa]

tớ cũng viết như vậy ,chỉ đảo trật tự 2 phép gán ở chương trình con của cậu nhưng khi chạy toàn ra =1 , nên ms hỏi

Bạn đảo trật tự 2 phép gán nào vậy. Nếu đảo không đúng thì kết quả sẽ khác nha bạn