CHƯƠNGTRÌNH QUẢN LÝ ĐIỂM THI TỐT NGHIỆP VỚI 2 MÔN THI

Bài 8: Viết chương trình quản lý điểm thi Tốt nghiệp của sinh viên với 2 môn thi:

Cơ sở và chuyên ngành. Nội dung công việc quản lý bao gồm:

• Nhập điểm cho từng sinh viên.

• In danh sách sinh viên ra màn hình.

• Thống kê số lượng sinh viên thi đậu.

• In ra màn hình hình danh sách những sinh viên bị

Lời giải: 

Uses Crt;
Const Max=200;
Type SinhVien=Record
         Hoten:string[30];
         DiemCS,DiemCN:Byte;
End;
Var SV:ARRAY[1..Max] Of SinhVien;
         n:Byte;
         c:Char;
Procedure NhapDanhSach; 
        Var ch:Char;
 Begin
    Clrscr;
    Writeln('NHAP DANH SACH SINH VIEN');
    n:=0;
       Repeat
  n:=n+1;
  With SV[n] Do
   Begin
       Write('Ho ten: '); Readln(Hoten);
         Write('Diem co so: '); Readln(DiemCS);
       Write('Diem chuyen nganh: '); Readln(DiemCN);
   End;
  Writeln('Nhan phim bat ky de nhap tiep/Nhan <ESC> de ket thuc!');
  ch:=Readkey;
        Until ch=#27;
 End;
Procedure InDanhSach;
 Var ch:Char;
 i:Byte;
Begin
 Clrscr;
 Writeln('DIEM THI TOT NGHIEP SINH VIEN');
 Writeln;
 WRITELN('STT Ho ten Diem Co so Diem Chuyen nganh');
 For i:=1 To n do
 With SV[i] Do
    Begin
        Writeln(i:3,'.',Hoten:20,DiemCS:5,DiemCN:20);
    End;
 ch:=ReadKey;
End;
Procedure DanhSachSVThilai;
 Var ch:Char;
 i:Byte;
 Begin
     Clrscr;
     Writeln('DANH SACH SINH VIEN THI LAI');
     Writeln;
     WRITELN('STT Ho ten Diem Co so Diem Chuyen nganh');
     For i:=1 To n do
      With SV[i] Do
  Begin
       If (DiemCS<5)OR(DiemCN<5) Then
       Writeln(i:3,'.',Hoten:20,DiemCS:5,DiemCN:20);
  End;
      ch:=ReadKey;
 End;
Procedure ThongKeSVThiDau;
 Var S,i:Byte;
 ch:Char;
 Begin
       S:=0;
       For i:=1 To n Do
       If (SV[i].DiemCS>=5)AND(SV[i].DiemCN>=5) Then S:=S+1;
       Writeln('So sinh vien thi dau la: ',s);
       ch:=Readkey;
 End;
Begin
      Repeat
 Clrscr;
 Writeln('CHUONG TRINH QUAN LY DIEM THI TOT NGHIEP SINH VIEN');
 Writeln('1. Nhap danh sach sinh vien');
 Writeln('2. In danh sach sinh vien');
 Writeln('3. Thong ke so sinh vien thi dau');
 Writeln('4. danh sach sinh vien thi lai');
 Writeln('<ESC>: Thoat');
 c:=Readkey;
               Case c Of
  '1': NhapDanhSach;
  '2': InDanhSach;
  '3': ThongKeSVThiDau;
  '4': DanhSachSVThilai;
       End;
 Until c=#27;
End.