viet chuong trinh tính diện tích của hình tròn( 3 bước)

2 câu trả lời

thuật toán

b1: nhập bán kính(r)

b2: gán s:=r*r*Pi;

b3: xuất kết quả và kết thúc thuật toán

uses crt;

var s,r: real;

begin

clrscr;

write ('nhap ban kinh: ');  readln (r);

s:=r*r*Pi;

writeln ('Dien tich hinh tron la: ',s);

readln;

end.

Program tron

Uses crt;

Var s,r:real;

Begin

Write('nhap n:');readln(r);

S:=r*r*3.14

Write('dientichhinhtronla:',s:4:2);

Readln

End.

Câu hỏi trong lớp Xem thêm