CÁC BÀI TẬP MẪU SỬ DỤNG
NGÔN NGỮ LẬP TRÌNH
VIOLET SCRIPT



























HÀ NỘI, 5/2004
Các bài toán mẫu
Giới thiệu
Các bài toán mẫu dưới đây là các ví dụ hoàn chỉnh viết bằng ngôn ngữ VS, giúp cho người đọc hiểu được ý tưởng cơ bản của việc lập trình, đồng thời cho thấy các quy tắc chung để tạo lập một chương trình VS. Người dùng hoàn toàn có thể sử dụng và phát triển các bài tập mẫu này theo những ý tưởng riêng của mình.
Các bài tập mẫu được trình bày ngắn gọn và dễ hiểu, với mục đích cho thấy khả năng tạo các bài giảng sinh động bằng VS là rất dễ dàng. Tất nhiên, những khả năng thực sự mà VS làm được còn lớn hơn nhiều so với những những gì thể hiện trong các ví dụ ở đây, mà thậm chí ngay cả tác giả của ngôn ngữ lập trình cũng chưa thể khám phá ra hết được.
Vẽ đồ thị hàm số
Trong chương trình học cấp 2 và cả cấp 3 đều có các bài tập vẽ đồ thị hàm số. Để giải quyết một bài tập này sẽ không hề đơn giản (phải tính đạo hàm, vi phân, khảo sát sự biến thiên hàm số,…), vậy mà cũng chỉ quanh quẩn ở một số dạng hàm số cơ bản. Tuy nhiên, với một ngôn ngữ lập trình bình thường, ta có thể vẽ được đồ thị bất kỳ mà không cần phải tính toán đạo hàm, vi phân,… Với VS, việc vẽ đồ thị còn dễ dàng hơn nhiều.
Ví dụ dưới đây sẽ vẽ đồ thị hàm số y = (x-2)*(x-1)*x*(x+1)*(x+2), nghĩa là một đồ thị cắt trục hoành tại các điểm -2, -1, 0, 1 và 2.

function main
line 0, y0 = 6, 16, y0
line x0 = 8, 0, x0, 12
set_paper Paper, 3, 0xFF00FF
appear Pencil
attach_pen Pencil
for x from -2.2 to 2.4 step 0.05
y = (x-2)*(x-1)*x*(x+1)*(x+2)
set_pos Pencil, x0 + x, y0 - y
delay 1
next
end



Bài toán quỹ tích
Bài toán 1: Cho một điểm A cố định nằm trong đường tròn tâm O, kẻ đường thẳng qua A cắt đường tròn tại P. Tìm quỹ tích trung điểm M của OP khi P chuyển động trên đường tròn.

function main
set_paper Paper, 2, 0xBF00BF
appear Point, ox=8, oy=6, "O", right
appear Point, ax=8, ay=8, "A", left
circle ox, oy, 4
appear Point, 0, 0, "M"
attach_pen PointM

for angle from 135 to 135-360 step -2
get_point &px, &py, ox, oy, angle, 4
appear Point, px, py, "P"
set_pos PointM, (px+ax)/2, (py+ay)/2

set_paper Draft, 2, 0x0000BF
erase
line ax, ay, px, py
note_edge 2, "", M, P
note_edge 2, "", M, A
delay 1
next
end




Bài 2: Đường Cycloide
Đường quỹ tích được sinh ra khi một vòng tròn chạy xung quanh một vòng tròn khác. Trong phần chương trình dưới đây 3 biến số R1, R2 và L có thể được sửa đổi tùy ý sẽ tạo ra vô vàn những loại đường cycloide khác nhau.

function main
R1 = 2.0
R2 = 0.8
L = 2.0
set_paper Draft, 2, 0
circle x0=8.25, y0=5.75, R1

set_paper Wheel, 2, 0x0000FF
set_fill 0x7FBFFF, 50
circle 0, 0, R2
line 0, -R2, 0, R2
line -R2, 0, L*R2, 0
circle L*R2, 0, 0.1

set_paper Paper, 3, 0xFF0000
attach_pen Wheel, L*R2, 0

for t from 0 to 720 step 2
get_point &x, &y, x0, y0, t, R1+R2
set_pos Wheel,