Một số bài toán tiểu học sử dụng ngôn ngữ lập trình Logo hay mới nhất

Một số bài toán tiểu học sử dụng ngôn ngữ lập trình Logo hay

Tải xuống

Bài 1: Viết thủ tục nhập vào 3 số tự nhiên a, b, c và in ra màn hình số lớn nhất, số nhỏ nhất?

to minmax :a :b :c

cs

make "max :a

make "min :a

if :max<:b [make "max :b]

if :max<:c [make "max :c]

if :min>:b [make "min :b]

if :min>:c [make "min :c ]

rt 90

label (list "so  "lon "nhat "la: :max)

pu sety 50 pd

label (list "so  "nho "nhat "la: :min)

end

Bài 2: Viết thủ tục in ra màn hình các số chẵn bé hơn 20. Tính tổng và trung bình cộng các số đó?

to sochan

cs

rt 90

for [i 2 20 2] [label(list :i) pu fd 45 pd]

pu setxy 0 -50 pd

make "tong (20+2)*10/2

make "tbc :tong/10

label(list "tong "day "so "là :tong)

pu setxy 0 -80 pd

label(list "trung "binh "cong "day "so "là :tbc)

end

Bài 3: Cho dãy số sau:  7+ 14 + 21 +…+ N

 (Với N là số được nhập vào khi gọi tên thủ tục)

- Nếu N nhập vào là số tự nhiên chia hết cho 7  thì thực hiện tính số số hạng, tính tổng và trung bình cộng của dãy số trên.

- Nếu N nhập vào không thuộc dãy số trên thì in ra dòng thông báo “Số vừa nhập không thuộc dãy số chia hết cho 7”.

to dayso :n

cs

rt 90

ifelse (modulo :n 7)=0 [

make "ssh (:n-7)/7+1

make "tong (:n+7)*:ssh/2

make "tbc :tong/:ssh

label(list "so "so "hang "trong "day "là :ssh)

pu setxy 0 -50 pd

label(list "tong "day "so "là :tong)

pu setxy 0 -80 pd

label(list "trung "binh "cong "day "so "là :tbc)]

[label [so vua nhap khong thuoc day]]

end

Bài 4. Tính diện tích

Một khu đất hình chữ nhật có chiều dài là a, chiều rộng bằng ¾ chiều dài. Người ta đào một cái giếng hình tròn có tâm nằm tại giao điểm hai đường chéo của khu đất, bán kính bằng 1/4 chiều rộng của khu đất. Hãy viết thủ tục vẽ lại khu đất trên và tính diện tích phần đất còn lại sau khi đã đào giếng.

to hcn :a

cs

Make "b :a*3/4

Make "r :b*1/4

repeat 2[fd :a rt 90 fd :b rt 90]

pu fd :a/2 rt 90 fd :b/2 pd arc 360 :r

Make "scn :a*:b

Make "st :r*:r*3.14

Make "scl :scn-:st pu

setxy 0 -100 pd

label (list "dien "tich "phan "con "lai "la: :scl)

end

Tải xuống

---