Question

Sử dụng ngôn ngữ lập trình Pascal, viết chương trình tính chu vi và diện tích hình tròn với pi = 3.1415

Answer 1

Program Dien_tich_va_chu_vi;

uses crt;

Var r,S,P:real;

Begin

Clrscr;

Write('Nhap ban kinh:'); Readln(r);

S:=1;

S:=S*r*r*pi;

P:=2*r*pi;

Writeln('Dien tich hinh tron la:',S:4:3);

Writeln('Chu vi hinh tron la:',P:4:3);

Readln

End.

Answer 2

*Diện tích hình tròn:

Var r: integer;

S: real;

Const p=3,14;

Begin

Write('Nhap vao banh kinh:'); readln(r);

S:=r*r*3,14;

Write('Dien tich hinh tron la:',S);

Readln;

End.

Answer 3

* CHu vi

Program CV ;

Var D, C= interger ;

const pi= 3,14 ;

begin

Writeln ('moi ban nhap D=');

Readln ( D);

C= pi*D;

writeln ( 'Chu vi hinh tron la',C)

Readln
end.

* Diện tích*

program DT;

uses crt ;

var DT,r : real ;

const pi=3,14 ;

Begin

Writeln ('moi ban nhap r=') ;

readln (r) ;

DT=pi*r;

Writeln ('dt hinh tron la', DT);

readln

end.
*Chúc bạn hc tốt*

Answer 4

var r,s,cv:real;

begin

readln(r);s:=1;

s:=s*r*r*pi;

cv:=2*r*pi;

writeln(cv);

writeln(s);

readln

end;