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)
2 câu trả lời
* Mô tả thuật toán :
- Bước 1 : nhập bán kính r
- Bước 2 : s ← 4 * r * r * 3.14
- Bước 3 : xuất giá trị s
- Bước 4 : kết thúc
* Viết chương trình :
uses crt;
var r, s : real;
begin
clrscr;
write(‘nhap ban kinh r :’);readln(r);
s := 4 * 3.14 * r * r;
writeln(‘dien tich hinh cau :’, s:3:2);
readln
end.
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.
