Viết chương trình Pascal tính diện tích phần bị tô đen. Biết hình bán nguyệt có đường kính là a, hình tam giác có cạnh đáy a và chiều cao h (a, h là các số nguyên được nhập vào từ bàn phím) Stg=𝒂𝒉𝟐(a là độdài một cạnh, h là chiều cao tương ứng của cạnh đó) Sbn=𝝅𝑹𝟐𝟐(R: bán kính của hình bán nguyệt)
2 câu trả lời
Program timdientich;
Uses crt;
Var a,h,dientich1,dientich2,r:real;
Begin
Clrscr;
Write('a='); Readln(a);
Write('h='); Readln(h);
dientich1:= (a*h)/2;
r:=a/2;
dientich2:=(3.14*r*r)/2;
Writeln('S la:', dientich2-dientich1:6:2);
Readln
End.
Program baitap;
Uses crt;
Var a,h,Sbn,Stg:real;
Begin
Clrscr;
Write('Nhap a='); Readln(a);
Write('Nhap h='); Readln(h);
Stg:=(a/h)*2;
Sbn:=(3.14*(a/2)*(a/2))/2;
Writeln('Dien tich:',Sbn-Stg:4:1);
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
