Viết chương trình pascal tính chu vi, diện tích của hình tròn với pi=3,14 bán kính R nhập từ bàn phím

2 câu trả lời

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.

Uses crt;

var  r,cv,dt: real;

begin clrscr;

Writeln('Nhap ban kinh ='); readln(r);

cv := 2*pi*r;

dt :=pi*r*r;

Writeln('Dien tich hinh tron la',dt,'chu vi hinh tron la',cv);

readln

end.

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