Question

Hãy viết chương trình nhập vào số a (a>0) rồi tính kết quả phần được gạch chéo trong hình 3 (Kết quả làm tròn đến 4 chữ số thập phân).

Answer 1

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, nếu a = 2 thì diện tích phần gạch là 6.2832;

nếu a = 3 thì diện tích phần gạch là 14.1372;

nếu a = 5 thì diện tích phần gạch là 3 1.8086

Kết quả chương trình như hình dưới đây:

Answer 2

Nhận thấy 2 phần gạch chéo trong ô vuông tương đương với 2 phần bỏ trống. Như vậy nếu diện tích phần bị gạch chéo đúng bằng ½ diện tích hình tròn bán kính là a.

Program ct1;

Uses crt;

Var a:real;

Begin Writeln(‘Nhap vao so a’);

Readln(a);

Writeln(‘dien tich phan gach cheo la ’,(a*a*3.14)/2:0:4);

Readkey();

End.