 Sơ đồ khối cho các công việc cơ bản (bài tập)

 Bài toán: Giả sử hồ sơ tuyển sinh của một thí sinh gồm: họ tên, SBD, điểm môn 1, môn 2, môn 3, tổng điểm và kết quả thi. Dùng kiểu tệp các bản ghi, lập trình giải quyết các việc:

1. Nhập hồ sơ cho các thí sinh

2. In danh sách phòng thi

3. Tính toán và xét kết quả thi (điểm chuẩn là 22,0)

4. Xem kết quả thi của thí sinh theo SBD

5. In bảng kết quả thi (màn hình/máy in)

6. Thống kê kết quả thi

 Khai báo hằng, kiểu và biến

 Chương trình chính

BEGIN {Main Program}

Repeat
ClrScr;
Writeln('CHUONG TRINH TUYEN SINH DAI HOC');
Writeln(' ------------------------------------');
Writeln;
Writeln(' 1. Nhap ho so thi sinh');
Writeln(' 2. In danh sach phong thi');
Writeln(' 3. Tinh toan va xet ket qua');
Writeln(' 4. Xem ket qua thi theo SBD');
Writeln(' 5. In bang ket qua thi');
Writeln(' 6. Thong ke ket qua thi');
Writeln(' 7. Thoat');
Writeln;
Write (' Ban chon viec nao 1/2/.../7 ? ');
CASE ReadKey OF
'1': NhapHS(f); '2': InDSPT(f); '3': Tinhtoan(f);
'4': XemKQ(f); '5': InKQ(f); '6': Thongke(f);
'7': begin
Writeln;
Write('An phim ENTER de thoat... ');
Readln;
Halt;
end;
END;
Until FALSE;
END.

tải về 228.5 Kb.

Chia sẻ với bạn bè của bạn: