Bài 1: vẽ đa giác cạnh p nhập từ bàn phím đa giác lớn 11 bé báo khơng hợp lệ to dagiac :p :n cs rt 90 ifelse or(:p11) [label(list "khong "hop "le)] [repeat :p[fd :n rt 180-(1-2/:p)*180)]] {nếu đa giác có cạnh p nhỏ lớn 11 xuất thông báo sân chơi “không hợp lệ” ngược lại vẽ đa giác p sân chơi} ht end 2: tính tổng S = + + + n biết tổng nhỏ 100 tìm số n cách 1: to tong :n cs rt 90 make "s make "i while [:s < :n] [make "i :i + make "s :s + :i] label(list "so "can "tim "la :i - 1) ht end cách 2: to tong :n cs {xóa sân chơi} rt 90 {rùa quay phải 90 độ} make "s {gán cho tổng 0} make "i {gán cho I 0} until [or(:s=:n)(:s > :n)] [make "i :i + make "s :s + :i] {khi tổng nhỏ chưa số cần tìm tằng biến I lên tổng cộng dồn theo i} label(list "so "can "tim "la :i - 1) {xuất thông báo sân chơi} ht {rùa ẩn} end 3: tính tổng S= 1+2+ + n ; n nhập từ bàn phím to tinhtong :n cs rt 90 make "s {gán tổng 0} for [i :n 1][make "s :s + :i] {biến I chạy từ tới n; tổng cộng dồn theo biến i} label(list "tong "cua "day "1+2+3+ +n "= :s) ht sety -50 {xuống dòng} end 4: so sánh hai số a b nhập từ bàn phím to sosanh :a :b cs rt 90 ifelse :a:max [make "max :b] if :c>:max [make "max :c] if :b