Hãy viết chương trình nhập số a (a>0) rồi tính và đưa ra diện tích phần được gạch chéo trong hình 3 (kết quả làm tròn đến bốn chữ số thập phân).
Hình 3
Qua hình vẽ, ta nhận thấy rằng diện tích phần gạch chéo bằng 1/2 diện tích hình tròn tâm O(0:0), Bán kính R a.
Ta lại biết rằng, diện tích hình tròn được tính theo công thức: S = R*R*/Pi; Pi≈3,1416.
Khi đó, chương trình tính diện tích phần gạch là như sau:
Program dien_tich_phan_gach;
Uses crt;
Var a: real; Conts pi = 3,1416,
Begin
Clrscr,
Write('Nhap ban kinh duong tron a (a>0): ')
Readln(a) ,
write('Dien tich phan gach cheo la: ',a*a*pi/2:20:4);
Readln
End.
Khi chạy chương trình:
Kết quả chương trình như hình dưới đây:
-- Mod Tin Học 11
Copyright © 2021 HOCTAP247