xây dựng thuật toán và viết chương trình tính diện tích ( S) hình cầu biết rằng bán kính (R )của hình cầu được nhập từ bàn phím cho biết, :S=4*pi*sqrt(R)
xây dựng thuật toán và viết chương trình tính diện tích ( S) hình cầu biết rằng bán kính (R )của hình cầu được nhập từ bàn phím cho biết, :S=4*pi*sqrt(R)
thuật toán:
b1: nhập bán kính (r)
b2: gán s:=r*r*Pi; (Pi có sẵn trong pascal)
b3: in kết quả ra màn hình
chương trình:
uses crt;
var r,s: real;
begin
clrscr;
write (‘nhap r: ‘); readln (r);
s:=r*r*Pi;
writeln (‘dien tich hinh tron la: ‘,s);
readln;
end.