[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.
Nó là số pi. Còn code thì mình chưa biết =)))
dùng vòng lặp while do đi bạn
while abs(1 / (2n - 1)) >= 10^-5 (Cái này mình k biết ghi sao) do
begin
if k = 1 then k := -1 else k := 1;
inc(i,2);
tong := tong + k/i;
n := 4*tong;
end;uses crt;
var i,k: longint;
n:real;
begin
clrscr;
n := 1;
k := 3;
repeat
n := n-(1/k);
k := k+2;
n := n+(1/k);
k := k+2;
i := i+2;
until i=10000000;
n := n*4;
write(n:4:8);
readln
end.cái này là gần đúng pi nhưng yêu cầu là sai số nữa mà. Làm theo yêu cầu cho chắc
Sai số thử ok rồi. Không phải locái này là gần đúng pi nhưng yêu cầu là sai số nữa mà. Làm theo yêu cầu cho chắc
Xét điều kiện thỏa sai số là được
10^-1 thì không ra được đâu. T chạy mãi có ra đâusai số là 10 mũ -1 đó mà..........
Theo cách đánh này, áp dụng công thức cộng trừ nhân chia ta có 10-5=5 => 1 phát chạy của t xong luôn, đõ phải lặp lại nhiều lần
Đang có việc chút nên chưa test được, khi xong sẽ test thử. Tại thấy không có lẽ Code trên kia chạy cũng ổn mà
okok. cứ từ từ dần dần thôi vì chủ bài cũng off rồi nên không hỏi được
đúng là nếu xét điều kiện thì nó chạy có mà tới sáng
