Pascal: vẽ đồng hồ, chùm pháo hoa

1. Chương trình tạo một chiếc đồng hồ Gimico trên màn hình máy tính dùng Pascal.
uses crt,graph,dos;
var x,y,x1,y1,x2,y2,goc: integer;  goc1,goc2,goc3,old,gd,gm:integer;
gio,phut,giay,mili:word;  so,gio1,phut1,giay1:string;  rad:real;
procedure kim_giay(goc:integer);
begin rad:=goc*pi/180; x1:=round(x+150*sin(rad));
y1:=round(y-150*cos(rad)); setlinestyle(0,0,1); line(x,y,x1,y1);

Pascal: đề thi 1-2-3

Đề thi Môn Ngôn ngữ Lập trình Pascal (đề 1)

Thời gian : 10 phút đọc đầu đề, 90 phút làm bài. Không sử dụng tài liệu

Họ tên thí sinh : . . . . . . . . . . . . . . . . . . . . . . . . . . .  Ngày sinh: . . . . . . . . . . . .

Lớp : . . . . . . . . . . Số báo danh : . . . . . . . . . . . . .  Số máy tính : . . . . . . . . . . .

Hướng dẫn đặt các tên tệp bài làm và nơi lưu trữ . Đề thi có 3 câu, mỗi câu cần làm một tệp chương trình. Tên tệp chương trình ứng với câu i là Ci_xxx.PAS, giải thích: C là viết tắt của từ “câu”, i là câu thứ i, gạch chân, xxx là số báo danh của thí sinh. Giả sử thí sinh có số báo danh là 248 thì 3 tệp chương trình có tên là C1_248.PAS, C2_248.PAS, C3_248.PAS. Cả 3 tệp chương trình đều đặt trong thư mục có chứa tệp TURBO.EXE.

Turbo Pascal: Unit Graph

Màn hình máy tính có hai chế độ hiển thị thông tin: chế độ văn bản và chế độ đồ hoạ. Trong chế độ đồ hoạ màn hình chia thành lưới vuông các điểm ảnh (pixel).      Màn hình thông dụng hiện nay (VGA) trong chế độ đồ hoạ với độ phân giải cao có 640 cột điểm ảnh đánh số từ 0 đến 639 (ứng với trục X hướng sang phải) và 480 hàng điểm ảnh đánh số từ 0 đến 479 (ứng với trục Y hướng từ trên xuống dưới). Ta có thể vẽ (cho điểm sáng) và tô màu từng điểm ảnh để tạo một hình bất kỳ trên màn hình. Trong chế độ đồ hoạ màn hình cũng có con trỏ vẽ nhưng nó không hiện.

Turbo Pascal: Danh sách liên kết dùng con trỏ

1. Danh sách liên kết đơn

Danh sách là một dãy hữu hạn các phần tử thuộc cùng một lớp đối tượng nào đó. Ví dụ : danh sách sinh viên, danh sách vật tư, danh sách các hoá đơn, danh sách các số thực. Trong các bài trước ta đã dùng mảng để biểu thị một danh sách. Cách này có các nhược điểm: kích thước của mảng phải định trước nên tốn bộ nhớ (số phần tử thực tế  dùng nhiều khi rất ít so với khai báo), khi thêm một phần tử vào mảng hoặc xoá một phần tử ra khỏi mảng ta phải mất nhiều thời gian để dồn mảng.

Turbo Pascal: Con trỏ

Các biến thuộc kiểu dữ liệu đã học như integer, real, mảng, tập hợp, bản ghi . . . gọi là các biến tĩnh vì chúng được xác định rõ ràng khi khai báo và sau đó được dùng thông qua tên của chúng. Thời gian tồn tại của biến tĩnh cũng là thời gian tồn tại của khối chương trình có chứa khai báo các biến này. Do đó nếu chương trình sử dụng một số lượng lớn các biến tĩnh thì sẽ không đủ bộ nhớ. Ví dụ khi khai báo var A: array[1..5000] of real;  máy sẽ phân một vùng nhớ cố định 30000 byte cho mảng A, trong chương trình có thể ta không dùng đến cả 5000 phần tử. Để tránh lãng phí bộ nhớ Turbo Pascal cho phép dùng biến động (dynamic variable). Các biến này được lưu trữ trong vùng Heap (vùng nhớ tự do của máy), khi cần chúng có thể được tạo ra để chứa dữ liệu, khi không cần có thể xoá chúng đi để giải phóng bộ nhớ. Biến động không có tên và do một con trỏ quản lý.

Turbo Pascal : Unit tự tạo

1. Unit tự tạo

Ngoài các thư viện chương trình có sẵn trong unit chuẩn của Turbo Pascal như System, Crt, Dos, Graph … người sử dụng còn có thể xây dựng cho mình các thư viện chương trình mới bằng cách tự tạo các unit. Mục đích của unit tự tạo: tạo các thư viện hàm và thủ tục để tránh lặp lại những công việc giống nhau, giải quyết vấn đề thiếu bộ nhớ khi thiết kế các chương trình lớn, tạo công cụ để liên kết các module chương trình với nhau mà vẫn đảm bảo tính độc lập cho từng lập trình viên.

Turbo Pascal: Unit CRT

Unit là một tập hợp các hằng số, các kiểu dữ liệu, các biến, các thủ tục và hàm. Mỗi Unit xem như một thư viện chương trình. Turbo Pascal có sẵn các unit chuẩn: unit System, unit Crt,  unit Dos, unit Printer, unit Overlay, unit Graph, unit Turbo3, unit Graph3, unit Windos. Năm unit đầu tiên chứa trong tệp Turbo.tpl, tệp này được tải vào bộ nhớ ngay khi Turbo Pascal khởi động. Ngoài các unit chuẩn có sẵn người dùng có thể tự mình lập các unit riêng.