Giúp mình bài pascal này !

[thanducha]

Căn bậc bai: (CBH)
- Viết chương trình pascal tính:
P=CBH(1+CBH(2+...+CBH(N))) với n<=1000. Phần thập phần lấy 4 chữ số thập phân.
->> XIn lỗi, mình không thể gõ kí hiệu căn bậc hai lên diễn đàn.

[thanhlong24]

Vấn đề của bài này là viết được chương trình con tính căn bậc 2 của 1 số.
Đây là Function CBH theo ý của bạn thích. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

Function CBH(a : Integer) : Real;
Begin
       CBH := exp((1/2)*ln(a));
End;

[hoang_kisirong]

SQRT là hàm căn bậc hai mà. Dùng hàm đó có phải tiện hơn không HSG?

[huongnguyen123]

Đây là chương trình bạn ah. Vì ta cần cộng các số trong căn từ 1 đến N mà số căn của N là ít nhất, sau đó đến N-1,...,số1 là nhiều căn nhất Bạn phải dùng vòng lặp For- downto để tính theo lệnh lặp và công thức lặp S:=sqrt(i+S) như sau:

program vd;
Var i,N:integer;S:Real;
Begin
write('Nhap vao so N:'); Readln(N);
S:=0;
For i:=N downto 1 do
S:=sqrt(i+S);
write('S=',S:7:4);
Readln
End.

nhớ nhấn cám ơn nhé!

[hajdajgja]

lê hằng ơi, cái này phải là for... to chứ.

[viettopcare10]

Phải dùng For - dơnto thì mới cộng ra kết quả như bài toán bạn ah. Bạn xem lại xem.

[pesttykl]

không đúng, bài đó như thế này chứ:

var N,S,i:integer;
begin
write('so phan tu cua day:');
readln(N);
S:=0;
for i:=1 to N do

S:=sqrt(S+sqrt(i));
write('tong la:'S:8:4);
readln
end.

Nhưng mà sao khi chạy chương trình nó lại báo lỗi 26 ở

S:=sqrt(S+(i));

nhĩ?

[baothanh12345]

không đúng, bài đó như thế này chứ:

var N,S,i:integer;
begin
write('so phan tu cua day:');
readln(N);
S:=0;
for i:=1 to N do
while i<=1000 do
S:=sqrt(S+sqrt(i));
write('tong la:'S:8:4);
readln
end.

Nhưng mà sao khi chạy chương trình nó lại báo lỗi 26 ở

S:=sqrt(S+(i));

nhĩ?

s : real ; mới đúng chứ . vì hàm sqrt trả ra kết quả là 1 số thực .

[trangnt]

Đây là chương trình bạn ah. Vì ta cần cộng các số trong căn từ 1 đến N mà số căn của N là ít nhất, sau đó đến N-1,...,số1 là nhiều căn nhất Bạn phải dùng vòng lặp For- downto để tính theo lệnh lặp và công thức lặp S:=sqrt(i+S) như sau:

program vd;
Var i,N:integer;S:Real;
Begin
write('Nhap vao so N:'); Readln(N);
S:=0;
For i:=N downto 1 do
S:=sqrt(i+S);
write('S=',S:7:4);
Readln
End.

nhớ nhấn cám ơn nhé!

uh mình cũng nghĩ là dùng for ... downto sẽ đúng hơn , vì đề nói là N <= 1000 , như vậy ta nhập N vào rồi cho nó chạy về 1 và đưa ra kết quả thì hay hơn . Mà sao cũng đc , quan trọng là chủ topic hiểu là đc rồi .

[ducquan1008]

nhưng mà bạn ơi, căn(1+căn(2+căn... chứ ko phải là căn(1+2+3+...) mà dùng downto
bài khi nảy của tớ bỏ cái

 while..do..

là ok