Chào mừng quý vị đến với website của Lê Trọng Hiếu
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
TIN TỨC
Cách làm menu trong Pascal
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn: LTH
Người gửi: Lê Trọng Hiếu (trang riêng)
Ngày gửi: 15h:20' 11-10-2011
Dung lượng: 20.5 KB
Số lượt tải: 15
Nguồn: LTH
Người gửi: Lê Trọng Hiếu (trang riêng)
Ngày gửi: 15h:20' 11-10-2011
Dung lượng: 20.5 KB
Số lượt tải: 15
Số lượt thích:
0 người
Begin
Repeat
Clrscr;
Writeln(`CHUONG TRINH QUAN LY KY THI TOT NGHE PHO THONG`);
Writeln(`1. Nhap danh sach hoc sinh`);
Writeln(`2. In danh sach hoc sinh`);
Writeln(`3. Thong ke hoc sinh thi dau`);
Writeln(`4. danh sach hoc sinh thi lai`);
Writeln(`: Thoat`);
c:=Readkey;
Case c Of
`1`: NhapDanhSach;
`2`: InDanhSach;
`3`: ThongKeSVThiDau;
`4`: DanhSachSVThilai;
End;
Until c=#27;
End.
Repeat
Clrscr;
Writeln(`CHUONG TRINH QUAN LY KY THI TOT NGHE PHO THONG`);
Writeln(`1. Nhap danh sach hoc sinh`);
Writeln(`2. In danh sach hoc sinh`);
Writeln(`3. Thong ke hoc sinh thi dau`);
Writeln(`4. danh sach hoc sinh thi lai`);
Writeln(`
c:=Readkey;
Case c Of
`1`: NhapDanhSach;
`2`: InDanhSach;
`3`: ThongKeSVThiDau;
`4`: DanhSachSVThilai;
End;
Until c=#27;
End.
Các ý kiến mới nhất