1/ Tính chu vi, diện tích hình vuông có cạnh là a: 
PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 
begin 
Writeln('Chu vi P = ',4*a:6:2); 
Writeln('Dien tich S = ',a*a:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0'); 
Readln 
END. 

2/ Tính chu vi, diện tích hình chữ nhật có hai kích thước là a và b: 
PROGRAM HINH CHU NHAT; 
{Nhap hai kich thuoc a, b cua hinh chu nhat. Tinh chu vi, dien tich cua hinh chu nhat ay} 
VAR a,b:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Write('Nhap canh b: ');readln(b); 
Writeln; 
If (a>0) and (b>0)then 
begin 
Writeln('Chu vi P = ',2*(a+b):6:2); 
Writeln('Dien tich S = ',a*b:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0 hoac b<=0'); 
Readln 
END. 
 

3/ Tính chu vi, diện tích hình tròn có bán kính là R: 
a) Cách 1: 
PROGRAM HINH TRON; 
{Nhap ban kinh R cua duong tron. Tinh chu vi, dien tich cua duong tron ay} 
VAR R:real; 
BEGIN 
Write('Nhap ban kinh R: ');readln(R); 
Writeln; 
If R>0 then 
begin 
Writeln('Chu vi P = ',2*pi*R:6:2); 
Writeln('Dien tich S = ',pi*R*R:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi R <= 0'); 
Readln 
END. 
b) Cách 2: 
PROGRAM HINH TRON; 
{Nhap ban kinh R cua duong tron. Tinh chu vi, dien tich cua duong tron ay} 
VAR R:real; 
BEGIN 
Repeat 
Write('Nhap ban kinh R: ');readln(R); 
Until R>0; 
Writeln; 
Writeln('Chu vi P = ',2*pi*R:6:2); 
Writeln('Dien tich S = ',pi*R*R:6:2); 
Readln 
END. 

Viết chương trình tính diện tích hình chữ nhật trong Pascal
PROGRAM HINH CHU NHAT; 
{Nhap hai kich thuoc a, b cua hinh chu nhat.  dien tich cua hinh chu nhat ay} 
VAR a,b:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 

Writeln; 
If (a>0) and (b>0)then 
begin 

Writeln('Dien tich S = ',a*b:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0 hoac b<=0'); 
Readln 
END. 

Dung chuong trinh pascal
Viet chuong trinh nhap vao 2 so a va b . Tinh tong , tich , hieu ,thuong cua a va b.
giup minh voi chieu nay minh nop roi.cam mon truoc nha!

dung pascal de tinh dien tich va chu vi cua hinh vuong ,chu nhat, tam giac.yeu cau su dung hang
giup minh voi

Viết chương trình điện tích số cùahinh vuông cạnh a trong pascal

Viết chương trình tính diện tích hình vuông có độ dài a được nhập từ bàn phím. Kiểm tra xem a là số chẵn hay số lẻ

Program hinh_vuong;
uses crt;
var s,a:real;
begin
clrscr;
write('nhap canh a=');readln(a);
s:=a*a;
writeln('dien tich la:',s:10:2);
readln
end.
_____________________________________
Program hinh_chu_nhat;
uses crt;
var s,a,b:real;
begin
clrscr;
write('nhap canh a=');readln(a);
write('nhap canh b=');readln(b);
s:=a*b;
writeln('dien tich la:',s:10:2);
readln
end.
____________________________________
Program hinh_tam_giac;
uses crt;
var s,p,a,b,c:real;
begin
clrscr;
write('nhap canh a=');readln(a);
write('nhap canh b=');readln(b);
write('nhap canh c=');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich la:',s:10:2);
readln
end.
 

Program Hinh_vuong;

uses Crt;

var a, b, s, p:real;

Begin

Write('canh hinh vuong:');readln(a);

S:=a*4;

p:=a*a;

Writeln('dien tich hinh vuong:',s);

Writeln('chu vi hinh vuong:',p:10:2);

readln

End.