program chuvi_dientich_hinhtron;

uses crt;

const pi = 3.14;

var R: integer;

cv, dt: real;

begin

clrscr;

writeln; { xuong dong }

readln ( R );

cv:= 2*R*pi;

writeln ( ' chu vi = ' , cv : 8:2 );

dt:=R*R*pi;

writeln ( 'dien tich = ', dt :8:2 );

readln;

end.

Chúc bạn học tốt

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,cv,dt;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;

return 0;

}

Chương trình chuvihinhtron_dientichhinhtron;

Sử dụng crt;

Trong đó R: số nguyên;

        S, C: thực;

Chòm sao Pi = 3,14;

Bắt đầu

   nhân viên văn thư;

Writeln ('R ='); Readln (R);

C: = Pi * 2 * R;

S: = Pi * R * R;

Writeln(‘Chu vi la C= ‘,C);

Writeln(‘Dien tich la S= ‘,S);

Readln

Chấm dứt.

#include <bits/stdc++.h>

using namespace std;

double r,cv,dt;

int main()

{

cin>>r;

cv=r*2*pi;

dt=r*r*pi;

cout<<fixed<<setprecsion(2)<<cv<<endl;

cout<<fixed<<setprecsion(2)<<dt;

return 0;

}

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(2*(a+b):4:2);

writeln(a*b:4:2);

readln;

end.

Program Chu_nhat; uses crt;

Var a, b, S, CV: real;

Begin    

 Write('Nhap chieu dai:'); readln(a);      

Write('Nhap chieu rong:'); readln(b);  

   S := a*b;      

CV := (a+b)*2;    

 Writeln('Dien tich hinh chu nhat la:',S:3:2);  

   Writeln('Chu vi hinh chu nhat la:',CV:3:2);    

 readln;

end.

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: