Một hình A được ghép từ hình chữ nhật với chiều rộng :2, chiều dài :b và 1 hình bán nguyệt bán kính là a
Hãy viết chương trình diện tích của hình A. (với a, b được nhập từ bàn phim)
HUHU GIÚP MÌNH VỚI MAI THI RÙI
Một hình A được ghép từ hình chữ nhật với chiều rộng :2, chiều dài :b và 1 hình bán nguyệt bán kính là a
Hãy viết chương trình diện tích của hình A. (với a, b được nhập từ bàn phim)
HUHU GIÚP MÌNH VỚI MAI THI RÙI
uses crt;
var a, b, S, S1, S2: real;
begin
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
S1:=2*a*b;
S2:=(pi*a*a)/2;
S:=S1+S2;
writeln(‘Dien tich hinh chu nhat: ‘, S1);
writeln(‘Dien tich hinh ban nguyet: ‘, S2);
writeln(‘Dien tich hinh A: ‘, S);
readln
end.
uses crt;
var a,b,r: integer;
s,s1,s2: real;
begin
clrscr;
write (‘nhap chieu dai HCN: ‘); readln (a);
write (‘nhap chieu rong HCN: ‘); readln (b);
s1:=a*b;
write (‘nhap ban kinh: ‘); readln (r);
s2:=(r*r*Pi)/2; {ở đây Pi trong Pascal đã có sẵn}
s:=s1+s2;
writeln (‘dien tich hinh A la: ‘,s:1:2);
readln;
end.
xin CTLHN !!!!
đúng 1000000000%
sẵn sàng giải thích mọi thắc mắc của bạn !!!!!!!!