các anh ơi giúp em tin 11với sắp kiểm tra rùi 2 hôm nữa kiểm tra ruj`

[nhokdragon94]

Đưa a lên integer nhaz bạn
(tất cả đều ra kết quả (trừ gia trj a=1 thì lại hiện division by zero ^^!)
Giải thích:
cho S bắt đầu bằng a( vì S:=a+...)(để zay cho nhanh)
khi S=a thì đoạn còn lại có dạng i/(i+a-1)
Vì số típ theo S=a+... là 2/(a+1) tức là 2/(a+2-1)=i/(a+i-1)-->gán i bắt đầu bằng 2;
==>>
Tạo vòng lặp(cái này ko xác định vì chả biết khi nào n/(n+a-1)<=0.00006 cả--> dùng while);
Lặp đến khi i/(i+a-1)>=0.00006 thì thoát khỏi ch trình(nếu nhỏ hơn thì làm típ);
bên trong vòng lặp:
S:=S+i/(i+a-1);--> cộng với từng giá trị của i/(i+a-1);
tăng biến đếm i:=i+1;
Làm đến khi i/(i+a-1)>=0.00006 (tức là khi đó i=n);
xuất S;
end. ^^!
Nếu bạn đọc hok hỉu thì thông cảm cho mình tại vì mình hok wen giảng bài(hok bic cách giảng bài) mình hỉu theo cách của mình thì nhớ thui chứ hok thể diễn tả ra đc) nên có j` bỏ wa nhaz

[phucduongd2t]

uh. mình thấy bạn giảng cũng được lắm chứ.

[=========> Bổ sung bài viết <=========]

nhưng vẫn ko chạy dc bạn ah

[nhokdragon94]

Hơ mình giảng bạn có hỉu đc hem zay

[phucduongd2t]

bạn thử test xem sao, mà ko thì ghi lại bài làm hoàn chỉnh cho mình luôn. cố giúp mình với. thứ 2 mình thi học kì rui`

[topvip9x]

Éo... Bạn kẽ cái bảng gồm 3 cột là a, i, s... sau đó bạn cho đại 1 giá trị a nào đó... sau đó làm từ trên xuống theo chương trình đó...

[phucduongd2t]

thoy làm lại bài cho mình lun

[=========> Bổ sung bài viết <=========]

mình làm thế này chuẩn chưa bạn:
var i,a:integer;
s: real;
begin
write ('nhap a=');
readln (a);
s:=a;
i:=2;
while i/(i+a-1) >= 0.00006 do
begin
s:=s+i/(i+a-1);
i:=i+1;
end;

writeln ('tong s=',s:5:2);
readln;
end.

[nhokdragon94]

Ẹc sao mình test đc mà bạn chỉ cần thay giá trị a:real mà mình code hùi nãy thành a:integer thui

[phucduongd2t]

mình đổi dấu > thành dấu < thì dc nhưng nhập a bằng bao nhiu thì nó cho s bằng từng đó lun

[=========> Bổ sung bài viết <=========]

bạn send file .pas của bạn cho mình dc ko.

[=========> Bổ sung bài viết <=========]

mà bạn có nick yahoo ko
hỏi yahoo cho tiện

[=========> Bổ sung bài viết <=========]

đây là nick yahoo của mình: phucduongkissto

[nhokdragon94]

nhoklonely_luv_baby_4ever --> nic minh` doa

[ktakta]

toàn gặp chuyên gia đào mồ, dùng c# có hay hơn không ?