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
Bài viết đã được chỉnh sửa nội dung bởi phuongpro: 08-10-2009 - 17:03
đầu tiên nhập vào n sau đó read(n); Chạy vòng for rồi khai căn thôiCá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 hechech11: 08-10-2009 - 20:55
Sao lại là S:=sqrt(2+vòng for 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)
gán vòng for đến n cho 1 biến S nào đó thôiSao 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?
Anh càng nói em càng không hiểu.S ở đây là tự đặt hay S đầu bài?gán vòng for đến n cho 1 biến S nào đó thôi
Bài viết đã được chỉnh sửa nội dung bởi hechech11: 09-10-2009 - 22:14
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ế
Bài viết đã được chỉnh sửa nội dung bởi Merlyn: 09-10-2009 - 22:09
sua lại rồi chaChuyê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.
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.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ế
em ơiAnh ơ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.
Nhưng chương trình có vẻ sai rồi.Sao lại là S:=S+sqrt(i) cho đến khi i=nem ơi
vòng for giống repeat until thôi mà
{ 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.
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
Bài viết đã được chỉnh sửa nội dung bởi math@: 22-11-2009 - 20:40
sai chỗ nào vậy bạn. Bài này mình chạy vô máy đúng mà@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ạn làm gì vậy. Up mấy cái này vô đây làm chiUup cho bạn
-----------------
Hoa khôi làng Quyền anh
http://www.chuyenhot...fjklw23?2CK7539kktloho
http://www.chuyenhot...asdlw23?2CK7539khb23sdfgdkdhl
em ơi
vòng for giống repeat until thôi mà
Ở đâ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 đâuMộ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 ???
0 thành viên, 2 khách, 0 thành viên ẩn danh