TO Cau3 CS PU HT Make "x 0 Make "y 0 For [i 18 1][ SetXY :x:y Repeat 4[BitBlock 41 41 FD 40*2] IFELSE :y=0 [Make "y 40 ][Make "y 0] Make "x :x+40] Home PD
Lời giải 1 :
TO Cau3
CS PU HT
Make “x 0 Make “y 0
For [i 1 8 1][
SetXY :x :y Repeat 4[BitBlock 41 41 FD 40*2]
IFELSE :y=0 [Make “y 40][Make “y 0]
Make “x :x+40]
Home PD Repeat 4[FD 40*8 Rt 90]
FD 40*8
Make “d First QuestionBox [Thông báo][Nhap dong ]
Make “c First QuestionBox [Thông báo][Nhap cot ]
PU BK :d*40-20 LT 90 FD (:c*40)-20 ;di chuyen toi o can kiem tra
Make “o Pixel ;Lay mau
SetXY 0 -20 SetHeading 90
IFELSE :o=[255 255 255][
Label (List “Dong:d “cot:c “la “o “mau “trang)][
Label (List “Dong:d “cot:c “la “o “mau “den)]
END
Thảo luận
Lời giải 2 :
TO Cau3
CS PU HT
Make “x 0 Make “y 0
For [I 1 8 1][
SetXY :x :y Repeat 4[BitBlock 41 41 FD 40*2]
IFELSE :y=0 [Make “y 40][Make “y 0]
Make “x :x+40]
Home PD Repeat 4[FD 40*8 Rt 90]
FD 40*8
Make “d First QuestionBox [Thông báo][Nhap dong ]
Make “c First QuestionBox [Thông báo][Nhap cot ]
PU BK :d*40-20 LT 90 FD (:c*40)-20 ;di chuyen toi o can kiem tra
Make “o Pixel ;Lay mau
SetXY 0 -20 SetHeading 90
IFELSE :o=[255 255 255][
Label (List “Dong:d “cot:c “la “o “mau “trang)][
Label (List “Dong:d “cot:c “la “o “mau “den)]
END
xin câu trả lời hay nhất
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 5
Lớp 5 - Là năm cuối cấp tiểu học, áp lực thi cử nhiều mà sắp phải xa trường lớp, thầy cô, ban bè thân quen. Đây là năm mà các em sẽ gặp nhiều khó khăn nhưng các em đừng lo nhé mọi chuyện sẽ tốt lên thôi !
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK