cách lập trình tính diện tích hình tròn trong pascal
2 câu trả lời
uses crt;
var r,s:real;
begin
clrscr;
write('nhap chieu rong hinh tronL:');readln(r);
s:=r*r*3.14;
writeln(s);
readln;
end.
Thuật toán tính diện tích hình tròn:
Bước 1: Nhập bán kính r
Bước 2: s ← r*r*3.14
Bước 3: Xuất kq
-------------
Chương trình:
Program BTT;
Uses crt;
Var r,s: real;
Begin
Clrscr;
Write('Nhap ban kinh R: '); Readln(r);
s:=sqr(r)*3.14;
Write('Dien tich hinh tron la: ',s:0:2);
Readln
End.