2. Viết ct : trên pascal CT1: Tính chu vi và diện tích hình chữ nhật CT1: Tính chu vi và diện tích hình tròn

$\text{CT1:Tính chu vi và diện tích HCN}$

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);      

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

readln; end.

$\text{CT2: Tính chu vi và diện tích Hình tròn}$

Program HINH_TRON;

Uses crt;

Var   R: integer ;

        S,C : real;

Const   Pi=3,14;

Begin

   clrser;

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; end.