Hàm đếm số vòng cuộn vải

[hoangtuaotrang_hp_vn]

Bạn sửa khai báo các biến kiểu Single về Double là được

Dạ, kết quả tuyệt vời, em xin chân thành cảm ơn ạ

 

[VetMini]

Có 2 cách giải:
A. Tính nhẩm:
Độ dày cuộn vải tính từ lõi: 40 cm - 5cm = 35 cm.
Mỗi vòng có độ dày 0,2 cm => số vòng của cuộn vải: 35/0.2 = 175 vòng.
Chiều dài cuộn vải: = pi*(40+5)*175 =24.740,04 cm

B. Tính theo công thức: L = (B² - C²) * pi/4 / T
B: Đường kính cuộn vải: 80cm
C: Đường kính lõi: 10 cm
T: độ dày của tấm vải: 0.2 cm
L=(80² - 10²) * pi/4 / 0,2= 24.740,04 cm

2 cách giải?
2 công thức trên là một (triển khai ra sẽ thấy). Cách tính thứ nhất trông có vẻ đơn giản hơn (tính nhẩm? tính được con toán nhân với Pi thì đầu óc cũng hơn người) bởi vì nó chia con toán ra làm 3 lần tính. Người đưa ra "cách tính thứ nhất" chỉ cố tình mà mắt thiên hạ.

Nếu tính bằng VBA thì tính theo tích phân bằng cách cộng tất cả chu vi các vòng quấn. Vòng quấn thứ i sẽ có bán kính bằng bán kính vòng i-1 cộng thêm độ dày.
SIGMA{ f(x)dx } = SIGMA(ri=r1:r2) { ri*2*Pi }
ri = r(i-1) + t
Con toán tích phân đương nhiên là dùng vòng lặp.