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

Dạy học tốt xin gửi tới các bạn nội dung Một số bài toán tiểu học sử dụng ngôn ngữ lập trình Logo hay và file đính kèm để các bạn tiện tải về sử dụng. Chúc các bạn có được những thông tin như mong muốn của mình. Nào hãy cùng xem nội dung ngay bên dưới nhé.

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 ngay

Xem và tải các văn bản tài liệu khác

Đề thi mới cập nhật