Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình

Sách Giáo Khoa

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).

Nguyễn Trần Thành Đạt
2 tháng 4 2020 lúc 20:50

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:

Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình

Bình luận (0)
Trịnh Long
2 tháng 4 2020 lúc 20:51

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.

Bình luận (0)

Các câu hỏi tương tự
Trần Duy Thịnh
Xem chi tiết
Trần Tuyết Nhung
Xem chi tiết
Dương Mịch Lý
Xem chi tiết
Thiên Dii
Xem chi tiết
heo đz
Xem chi tiết
Hoa Xương Rồng
Xem chi tiết
Trần Thị Kiều linh
Xem chi tiết
Anh Trang
Xem chi tiết
Hải Yến
Xem chi tiết
Lâm Mê Game
Xem chi tiết