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
2 lượt xem
2 đáp án
1 giờ trước