Viết chương trình diện tích và thể tích hình cầu có bán kính R ? Sử dụng công thức diện tích và thể tích hình cầu Shc = $*pi*Sqr(R) , Vhc =4/3*pi*Sqr(r)*r. Biến: a,b,m,n,p,bp: integer ; cbh,TB:rcal ; Vận dụng được các thủ tục : Read, write m.n giải hộ mk với
1 câu trả lời
program hinh_cau;
uses crt;
var r : integer;
a, v:real;
const pi = 3.24;
begin
clrscr;
write('nhap ban kinh hinh tron :');readln(r);
a := 4*pi*r*r;
v := (4/3)*pi*r*r;
writeln('dien tich hinh cau la :', a:8:2);
writeln('the tich hinh cau la :', v:8:2);
readln
end.
