Mot so bai tap pascal

BÀI TẬP RECORD
 / Câu *1) Ðể biết một thí sinh đậu hay rớt trong kỳ thi tuyển sinh, cần biết các thông tin sau:
/Họ tên : họ và tên của thí sinh
/KV : thí sinh thuộc khu vực nào? ( 1, 2 hay 3 ).
/NH : thí sinh thuộc nhóm nào ? ( 1, 2, hay 3).
/TÐ : tổng diểm ba môn thi .
    a) Hãy nhập vào một danh sách 100 thí sinh gồm Họ tên, KV, NH, TÐ. Xét xem Kết qủa thí sinh này đậu hay rớt dựa vào bảng điểm chuẩn sau :
            /
    Ví dụ : Thí sinh ở Khu vực 1 , Nhóm 2, có Tổng điểm ? 17.5 thì đậu, ngược lại thì rớt.
    b) In danh sách đã sắp xếp theo trật tự giảm của TÐ lên màn hình, gồm các mục Họ tên, KV, NH, TÐ và Kết qủa đậu, rớt.
    c) Chỉ in danh sách những người đậu lên màn hình theo mẫu:
        /
 / Câu *2) Mỗi điểm M(x,y) trong mặt phẳng toạ độ Oxy được mô tả như sau :
    Type
        DIEM = Record
             x, y : real;
          End;
    Viết chương trình với các yêu cầu sau :
/Có một thủ tục nhập vào tọa độ của ba điểm A, B, C . Trong đó có một hàm kiểm tra xem có một cặp điểm nào trùng nhau không ?. Nếu có thì bắt nhập lại cho đến khi được ba điểm A, B, C phân biệt.
/Có một thủ tục (hay hàm) tính độ dài các cạnh AB, BC, AC theo công thức :
    Nếu A(xa,ya), B(xb,yb) thì
            /
/Có một thủ tục kiểm tra xem AB, BC, AC có phải là ba cạnh của một tam giác không? ( Hd : tổng hai cạnh phải lớn hơn cạnh còn lại ).
    Nếu không phải thì in ra chữ " Không phải Tamgiác" , ngược lại thì tính và in diện tích của tam giác ABC lên màn hình theo công thức Hêrông :
    /,
với P là nửa chu vi tam giác : P = (AB+BC+AC) / 2 .
 / Câu 3) Viết một chương trình pascal để thực hiện các yêu cầu sau :
/Nhập số nguyên N ( 0/Với mỗi học sinh hãy tính điểm trung bình như sau :
    DTB =(2*Toán+ Sinh+Văn)/4 nếu em thuộc chuyên ban A
        =(Toán+2*Sinh+Văn)/4 nếu em thuộc chuyên ban B
        =(Toán+Sinh+2*Văn)/4 nếu em thuộc chuyên ban C
/Chuyên ban nào có nhiều em có điểm trung bình ? 5 nhất ?
 / Câu 4)
/Nhập số nguyên N ( 0/Hãy tính tiền điện cho mỗi hóa đơn, biết rằng:
Mỗi kw trong định mức có đơn gía là 5đ,
100 kw đầu tiên trên định mức có đơn giá 8đ,
Từ kw thứ 101 trên định mức trở lên có đơn gía 10đ.
/Tính tổng số tiền thu được từ tất cả các hóa đơn.
Tìm trong các hóa đơn xem có hộ nào tên là Tuan không ? Nếu có thì in lên màn hình các hóa đơn có chủ hộ tên là Tuan gồm các thông tin về Socu, Somoi, Dmuc và Tien điện phải trả.
 / Câu 5)
/Nhập một danh sách N người gồm Họ tên, Chức vụ (GD, TP, PP, NV) và Mức lương tháng (ML) .
/Tính Phụ cấp lương (PC) cho từng người như sau :
    PC = 50% Mức lương tháng nếu chức vụ là GD
          = 40% "      "     "       "          TP
         = 30% "      "      "       "          PP
          = 20% "      "       "      "          NV
/Tính Thu nhập (TN) trong tháng cho từng người :
    TN = Mức lương + PC
/Ðổi họ tên của mọi người ra chữ thường hết, riêng chữ cái đầu từ thành chữ hoa, chẳng hạn: Nguyen Thi Loan. Yêu cầu phần này viết thành một thủ tục.
/In Họ tên, Chức vụ, Mức lương, Phụ cấp và Thu nhập của những người có thu nhập cao nhất lên màn hình.