viết phương trình pascal tính chu vi và diện tích hình tròn bán kính R nhập vào từ bàn phím
2 câu trả lời
program ct;
uses crt;
var R,chuvi,dientich:real;
const pi:=3.14;
begin
clrscr;
write('nhap ban kinh:=');readln(R);
chuvi:=2*pi*R;
dientich:=pi*R*R;
writeln('chu vi hinh trong la:',chuvi:4:2);
writeln('dien tich hinh tron la:',dientich:4:2);
readln
end.
Program FNG;
Uses crt;
Const pi=3.14;
Var r,p,s: extended;
Begin
Clrscr;
Write('Nhap r: '); Readln(r);
p:=2*r*pi;
s:=sqr(r)*pi;
Writeln('Chu vi: ',p:0:2);
Write('Dien tich: ',s:0:2);
Readln
End.
Câu hỏi trong lớp
Xem thêm