Gửi lên: 26/02/2008 10:17am | IP Logged

==> Đọc sơ qua đoạn code cua bạn, tôi nhận thấy có vài thắc mắc sau :

1. pro SWAP(Var X,Y:THU) ... Liệu 2 biến X,Y có thay đổi giá trị cho nhau ??? Đối với pro hay func th́ để thay đối giá trị của biến đưa vào, người ta hay dùng dấu "&"trước biến đó (trong C hay C++ ...lâu quá rồi nên ḿnh quên Pascal ...) ... Nếu SWAP sai --> SAPXEP sai
2. Nếu SWAP đă đúng th́ có lẽ bạn sẽ sai ngay ḍng lệnh này ...
For i:=1 to SOKHACH do
    Begin
     { goi thu tuc nhap du lieu }
     NhapDL(i);
     {goi thu tuc xu ly}
     DATA.GTIEN:=XULY(i);
    End;
==> Biến i ở đây là ǵ? nó chỉ có thứ tự từ 1->SoKhach, chứ đâu phải là sự lựa chọn việc gửi lá thư đi nước nào đâu (Anh-Mỹ-Pháp). V́ vậy chắc chắn là dữ liệu xuất ra bị sai rồi ...

Gửi lên: 28/02/2008 7:05am | IP Logged

Chào em.

Bài này "rối loạn" khi sắp xếp là do tổ chức dữ liệu ..."rối loạn", phức tạp và không hiệu quả. Các bạn cần chú ư những điểm sau:

1. Trong một biểu thức (Expression), nếu có một toán hạng (Operand) mang kiểu số thực th́ tất cả đều phải chuyển qua kiểu số thực, ở dây bạn dùng Integer và Real lẫn lộn sẽ cho kết quả không chính xác.
2. Trong Pascal có toán tử "&" dùng với con trỏ (Pointer), phần này các bạn không học v́ không cần thiết (học con trỏ trên C là đủ).
3. Hàm (Function) để xử lư một thuộc tính (Property) của đối tượng (Object) như: xếp loại, tính ĐTB, tính thuế,... ở đây băn đă dùng hàm để xử lư cả một phần tử (Element).
4. Do đang công tác ở nước ngoài, không có th́ giờ nhiều nên tôi Post bài sau, các bạn theo đó mà tham khảo và sửa lại.

Program Tinh_diem;
Uses CRT;
Const  Max = 50;
       HSP = 4 ; HSTHCB = 3 ; HSTCC = 4;
Type
       String30 = String[30];
       Sinhvien = Record
                      Masv  : String[5];
                      Hoten,LoaiHT : String[30];
                      Pascal,THCB,TCC,DTB : Real;
                   End;
       MangSV = Array[1..Max] Of Sinhvien;
Var
      SV   : MangSV;
      SoSV : Byte;
      Tiep : Char;
      {Thu tuc dinh vi Cursor}
       Procedure WriteXY(X,Y:Byte;Chuoi:String);
          Begin
              GotoXY(X,Y);
              Write(Chuoi);
          End;

      {Thu tuc in tieu de}
       Procedure Tieude;
          Begin
               Clrscr;
               TextColor(LightCyan);
               WriteXY(20,1,'  TRUONG DAI HOC MARKETING');
               WriteXY(20,2,'    KHOA TIN HOC QUAN LY');
               TextColor(White);
               WriteXY(20,3,'       &nbs p; ********');
               TextColor(LightGreen);
               WriteXY(20,4,'CHUONG TRINH TINH DIEM HOC KY');
               TextColor(White);
         End;

      {Ham tinh diem trung binh}
       Function Tinhdiem(D1,D2,D3,HS1,HS2,HS3:Real):Real;
         Var
             Tongdiem,Tongheso : Real;
         Begin
             Tongdiem := (D1*HS1)+(D2*HS2)+(D3*HS3);
             Tongheso := HS1 + HS2 + HS3;
             Tinhdiem := Tongdiem / Tongheso;
         End;

      {Ham xep loai hoc tap}
       Function Xeploai(Diem : Real):String30;
         Var
              Loai : String30;
         Begin
              If Diem>=9 Then Loai :='Gioi'
              Else If Diem>=7 Then Loai := 'Kha'
                   Else If Diem >=6 Then Loai :='TB kha'
                         Else If Diem>=5 Then Loai := 'Trung binh'
                              Else If Diem>=4 Then Loai := 'Yeu'
                                    Else Loai :='Kem';
               Xeploai := Loai;
        End;

      {Thu tuc hoan vi 2 Records}
       Procedure Hoanvi(Var A,B:Sinhvien);
         Var
               Temp : Sinhvien;
         Begin
               Temp := A;
               A := B;
               B := Temp;
         End;

      {Thu tuc Sap xep thu tu theo diem trung binh}
       Procedure BubbleSort(Var A:MangSV;N:Byte);
          Var
              i,j:Byte;
          Begin
              For i:=2 To N Do
                  For j:=N Downto i Do
                      If A[j-1].DTB>A.DTB Then Hoanvi(A[j-1],A[j]);
          End;