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(12/:p)*180)]] {nếu đa giác có cạnh p nhỏ hơn 3 hoặc lớn hơn 11 thì xuất thơng báo ra sân chơi “khơng hợp lệ” ngược lại thì vẽ đa giác p ra 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 0 make "i 0 while [:s :n)] [make "i :i + 1 make "s :s + :i] {khi tổng nhỏ hơn hoặc chưa bằng số cần tìm thì tằng biến I lên 1 và tổng cộng dồn theo i} label(list "so "can "tim "la :i 1) {xuất thơng báo ra 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 0 {gán tổng bằng 0} for [i 1 :n 1][make "s :s + :i] {biến I chạy từ 1 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