Câu 1 : Viết chương trình tính chu vi, diện tích hình vuông có cạnh được nhập lại từ bàn phím. Hướng dẫn : - Nhập cạnh vào biến canh. - Chu vi hình vuông bằng 4*canh: Diện tích hình vuông bằng canh*canh. Câu 2 : Viết chương trình tính chu vi và diện tích hình tròn có bán kính r được nhập từ bàn phím. Hướng dẫn : - Khai báo hằng số Pi=3.14 - Nhập bán kính vào biến r - Chu vi hình tròn bằng 2*Pi*r. - Diện tích hình tròn bằng Pi*r*r.

Câu 1:

Program dien_tich;
Uses crt;
Var a, dt, cv : integer;
Begin
Clrscr;
Write('Nhap do dai canh hinh vuong :');readln(a);
cv := a*4;
dt := a*a;
Writeln('Chu vi hinh vuong  la :', cv);
Writeln('Dien tich hinh vuong  la :', dt);
Readln
End.

Câu 2:

Program Hinh_tron;
Uses crt;
Var r, cv, dt : real;

Const pi = 3.14;
Begin
Clrscr;
Write ('Nhap ban kinh hinh tron: ');
Readln (r);
cv := 2*pi*r;
dt := r*r*pi;
Writeln('Chu vi hinh tron la : ', cv);
Writeln('Dien tich hinh tron la :', dt);
Readln
End.