Nguồn: Giáo trình Turbo Pascal Windows Professional.
Câu 1: Dùng lệnh WRITE hiện ra màn hình nội dung tờ đơn như sau:
======o0o======
ĐƠN XIN DỰ THI TAY NGHỀ PHỔ THÔNG
Kính gởi : Sở Giáo Dục Đào Tạo [ghi tên tỉnh/thành phố bạn đang sống vào đây, bỏ ngoặc]
Tôi tên là : _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Sinh năm : _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Nơi sinh : _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Học sinh lớp: _ _ _ _ Trường: _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Nay tôi làm đơn này xin được dự thi tay nghề phổ thông năm học 20xx - 20xx.
Nghề dự thi : _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
[Thành phố bạn đang sống], ngày x tháng y năm 20xx
Người xin dự thi
Cực dễ, không cần bài làm đâu nhỉ...?
Câu 2: Dùng lệnh WRITELN viết chương trình hiện ra màn hình có dạng sau:
***********
* *
* *
***********
*
**
***
****
*****
***********
* *
* *
***********
Cho những ai không đoán ra được cách làm: writeln('* *').
Đó là cách tạo khung trống.
Câu 3: Áp dụng chức năng mã kẻ khung cho xuất hiện màn hình có dạng sau:
┌──────────────────────┐
| CƠ SỞ ĐÀO TẠO TIN HỌC LINUX │
| TURBO PASCAL VERSION 7.0 |
| │
| Xin Chào Các Bạn Đã Đến Với |
| NGÔN NGỮ LẬP TRÌNH PASCAL │
| │
| Chúc Các Bạn Thành Công │
└──────────────────────┘
Được rồi tớ làm như hạch ý...
Hướng dẫn: Để kẻ khung, dùng hàm chr(mãsố), hoặc #mãsố, Alt+ mãsố.
Mã số:
┌ = 218 (nét đôi: 201).
┐ = 191 (nét đôi: 187).
│ = 179 (nét đôi: 186).
─ = 196 (nét đôi: 205).
└ = 192 (nét đôi: 200).
┘ = 217 (nét đôi: 188).
Mã số dành cho #:
- Khoảng trắng: #32.
- Enter: #13.
- ↑: #72.
- ↓: #80.
- →: #77.
- ←: #75.
- Esc: #27.
Bạn đang đọc truyện trên: Truyen2U.Pro