TYPE CHUNG_CHI=RECORD
HO_LOT:STRING[40];
TEN:STRING[10];
PHAI:STRING[3];
NGAY_SINH:STRING[10];
LT,TH,TB:REAL;
KQ:STRING[10];
XEPLOAI:STRING[10];
END;
VAR SV:CHUNG_CHI;THI:ARRAY[1..100] OF CHUNG_CHI;
I,K,N:INTEGER;TAM:STRING;
PROCEDURE NHAP_DS;
VAR TL:CHAR;K:BYTE;
BEGIN
N:=0;
WRITELN('NHAP DANH SACH');
REPEAT
N:=N+1;
WITH THI[N] DO
BEGIN
WRITE('HO LOT : ');READLN(HO_LOT);
WRITE('TEN : ');READLN(TEN);
WRITE('NGAY SINH : ');READLN(NGAY_SINH);
WRITE('GIOI TINH : ');READLN(PHAI);
WRITE('DIEM LT : ');READLN(LT);
WRITE('DIEM TH : ');READLN(TH);
TB:=(LT+TH)/3;
END;
WRITE('TIEP TUC HAY KHONG [C/K]:');READLN(TL);
UNTIL TL IN ['k','K'];
END;
PROCEDURE IN_DS;
BEGIN
FOR I:=1 TO N DO
WITH THI DO
BEGIN
WRITELN(HO_LOT,' ',TEN,' ',NGAY_SINH,' ',LT:4:1,' ',TH:4:1,' ',TB:4:1);
END;
END;
{CHUONG TRINH CHINH}
BEGIN
NHAP_DS;
IN_DS;
READLN;
END.
Bây giờ em muốn thêm vào 1 procedure nữa để tính kết quả sao cho >=5 thì đậu ngược lại thì hỏng. Tính sếp loại: Loại giỏi Đtb>=8,khá>=7,Tb>=5. Mong các anh chị giúp em nhé. em cảm ơn trước mấy anh chị. Help:emlaugh::emlaugh: