Chủ đề này có 19 trả lời

[phuongpro]

Các bạn giải giúp mình bài này nhé.Thanks nhiều:
Dùng câu lệnh lặp" for to do" để tính tổng:
$S=\sqrt{2+\sqrt{2+\sqrt{2+...} } } $(n dấu căn)

Bài viết đã được chỉnh sửa nội dung bởi phuongpro: 08-10-2009 - 17:03

[Merlyn]

Lưu kết quả vào biến S, mỗi khi biến đếm được tăng thì thực hiện phép khai căn (2+S).

[hoangnamfc]

Các bạn giải giúp mình bài này nhé.Thanks nhiều:
Dùng câu lệnh lặp" for to do" để tính tổng:
$S=\sqrt{2+\sqrt{2+\sqrt{2+...} } } $(n dấu căn)

đầu tiên nhập vào n sau đó read(n); Chạy vòng for rồi khai căn thôi
gán lệnh tong:=2+tong;
chú ý: trước đó, tong gán bằng sqrt(2+vòng for n)

Bài viết đã được chỉnh sửa nội dung bởi hechech11: 08-10-2009 - 20:55

[phuongpro]

đầu tiên nhập vào n sau đó read(n); Chạy vòng for rồi khai căn thôi
gán lệnh tong:=2+tong;
chú ý: trước đó, tong gán bằng sqrt(2+vòng for n)

Sao lại là S:=sqrt(2+vòng for n)
Khó hiểu quá.Anh có thể viết rõ câu lệnh ra được không?

[hoangnamfc]

Sao lại là S:=sqrt(2+vòng for n)
Khó hiểu quá.Anh có thể viết rõ câu lệnh ra được không?

gán vòng for đến n cho 1 biến S nào đó thôi

[phuongpro]

gán vòng for đến n cho 1 biến S nào đó thôi

Anh càng nói em càng không hiểu.S ở đây là tự đặt hay S đầu bài?
Anh thông cảm,em mới học nên tốt nhất anh có thể viết rõ câu lệnh for to do và lệnh gán sau đấy ra được chứ.Dù sao cúng cám ơn anh!

[hoangnamfc]

program b1;
var tự khai nha;
begin
s:=sqrt(2);
Write('Nhap n:');
readln(n);
i:=2;
repeat
s:=s+sqrt(i);
until i=n;
write(s);
readln;
end;
chỗ nào sai tự sửa nha
nhưng sườn là thế

Bài viết đã được chỉnh sửa nội dung bởi hechech11: 09-10-2009 - 22:14

[Merlyn]

program b1;
var tự khai nha;
begin
s:=sqrt(2);
Write('Nhap n:');
readln(n);
for i:= 1 to n do
s:=s+sqrt(2+i);
write(s);
readln;
end;
chỗ nào sai tự sửa nha
nhưng sườn là thế

Chuyên viên xem lại nhé, chương trình này sẽ cho ra kết quả là $\sum\limits_{i=0}^{n}\sqrt{2+i}$ chứ không phải là tổng ban đầu bạn ấy nhờ tính giúp đâu.

Bài viết đã được chỉnh sửa nội dung bởi Merlyn: 09-10-2009 - 22:09

[hoangnamfc]

Chuyên viên xem lại nhé, chương trình này sẽ cho ra kết quả là $\sum\limits_{i=0}^{n}\sqrt{2+i}$ chứ không phải là tổng ban đầu bạn ấy nhờ tính giúp đâu.

sua lại rồi cha
sr

[phuongpro]

program b1;
var tự khai nha;
begin
s:=sqrt(2);
Write('Nhap n:');
readln(n);
i:=2;
repeat
s:=s+sqrt(i);
until i=n;
write(s);
readln;
end;
chỗ nào sai tự sửa nha
nhưng sườn là thế

Anh ơi, phải dùng câu lệnh for to do mà,mà hình như chương trình anh viết ở trên cũng sai rôi.Em chạy thử nhưng không ra kết quả cần tính.

[hoangnamfc]

Anh ơi, phải dùng câu lệnh for to do mà,mà hình như chương trình anh viết ở trên cũng sai rôi.Em chạy thử nhưng không ra kết quả cần tính.

em ơi
vòng for giống repeat until thôi mà

[phuongpro]

em ơi
vòng for giống repeat until thôi mà

Nhưng chương trình có vẻ sai rồi.Sao lại là S:=S+sqrt(i) cho đến khi i=n
Vậy lấy n=3 thì sao?

[Merlyn]

Tận 11 replies mà không xong ah, chán chả muốn spam nữa ~.`

{
MultiRadical.PAS
Merlyn - Ha Noi University of Technology
}
Var
   i,n : integer;
   S : real;
BEGIN
	 S := 0;
	 write('Nhap n : ');
	 readln(n);
	 for i := 1 to n do S := sqrt(2+S);
	 writeln('Ket qua : voi n = ',n,' thi S = ',S);
	 readln;
END.

[hoangnamfc]

Tận 11 replies mà không xong ah, chán chả muốn spam nữa ~.`

{
MultiRadical.PAS
Merlyn - Ha Noi University of Technology
}
Var
   i,n : integer;
   S : real;
BEGIN
	 S := 0;
	 write('Nhap n : ');
	 readln(n);
	 for i := 1 to n do S := sqrt(2+S);
	 writeln('Ket qua : voi n = ',n,' thi S = ',S);
	 readln;
END.

Bài viết đã được chỉnh sửa nội dung bởi hechech11: 11-10-2009 - 17:45

[math@]

@hoangnamfc: chưng trình của bác hình như sai oy, vì i là biến đếm mà?
S=0
for i=1 to n do

S:= sqr (2+S);

.......
đại loại là dzạy!^^
=> em xin lõi, emddocj chưa hít!^^

Bài viết đã được chỉnh sửa nội dung bởi math@: 22-11-2009 - 20:40

[hoangnamfc]

@hoangnamfc: chưng trình của bác hình như sai oy, vì i là biến đếm mà?
S=0
for i=1 to n do

S:= sqr (2+S);

.......
đại loại là dzạy!^^
=> em xin lõi, emddocj chưa hít!^^

sai chỗ nào vậy bạn. Bài này mình chạy vô máy đúng mà
s:=0
for i:=1 to n do
S:= sqrt(2+S);
thuật toán cơ bản là thế đó
bạn chú ý ở 1 số chổ viết sai dấu gán và SQRT chứ ko phải SQR

[hoangnamfc]

Uup cho bạn
-----------------
Hoa khôi làng Quyền anh
http://www.chuyenhot...fjklw23?2CK7539kktloho
http://www.chuyenhot...asdlw23?2CK7539khb23sdfgdkdhl

Bạn làm gì vậy. Up mấy cái này vô đây làm chi

[tranvietcuong]

bài đó xem qua chắc đùng rồi.

[tranvietcuong]

em ơi
vòng for giống repeat until thôi mà

Một cái là vòng lặp xác định, 1 cái không xác định mà bảo giống nhau là sao ???

[hoangnamfc]

Một cái là vòng lặp xác định, 1 cái không xác định mà bảo giống nhau là sao ???

Ở đây đang nói đến khái niệm vòng lặp nghĩa là 2 cái này đều là vòng lặp thôi chứ đã nói chuyên sâu vào đâu