* Hình chữ nhật:

Input: Chiều dài, chiều rộng;

Output: Chu vi, diện tích hình chữ nhật.

- Thuận toán:

B1: Nhập chiều dài a, chiều rộng b;

B2: cv←(dai+rong)*2; S←dai*rong;

B3: Thông báo kết quả và kết thúc thuật toán.

-

Program hinh_chu_nhat;
Uses Crt;
Var a,b,S,cv: real;
Begin
    Clrscr;
    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: ',S:2:2);
    Writeln('Chu vi hinh chu nhat: ',cv:2:2);
    Readln
End.

* Hình vuông:

Input: Độ dài cạnh;

Output: Chu vi, diện tích hình vuông.

- Thuật toán:

B1: Nhập cạnh a;

B2: cv←a*4; S←a*a;

B3: Thông báo kết quả và kết thúc thuật toán.

-

program hinh_vuong;
uses crt;
var a,cv,S:real;
Begin
    clrscr;
    write('a = ');readln(a);
    cv:=a*4;
    S:=a*a;
    writeln('Chu vi hinh vuong: ',cv:2:2);
    write('Dien tich hinh vuong: ',S:2:2);
    readln
End.

* Hình tam giác:

Input: Độ dài 3 cạnh của tam giác;

Output: Chu vi, diện tich tam giác.

-Thuật toán:

B1: Nhập độ dài 3 cạnh của tam giác a, b, c;

B2: Nếu (a+b)<=c và (b+c)<=a và (a+c)<=b thì chuyển B4;

B3: p←(a+b+c)/2; S←sqrt(p*(p- a)*(p-b)*(p- c));

B4: Thông báo kết quả và kết thúc thuật toán.

-

Program tam_giac;
Uses crt;
Var a,b,c,s,p : real;
Begin
    Clrscr;
    Write('a = ');readln(a);
    Write ('b = ');readln(b);
    Write('c = ');readln(c);
    If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
    begin
        p:=(a+b+c)/2;
        s:=sqrt(p*(p- a)*(p-b)*(p- c));
        Writeln('Chu vi tam giac: ',2*p:2:2);
        Writeln('Dien tich tam giac: ',s:2:2);
    end
    else
    write(a:2:1,',',b:2:1,',',c:2:1,' khong phai la ba canh cua tam giac');
    Readln;
End.

* Hình tròn:

Input: Bán hinh;

Output: Chu vi, diện tích hình tròn.

- Thuật toán:

B1: Nhập bán kính R;

B2: cv←2*pi*r; S←pi*r*r;

B3: Thông báo kết quả và kết thúc thuật toán.

-

program hinh_tron;
uses crt;
var r,dt,cv:real;
const pi=3.14;
Begin
    clrscr;
    write ('Nhap ban kinh R= ');readln(r);
    dt:=pi*r*r;
    cv:=2*pi*r;
    writeln('Dien tich hinh tron la: ',dt:2:2);
    writeln('Chu vi hinh tron la: ',cv:2:2);
    readln;
End.

* Hình thang:

Input: Độ dài hai đáy và hai cạnh bên;

Output: Chu vi, diện tích hình thang.

- Thuật toán:

B1: Nhập độ dài 2 cạnh đáy a,b, 2 cạnh bên c,d và chiều cao h;

B2: cv←a+b+c+d; S←h*((a+b)/2);

B3: Thông báo kết quả và kết thúc thuật toán.

-

program hinh_thang;
uses crt;
var a,b,c,d,h,cv,S:real;
Begin
    clrscr;
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    write('d = ');readln(d);
    write('h = ');readln(h);
    cv:=a+b+c+d;
    S:=h*((a+b)/2);
    writeln('Chu vi hinh thang = ',cv:2:2);
    write('Dien tich hinh thang = ',s:2:2);
    readln
End.

Hình chữ nhật:

#Chu Vi
print("\nChu Vi Hình Chữ Nhật: " + str((length + width) * 2))
#Diện Tích
print("Diện Tích Hình Chữ Nhật: " + str(length * width))

hình vuông:

#Chu Vi 
print("Chu Vi Hình Vuông: " + str(a * 4))
#Diện Tích
print("Diện Tích Hình Vuông: " + str(a**2))

Tam giác 

gach="--------------------------------------------------"
print("CHƯƠNG TRÌNH XÁC ĐỊNH TAM GIÁC VÀ TÍNH CHU VI, DIỆN TÍCH")

print (gach)
a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))

if (a+b>c) & (b+c>a) & (a+c>b) & (a>0) & (b>0) & (c>0):
    if (a==b)&(b==c):
        print ("\nĐây là tam giác đều")
    elif (a==b)& (a!=c) | (a==c)&(a!=b) | (b==c) & (b!=a):
            print ("\nĐây là tam giác cân")
    elif (a*a==b*b+c*c)|(b*b==a*a+c*c)|(c*c==a*a+b*b):
            print("\nĐây là tam giác vuông")
    else:
        print("\nĐây là tam giác thường")
    import math
    cv=a+b+c
    p=cv/2
    dt=math.sqrt(p*(p-a)*(p-b)*(p-c))
    print ("\nChu vi tam giác: ",round(cv,2))
    print ("Diện tích tam giác: ",round(dt,2))
else:
        print ("\nKhông Tạo Thành Tam Giác")
print (gach)
print ("Thank You ")

hình tròn:

import math
while True:
    try:
        s = float(input("Nhập Bán Kính Hình Tròn: "))
        chuvi = 2*math.pi*s
        dientichduongtron = s**2
        dientich = s**2*math.pi
        duongkinh = 2*s
        print("")
        print("Đường Kính =", duongkinh)
        print("Chu Vi =", chuvi)
        print("Diện Tích =", dientich)
        print("Diện Tích Đường Tròn =", dientichduongtron)
        print("")  
    except:
        print("Lỗi Cú Pháp ")
        print('Vui Lòng Kiểm Tra Lại')
        print("Xin Cảm Ơn !!!\n")
        break